Форум » Програмиране и web-дизайн » Perl проблем с четене на файл

Автор

Съобщение

phrozencrew

Пон, 09.04.07, 19:05

Здрасти хора,
Опитвам се да прочета един файл с Perl, като ползвам цикъла while обаче нещо не мога да схвана защо цикъла става безкраен. В единия случай си бачка, а в другия зацикля здраво. Вижте за какво говоря:

open TEXTFILE, "text.txt";
@ar = <TEXTFILE>;
 
while ($line = <TEXTFILE>){
print "faila se pro4ita normalno kato masiv i wsi4ko prikliu4wann";
}
 
while ($line1 = @ar){
print "Ne moga da zatworia cikyla";
}

Двата цикъла работят по различен начин. Защо ?

insecteater

Пон, 09.04.07, 19:25

Що направо не му забиеш нещо от сорта на

foreach $line1 (@ar) {
 ...
}

и да не се занимаваш повече

phrozencrew

Пон, 09.04.07, 19:41

Защото исках да го цъкна с while, а и ми беше интересно защо не работи при трнасформация в масив.
Иначе с for (същото като foreach в Perl) си работи добре.
Благодаря за бързата намеса!

hiroko

Чет, 12.04.07, 13:11

Аз мисля това става така от това какво while проверява. Единият път проверява самото <TEXTFILE>. Другият път проверява @ar. Това са 2 различни неща. И не съм правила нещо с Perl много от давна и сигурно миоже да имам грешка обаче.