ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Sergey Gernichenko 2:5079/32.34 11 Nov 2001 17:08:17
To : All
Subject : Re: Можно ли в одну строчку?
--------------------------------------------------------------------------------
10 Nov 01 21:47, I wrote to all:
SG> while (<points>)
SG> {
SG> $p{$1}='"'.$2.'"' if (/(\d+)\s+4[dD]\s+([a-zA-Z' ]+?)\s*($|;)/);
SG> }
После Ваших советов остановился на такой строке:
/^\s*(\d+)\s+4[dD]\s+([^;]+?)\s*($|;)/ && $1>0 && ($p{$1}=$2)=~ s/ +/_/g while
(<points>);
Пытаясь укоротить этот регэсп ещё, заменил последнюю группу "($|;)" на ";?"
В результате $2 стало принимать зачение только первой буквы имени. Почему?
Sergey
--- GoldED+/W32 1.1.5-1017
* Origin: Hет его пока... (2:5079/32.34)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
