Архив форумов ЦИТФорума

[Ирина_М]

Есть примерно такой скрипт

open (FILE1, "/home/me/1") or die ("Cannot open file");
while (<FILE1>) {
$string = readline (*FILE1) ;
@fields = split (/\s+/, $string);
@time = split(/:/, $fields[0]);
$hour = $time[0];
$min = $time[1];
print "$string";
}
close (FILE1) or die $!;

В результате выполнения строк получается в два раза меньше, чем в исходном файле. Почему? Спасибо.

[Ирина_М]

Ой. Вроде разобралась - убрала звездочку в readline (*FILE1) и все ок стало.

[Ирина_М]

Блин.. Ни фига. Он тогда вообще оттуда ничего не читает(((

[Aragaer]

команда <FILE1> читает строчку и отбрасывает ее. Команда readline читает следующую строчку.

[Ирина_М]

О!! Класс!! Спасибо большое!!! Правда я сделала так: while (<FILE>) {
$string = $_;}