Здрасти хора,
Опитвам се да прочета един файл с
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";
} |
Двата цикъла работят по различен начин. Защо ?