Форум АНТИЧАТ > ПРОГРАММИРОВАНИЕ > PHP [Perl] Новичкам: задаем вопросы

   

Опции темы

Поиск в этой теме

Опции просмотра

Предыдущая   Следующая

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

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