ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Vladimir Podgorny                    2:5020/400     17 Jan 2003  11:54:48
 To : Vadim Kuznetsov
 Subject : Re: парсинг текста
 -------------------------------------------------------------------------------- 
 

 Vadim Kuznetsov <Vadim.Kuznetsov@p11.f9393.n5020.z2.fidonet.org> wrote:
 
 > Подскажите, как решить такую задачу - дан текстовый файл вида:
 > ----------------------------
 > 56789
 > Ля-ля-ля-три-рубля x0Dx0A
 > три рубля - ля-ля-ля x0Dx0A
 > 
 > 543 тоже какой-то x0Dx0A
 > текст x0Dx0A
 > 
 > 87654
 > И вот еще текст
 > ----------------------------
 > надо получить каждое пятизначное значение (в одну переменную) и текст за ней в
 > другую переменную, трехзначные значения и текст с ними пропустить.
 
 $/ = "\n\r\n";
 while (<>) {
   my @var = /^(\d+)\s+(.*)$/;
   next unless length $var[0] == 5;
   printf "%s %s\n", @var;
 }
 
 -- 
 Vladimir A. Podgorny
 Adamant ltd. deputy director (technical)
 phone/fax: +380(44)5667722
 --- ifmail v.2.15dev5
  * Origin: Adamant ISP news server (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор