URL: https://www.opennet.me/cgi-bin/openforum/vsluhboard.cgi
Форум: vsluhforumID1
Нить номер: 33922
[ Назад ]

Исходное сообщение
"В Perl вывести содержимое файла после пустой строки ?"

Отправлено Вася , 27-Авг-03 09:51 
есть файл :
7654747
47645675
456745745
456745

4567546
54675467
546754
как с помощью перл вывести содержимое файла только после пустой строки, кол-во строк в файле всегда разное от 10 до 200 и более, но разграничитель пустая строка всегда присутствует.
Спасибо.


Содержание

Сообщения в этом обсуждении
"В Perl вывести содержимое файла после пустой строки ?"
Отправлено JGU , 27-Авг-03 10:12 
Не совсем понял чего тебе надо но кажись вот енто:
#!/usr/local/bin/perl -w


my $flag=0;
open F,"digf.txt";
while (<F>) {
    if (!$flag) {
        $flag=!/\d+/;
    } else {
        print;
    };
};


"В Perl вывести содержимое файла после пустой строки ?"
Отправлено Вася , 27-Авг-03 11:38 
Спасибо за идею ! Все сработало, немного под себя подправил.