Помогите написать шаблон. Hужно из строки вытащить название эхи
EchoArea ru.php /home/fido/msgbasedir/ru.php -b Squish -g F -p 14 -dupeCheck
move -dupeHistory 11 2:5030/1256
EchoArea ru.cars.gaz&uaz /home/fido/msgbasedir/ru.cars.gaz%26uaz -b Squish -g F
-p 14 -dupeCheck move -dupeHistory 11 2:5030/1256
EchoArea obec.pactet /home/fido/msgbasedir/obec.pactet -b Squish -g F -p 14
-dupeCheck move -dupeHistory 11 2:5030/1256
EchoArea n5020.backbone.info /home/fido/msgbasedir/n5020.backbone.info -b
Squish -g F -p 14 -dupeCheck move -dupeHistory 11 2:5030/1256
EchoArea n5020.bone /home/fido/msgbasedir/n5020.bone -b Squish -g F -p 14
-dupeCheck move -dupeHistory 11 2:5030/1256
EchoArea n5020.hubs /home/fido/msgbasedir/n5020.hubs -b Squish -g F -p 14
-dupeCheck move -dupeHistory 11 2:5030/1256
EchoArea ru.hacker /home/fido/msgbasedir/ru.hacker -b Squish -g F -p 14
-dupeCheck move -dupeHistory 11 2:5030/1256
EchoArea ru.golded /home/fido/msgbasedir/ru.golded -b Squish -g F -p 14
-dupeCheck move -dupeHistory 11 2:5030/1256
EchoArea ru.linux.talks /home/fido/msgbasedir/ru.linux.talks -b Squish -g F -p
14 -dupeCheck move -dupeHistory 11 2:5030/1256
EchoArea ru.beer /home/fido/msgbasedir/ru.beer -b Squish -g F -p 14 -dupeCheck
move -dupeHistory 11 2:5030/1256
EchoArea r50.elections /home/fido/msgbasedir/r50.elections -b Squish -g F -p 14
-dupeCheck move -dupeHistory 11 2:5030/1256
С наилучшими пожеланиями, Petr.
25 ноя 10 в 09:45 ты написал(а) всем насчет "шаблон":
PM> Помогите написать шаблон. Hужно из строки вытащить название эхи
PM> EchoArea ru.php /home/fido/msgbasedir/ru.php -b Squish -g F -p 14
PM> -dupeCheck move -dupeHistory 11 2:5030/1256 EchoArea ru.cars.gaz&uaz
/^EchoArea (\S+)/i
25 Nov 2010 09:45:44, Petr Merkulov -> All:
PM> Помогите написать шаблон. Hужно из строки вытащить название эхи
PM> EchoArea ru.php /home/fido/msgbasedir/ru.php -b Squish
И опять задача решается шелл-скриптом (`man cut`)...
Но таки да:
#!/usr/bin/perl
open AREALIST, "< $ENV{HOME}/fido/etc/areas";
while(<AREALIST>)
{
($keyword,$name,@parameters)=split / +/;
$keyword =~ /echoarea/ && print "$name\n";
}
close AREALIST;
--
Alexey V. Vissarionov aka Gremlin from Kremlin
gremlin ПРИ gremlin ТЧК ru; +vii-cmiii-ccxxix-lxxix-xlii
... Имеющий глаза да увидит, имеющий уши да услышит, имеющий ноги да протянет
25 ноя 10 10:25, Igor Zakharoff -> Petr Merkulov в сообщении по ссылке
area://ru.perl?msgid=2:5030/2404+4cee0f64:
PM>> Помогите написать шаблон. Hужно из строки вытащить название эхи
PM>> EchoArea ru.php /home/fido/msgbasedir/ru.php -b Squish -g F -p 14
PM>> -dupeCheck move -dupeHistory 11 2:5030/1256 EchoArea
PM>> ru.cars.gaz&uaz
IZ> /^EchoArea (\S+)/i
Этот шаблон вытаскивает EchoArea ru.php
а надо без него
С наилучшими пожеланиями, Petr.
25 ноя 10 в 11:43 ты написал(а) мне насчет "шаблон":
PM>>> Помогите написать шаблон. Hужно из строки вытащить название эхи
PM>>> EchoArea ru.php /home/fido/msgbasedir/ru.php -b Squish -g F -p
PM>>> 14 -dupeCheck move -dupeHistory 11 2:5030/1256 EchoArea
PM>>> ru.cars.gaz&uaz
IZ>> /^EchoArea (\S+)/i
PM> Этот шаблон вытаскивает EchoArea ru.php
PM> а надо без него
Ну да. Тебе нужно взять из него $1. Например
while(<STDIN>) {
print $1 if /^EchoArea (\S+)/i;
}
выведет названия эх.
25 ноя 10 12:32, Igor Zakharoff -> Petr Merkulov в сообщении по ссылке
area://ru.perl?msgid=2:5030/2404+4cee2d6c:
PM>>>> Помогите написать шаблон. Hужно из строки вытащить название эхи
PM>>>> EchoArea ru.php /home/fido/msgbasedir/ru.php -b Squish -g F -p
PM>>>> 14 -dupeCheck move -dupeHistory 11 2:5030/1256 EchoArea
PM>>>> ru.cars.gaz&uaz
IZ>>> /^EchoArea (\S+)/i
PM>> Этот шаблон вытаскивает EchoArea ru.php
PM>> а надо без него
IZ> Hу да. Тебе нужно взять из него $1. Hапример
IZ> while(<STDIN>) {
IZ> print $1 if /^EchoArea (\S+)/i;
IZ> }
IZ> выведет названия эх.
Спасибо за помощь. как раз то что надо.
С наилучшими пожеланиями, Petr.