1) Есть текстовй файл. Допустим я его считал, так вот надо во всех местах последовательность пустых строк сузить до одной пустой строки. Т.е. есть массив строк (считал из текстового файла):

бла-бла-бла
<пустая строка, возможно состоящая из знаковом пробелов табуляции и сивола конца строки>
<еще одна>
<и еще одна>
<и т.д.>
бла-бла-бла

Надо, чтобы получилось так:
бла-бла-бла
< только одна пустая строка>
бла-бла-бла

Если брать просто пустые строки, то сделать это довольно просто. Но как учитывать те, которые состоят из пробелов или знаков табуляции или еще из чего-нибудь невидимого? Подскажите, решение please

2) Как для всех файлов заданной директории вызвать внешнюю программу (cksum) и вывести результат ее работы (для каждого файла ) на экран?

Спасибо

1)

Цитата

Но как учитывать те, которые состоят из пробелов или знаков табуляции или еще из чего-нибудь невидимого?

Для этого обычно используют регулярные выражения .

Код

if ($s =~ /^\s*$/) {   print "Пустая строка\n"; };

^ - начало строки;
$ - конец
\s - пробельный символ (в том числе табуляция)
* - 0 или более символов

2)
1. получаешь список файлов в директории
2. для каждого файла формируешь выполняемую команду и выполняешь ее

Не знаю на сколько правильно я понял задачу. Я понял это так:
Допустим есть файл:

Код

bla-bla-bla bla-bla-bla                     bla-bla-bla          bla-bla-bla             bla-bla-bla                             bla-bla-bla                                                                 bla-bla-bla                bla-bla-bla

На выходе мы хотим получить содержимое этого файла в таком виде:

Код

bla-bla-bla bla-bla-bla bla-bla-bla bla-bla-bla bla-bla-bla bla-bla-bla bla-bla-bla bla-bla-bla

Если я тебя правильно понял, тогда вот решение:

Код

#!/usr/bin/perl -w use strict; my $file = "bla-bla.txt"; my $space = 0; open(BLA, "< $file") or die $!;    while ( <BLA> ) {            s/^\s+//;            s/\s+$//;            s/\s+/ /g;            unless ( /^$/ ) {                     print "$_\n";                     $space = 0;            } else {                     $space++;                     next if $space > 1;                     print "$_\n";            }    } close(BLA);

В данном случае стоит обратить внимание на то, что здесь мы не сохраняем содержимое всего файла в память, т.е. в массив. Потому для данного кода не важно, какого размера будет твой файл, в любом случае мы никогда не загоним в тупик оперативную память.
Да, вот ещё что: В данном примере если первая или несколько первых строк будут пустыми или с пробелами или с табуляцией, то самая первая строка на выходе будет пустой, это не всегда желательно. Если тебе нужно пропустить первые пустые строки и начать вывод именно с не пустой строки, то просто при объявлении переменной $space, инициализируй её значение в 1, т.е. замени строку:

Код

my $space = 0;

на

Код

my $space = 1;

После чего все пустые строки в начале файла будут пропущены.

Это сообщение отредактировал(а) korob2001 - 14.9.2005, 18:05

asmlover

Цитата(asmlover @ 14.9.2005, 12:49)

2) Как для всех файлов заданной директории вызвать внешнюю программу (cksum) и вывести результат ее работы (для каждого файла ) на экран?

Выполнение внешней команды и вывод результатов:

Код

use strict; my @log = `cksum $file 2>&1`; print "Log: "; print '['. localtime(time) .']'; foreach (@log) {     chomp;     print " $_" if defined $_; }

Ivan Kolesnikov

Цитата

* - 0 или более символов

Спасибо за объяснение. Все сразу понял, кроме этого момента. Что значит - 0 или более символов? Может быть 1 или более символов?


korob2001
Спасибо, вроде бы все понял. Но ты немного неправильно понял, что я хотел. В непустых строках пробелы и знаки табуляции удалять не надо ;)


sharq
Спасибо

Цитата

Спасибо, вроде бы все понял. Но ты немного неправильно понял, что я хотел. В непустых строках пробелы и знаки табуляции удалять не надо ;)

Тем проще, вот пример без удаления символов пробелов, табуляций в не пустых строках.

Код

#!/usr/bin/perl -w use strict; my $file = "bla-bla.txt"; my $space = 1; open(BLA, "< $file") or die $!;    while ( <BLA> ) {            unless ( /^\s*$/ ) {                     print "$_\n";                     $space = 0;            } else {                     $space++;                     next if $space > 1;                     print "$_\n";            }    } close(BLA);

Цитата

Что значит - 0 или более символов? Может быть 1 или более символов?

Нет, всё верно * - 0 и более символов. Это значит что если даже в строка будет абсолютно пуста, т.е. без пробелов и табуляции, то такая строка будет сообтветствовать шаблону /^\s*$/, чего нельзя сказать о таком регулярном выражении /^\s+$/, где + - 1 и более.

Это сообщение отредактировал(а) korob2001 - 14.9.2005, 19:17