zoozle-download-search-engine - 2005-zoozle - db - SOURCE CODE

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52

#!/usr/bin/perl

$file = @ARGV[0];
chomp(@ARGV);

foreach(@ARGV){

@con = ();
print "bereinige $_\n";

open(RH,"<$_") or die;
@con = <RH>;
close RH;

foreach(@con){
	if($_ =~ /^finame/){	
	s/%20//g;
	s/%E4/ae/g;
	s/%FC/ue/g;
	s/%C3%B6/oe/g;
	s/%C3%BC/ue/g;
	s/%C3%9F/ss/g;
	s/%C3%A4/ae/g;
	s/%F6/oe/g;
	s/%B4/'/g;
	s/%5B/[/g;
	s/%5D/]/g;
	s/%2B/+/g;
	s/%DF/ss/g;
	s/%2520/_/g;
	s/%A1//g;
	s/-/./g;
	s/ /./g;
	s/\?//g;
	s/\[//g;
	s/\]//g;
	s/\(//g;
	s/\)//g;
	#s/{//g;
	#s/}//g;
	s/\+//g;
	#s/\.//g;
	s/\!//g;
	}#ende von if
	if($_ =~ /^fname/){	
	s/%20//g;
	s/%E4/ae/g;
	s/%FC/ue/g;
	s/%C3%B6/oe/g;
	s/%C3%BC/ue/g;

... [truncated, 31 more lines] ...

{ "@context": "https://schema.org", "@type": "SoftwareSourceCode", "name": "filter_nastys.pl", "description": "Perl module for filter nastys", "dateModified": "2005-03-05", "dateCreated": "2025-03-23", "contentSize": "939 bytes", "contentUrl": "https://www.artikelschreiber.com/opensource/zoozle-download-search-engine/2005-zoozle/db/filter_nastys.pl", "encodingFormat": "text/x-perl", "programmingLanguage": { "@type": "ComputerLanguage", "name": "Perl" }, "codeRepository": "https://www.artikelschreiber.com/opensource/zoozle-download-search-engine/2005-zoozle/db/" }