ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Sergey Gernichenko 2:5079/32.34 10 Nov 2001 22:47:00
To : All
Subject : Можно ли в одну строчку?
--------------------------------------------------------------------------------
Вот кусок из проги.
while (<points>)
{
$p{$1}='"'.$2.'"' if (/(\d+)\s+4[dD]\s+([a-zA-Z' ]+?)\s*($|;)/);
}
Можно ли записать в одну строчку? Как?
Почти устраивает такое:
$p{$1}='"'.$2.'"' while (<points> =~ /(\d+)\s+4[dD]\s+([a-zA-Z' ]+?)\s*($|;)/);
Hо в первой строчке файла данные, не удовлетворяющие регэспу. То есть, такие:
=== begin Windows Clipboard ===
Data Point Points
0 4D Main
34 4D Sergey Gernichenko
#END# Data
=== end Windows Clipboard ===
Заранее спасибо.
Sergey
--- GoldED+/W32 1.1.5-1017
* Origin: Hет его пока... (2:5079/32.34)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
