|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Vladimir Podgorny 2:5020/400 19 Nov 2002 11:40:18
To : Serg
Subject : Re: Проблемы с логикой регулярных выражений
--------------------------------------------------------------------------------
Serg <serg@enseza.elcom.ru> wrote:
Тупо в лоб и абсолютно некрасиво:
#!/usr/bin/perl -wT --
use strict;
use warnings;
my @lines = (
'fhjd abra1 jwfhui abra2 hiwf myexp jioer abra3',
'fhjd abra1 jwfhui hiwf myexp jioer abra3',
'fhjd myexp jioer abra3'
);
foreach my $line (@lines) {
my @word = grep /^(abra\d|myexp)$/, split /\s/, $line;
my $abra;
foreach (0 .. $#word) {
$abra = $word[$_ - 1] if $word[$_] eq 'myexp' and $_ - 1 >= 0;
}
$abra ||= '';
print "$abra\n";
}
--
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)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
