script linux uzerinde yazildi.
bir de soyle bir bakmakta yarar var, duzeltilebilir bircok yeri.
#!/usr/bin/env perl
$del = '<OPTION\s*?value=\d+>';
$source =
cat kaynakdosya.txt;
$source =~ s/\r\n|\ |;//g;
@srcarr = split /$del/, $source;
open FILE, ">cikti.txt" or die "Can not open cikti.txt for writing:$!\n";
for(@srcarr){
s/\s{2,}/ /;
print FILE "$1 - $2$3\n" if /(\d{1,2})\s+-\s+(\w+.*?\s)\s*(\(\d+\))/;
}
close FILE;