10.01.2009, 12:57
|
|
Познавший АНТИЧАТ
Регистрация: 05.05.2008
Сообщений: 1,078
С нами:
9482786
Репутация:
1357
|
|
Сообщение от Kaimi
Попробуй
Код:
open(DAT, "<gnu1.txt") || die $!;
@data=<DAT>;
close(DAT);
open(FILE, ">>gnu2.txt") || die $!;
foreach(@data)
{
$_=~ /(.+);/ ? print FILE $1."\n" : ();
}
close(FILE);
Сорри я не совсем так выразил то что хотел, я имел в виду что должно удаляться все то что стот перед знаком ; включая его самого.
|
|
|