hey, wlasnie zaczalem sobie stukac skrypt w perlu, ktory ma mi z jednego pliku do drugiego skopiowac odpowiednie linie i cos jeszcze w nich dopisac, wyglada tak:
open LOGFILE, "<",'dbtsp12A.log' or die "Cannot open LOG file $!";
open AXEPARAM, ">",'dbtsp12Anew.txt' or die "Cannot open output file $!";

# Starting extraction
print "Extracting script..\n";

while ($linia = <LOGFILE>) {
$linia = substr($linia,33);
if ($linia =~ /OWNS/) {
$linia = substr($linia,5);
if ($linia =~ /.*C$/) {
print AXEPARAM"$linia";
}
}
}
# Closing files
close (LOGFILE);
close (AXEPARAM);

print "Extracting done.\n";

to moj 1-szy dzien z perlem wiec prosze o wyrozumialosc
zupelnie nie rozumiem dlaczego nic nie zapisuje w drugim pliku?! kiedy usuwam warunek ze ma sprawdzic tylko ostatnia litere wiersza dziala i przepisuje wszystkie wiersze ktore zawieraja "C", w momencie ostatniego porownania $linia zawiera mniej wiecej taki wiersz "NAME SETH", czy to ze sa tam 2 slowa stanowi problem dodatkowo przy printowaniu probowalem sobie dopisac w wynikowym pliku jakis strind przy uzyciu "." i nie wiem czemu printuje to co dopisalem w kolejnej linii tez nie wiem czemu (probowalem uzyc chompa i to samo :/)
czuje ze rozwiazanie jest banalne ale siedze juz kilka godzin i nic :/