Preference->Tools->User tools 

Menu text: perl
Command: perl.exe
Argument: $(FilePath)
Initial directory: $(FileDir)

i zaznaczyć
checkbox: Captuere output

open (FH,”<lista_01.txt”);
while(<FH>){
@arr=split(” „,$_);
$hash{$arr[0]}=$_;
}
close(FH);

open (FO, „>lista_wynikowa.txt”);

open (FH,”<lista_02.txt”);
while(<FH>){
@arr=split(” „,$_);

if(exists($hash{$arr[0]})){
#    print $hash{$arr[2]} . „\n”;
#    print FO $_;
print FO $_;
}
}
close(FH);

 $sDir = „d:\\do_wysylki” if($sDir eq ”);

opendir(SEND_DIR, $sDir)  or die „Couldn’t open $dir for reading: $!”;

@files = ();
while( defined ($file = readdir(SEND_DIR)) ) {

    next if ($file eq ‘.’ or $file eq ‘..’);

    my $filename = $file;
    push(@files, $filename);
}

closedir(SEND_DIR);

my $count  = @files; 

$komen = „./finde.pl”;
exec($komen,$wyniki);

Zamiana liter w Perlu, uruchamianie z CMD

perl -pe ” s/XXX/ś/g” <dana141.txt >dana141is.txt
wstaw w miejsce xxx