|
| Посл.отвђт | Сообщенiе |
|
|
Дата: Авг 19, 2003 00:50:11 Да я просто торможу :-), потому что нет у меня никаких исходников по перлу, а то что есть не совсем то или совсем не то... |
|
|
Дата: Авг 19, 2003 01:20:01 Не знаю я как осуществить эту операцию замены в этом же цикле, но я конечно же могу написать новый цикл в этом скрипте или написать новый скрипт-это не сложно ибо понятно что как делать, но хотелось как-то по элегантней решить эту проблему... |
|
|
Дата: Авг 19, 2003 05:15:10 Андрей, ты меня удивляешь. На, держи. Изменилась одна команда!
open(IN, "t.txt") or die "Can't open file: $!";
$i = 1;
$/ = "******";
while(<IN>)
{
chomp;
open(OUT, "+>$i.$tmp.txt");
print OUT;
close(OUT);
$i++;
}
close(IN);
Все, все работает. Введи дополнительную уборку символа \n, а то получается не слишком красиво. Все. Всего делов! ВСЕ необходимые доки к перлу есть в самом же дистрибутиве от activestate. Все ты можешь достать оттуда. Кроме того, если мне память не изменеяет, у тебя есть книга размером мегов в 50. Неужели там ничего нет? Хочешь - хорошую английскую дам. Что до элегантности - не нравится, присвой $/ значение undef. Тогда <> считает файл целиком. Далее, разбей его на массивы и оперируй с ними. Это не нравится - стучись к Edmond - он у нас тут главный алгоритмизатор :) |
|
|
Дата: Авг 19, 2003 07:13:16 · Поправил: Asterix Примеры с той книжки у меня упорно работать не хотят :| Неужели это работает, я бы никогда не догадался... Меня этот пример вполне устраивает :-) |