|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Konstantin Stepanenkov 2:5030/1251 09 Aug 2001 22:48:22
To : Sanyo Titaev
Subject : что-то я туплю совсем.... посмотрите, а?
--------------------------------------------------------------------------------
10 Aug 01 00:32, you wrote to me:
AB>>>> if ( /^\Q$aaa,\Q$bbb,/ )
ST>>> print "$_\n" if /^\Q$aaa,$bbb,/ ;
ST>>> но при таком раскладе 5 строчку ловить не будет - запятая
ST>>> мешает
KS>> /\A$aaa[^,]*,$bbb/ -- может так?
ST> можно конечно и так, но проще
ST> /^$aaa,$bbb/
Извиняюсь. Повелся на фразу "вначале два совпадения" -- я решил, что начало
каждого поля должно совпадать с шаблоном.
Кстати, к вопросу о скорости выполнения регексов. А вот это будет не
быстрее?
$ccc = "$aaa,$bbb,";
if ($ccc eq substr ($_, 0, length $ccc)) {
...
}
/kst [mailto:kst@920.spb.ru] [icq#83915479]
--- GoldED+/BSD 1.1.4.7
* Origin: Alien Telecom (2:5030/1251)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
