|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Sanyo Titaev 2:5070/66.1 09 Aug 2001 00:10:19
To : Alex Bachin
Subject : что-то я туплю совсем.... посмотрите, а?
--------------------------------------------------------------------------------
08 Aug 29 14:40, Alex Bachin wrote to All:
AB> From: bachin@chat.ru (Alex Bachin)
AB> # Вот такой кусочек. Hадо найти строки, у которых вначале
AB> # идут два заданных совпадения
AB> # Должна напечататься вторая строка
AB> # и не должна напечататься пятая.
AB> # А почему-то не печатается ничего :(((((
AB> my @raws =
AB> (
AB> "abc,1,first line",
AB> "def,2,second line",
AB> "fgh,3,third line",
AB> "xyz,2,fourth line",
AB> "def,25,fifth line"
AB> );
AB> my $aaa = "def";
AB> my $bbb = 2;
AB> foreach ( @raws )
AB> {
AB> if ( /^\Q$aaa,\Q$bbb,/ )
print "$_\n" if /^\Q$aaa,$bbb,/ ;
но при таком раскладе 5 строчку ловить не будет - запятая мешает
AB> {
AB> print "$_\n";
AB> }
AB> }
Sanyo
--- GoldED/386 3.00.Beta5+
* Origin: -=The Bulls=- mailto:tit@irk.ru (2:5070/66.1)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
что-то я туплю совсем.... посмотрите, а? 