Perl

Sziasztok!

Szeretnem megoldani valahogy, hogy folamatossan beolvasasra keruljon egy fajl, de valamiert nem csinalja meg, mert amikor a belso while ciklus lefut, akkor megall, miert?

while(true){

open FILE, file.txt or die "duma";
while (FILE){

@valami = split(/,/,$_);
print $valami[0];
}

}

koszonom

Hozzászólások


while(true){
open(FILE, "file.txt")|| die "duma";
while (FILE){
@valami = split(/,/,$_);
print $valami[0];
}
close FILE;
}

Ide rakjál kisebb nagyobb jelet a # helyett pls.

while (#FILE#)

Az a gond, hogy a seek simán, jajszó nélkül szíkel olyan fájl elejére is, ami már nem is létezik, vagyis vagy marad az open_or_die-close-..., vagy seek előtt csekkolni kell, hogy létező fájlban ugrálnánk-e, anélkül ui. a végtelenségig újra lehetne olvasni a törölt fájl utolsó tartalmát.

"Az a gond, hogy a seek simán, jajszó nélkül szíkel olyan fájl elejére is, ami már nem is létezik"

Ez természetes, hiszen mivel maga a perl éppen nyitva tartja, ezért a fájl még bőszen létezik :-) (értem én, hogy arra gondolsz, hogy a directory bejegyzést valaki már kitörölte)

Es ebbe a progidba nem akarsz valami kesleltetest tenni? mindjuk sleep (1)?
Mert jelen formajaban az oszes rendelkezesre allo proc teljesitmeny felzabalja.

--------------------------------------------------------------------------------------
Viacom Informatikai Kft. Egyedi fejlesztesu, felho alapu webhosting szolgaltatasok. Hureg, Lir, AS.

A kérdést már megválaszolták előttem, de nem akarsz valami informatívabb témacímet adni?