27.05.2007, 21:39
|
|
Banned
Регистрация: 11.08.2006
Сообщений: 1,522
Провел на форуме:
5128756
Репутация:
2032
|
|
есть текстовой файл с мылами в строчку через запятую с пробелом. задача: поставить их в столбик (без запятой)
Код:
#!usr/bin/perl -w
open(MYFILE, "e-mails.txt") || die "Can't open this file: $!";
@contents=<MYFILE>;
@new=grep s/, /\n/, @contents;
close(MYFILE);
open(NEWFILE, ">>new.txt") || die "Can't open this file: $!";
print NEWFILE @new;
close(NEWFILE);
close(MYFILE);
получается, что в файл new.txt копируется содержимое e-mails.txt, grep выполняется только один раз. а надо, чтобы столько, сколько всего ", ".
как правильно?
еще вопрос: как создать файл, а не использовать существующий?
всего 2 вопроса. Спасибо. |
|
|