> open (IN, "uptimer");
> $fajl=<IN>;
Prebral si samo eno vrstico te datoteke. Tvoj program testira, ali se
average nahaja v prvi vrstici, ali ne.
Ce hoces iti cez vse vrstice, naredi nekaj takega:
while (<>) {
if (/average/) {
$found=1;
last;
}
}
if ($found) { print "Dela\n";} else { print "Ne dela\n";}
Tvoj program bi delal, ce bi pred vrstico $file=<> dodal se
$/="";, ampak potem bi prebral vso datoteko v spomin, kar bi znalo
(kadar gre za log datoteke, ki so mimogrede par sto MB) biti precej
neprijetno za ostale procese na masini.
$/ je "input record separator", torej locilo, na katerem se razbijajo
branja z <> operaterjem. Privzeta vrednost je "\n";
Lep pozdrav,
Matija
