RUDOLF: tak treba jeden BASIC-like skript... nijak zvlast jsem netestoval, mozna tam budou chyby, ale snad to napovi
#!/usr/bin/perl -w
my (@seznam) = ();
open(SEZNAM,"vyexkludovat.txt") or die "nenactu seznam\n";
while ($radek=<SEZNAM>) {
chomp($radek);
push(@seznam,$radek);
}
close(SEZNAM);
open(BORDEL,"justdomains.txt") or die "nenactu bordel\n";
while ($radek=<BORDEL>) {
chomp($radek);
$nalezen=0;
foreach $prvek (@seznam) {
if ($radek=~/^$prvek$/) {
$nalezen=1;
last;
}
}
if (! $nalezen) {
print "$radek\n";
}
}
close(BORDEL);