ANTICHAT - Показать сообщение отдельно - [Perl] Новичкам: задаем вопросы

Цитата:

Сообщение от MaTpOc

вот

Код:

open(DAT, "test1.txt") || die("error1!");
@data=<DAT>;
close(DAT);

open(FILE, ">>test2.txt") || die("error2!");
foreach $line (@data)
     {
     my($a,$b) = split(/:/, $line);
     print FILE  "$a:$b\n";
     }
close(FILE);

нууу.. эээ... line это ж переменная а print оператор ыы

Код:

open(DAT, "< test1.txt") || die("error1!");
@data=<DAT>;
close(DAT);

open(FILE, ">> test2.txt") || die("error2!");
foreach my $line (@data)
{
     my($a,$b) = split(':', $line);
     print FILE "$a:$b\n";
}
close(FILE);