#!/usr/bin/perl
open(IN, $ARGV[0]) die "Couldn't open the file!";
open(OUT, ">".$ARGV[1]);
while (
tr/a-z/A-Z/;
s/\&/AND/;
print OUT;
}
close (IN);
close (OUT);
Daha sonra aşağıdaki programı kullanarak bir dosyada satır satır yazılı şirket adlarını sözlüğe yerleştirecek PL/SQL komutcuk dizisini oluşturdum.
#!/usr/bin/perl -w
open(IN,$ARGV[0]) die("Cannot open the input file!");
open(OUT, ">".$ARGV[1]) die("Cannot open the output file!");
print OUT "begin\n";
while (defined($line=
chomp($line);
print OUT "ctx_thes.create_relation('nstc','MANUFACTURERS AND SUPPLIERS','NTI','".$line."');\n" ;
}
print OUT "end;\n/\n";
Sonrada PL/SQL de bu dosyayı yürüttüm. E direk PL/SQL'de de yazabilirdim ama amaç biraz Perl tecrübesi. Larry Wall tarafından tasarlanan Perl'ün, web üstündeki içeriğin %85'inin arkasındaki CGI programlama(script) dili olduğu tahmin ediliyormuş. [Bkz.]