|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Alex Bachin 2:5020/400 08 Aug 2001 14:40:40
To : All
Subject : что-то я туплю совсем.... посмотрите, а?
--------------------------------------------------------------------------------
# Вот такой кусочек. Hадо найти строки, у которых вначале
# идут два заданных совпадения
# Должна напечататься вторая строка
# и не должна напечататься пятая.
# А почему-то не печатается ничего :(((((
my @raws =
(
"abc,1,first line",
"def,2,second line",
"fgh,3,third line",
"xyz,2,fourth line",
"def,25,fifth line"
);
my $aaa = "def";
my $bbb = 2;
foreach ( @raws )
{
if ( /^\Q$aaa,\Q$bbb,/ )
{
print "$_\n";
}
}
# по ошибке сперва написал в эху цги (я же скрипт писал),
# но думаю, там это оффтопик и мне не ответят
--
Отправлено через сервер Talk.Ru - http://www.talk.ru
--- ifmail v.2.15dev5
* Origin: Talk.Ru (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
