ru.perl
- RU.PERL ----------------------------------------------------------------------
From : vilfred 2:5020/400 11 Nov 2001 03:40:18
To : Sergey Gernichenko
Subject : че-то типа вроде этого....
--------------------------------------------------------------------------------
hi!
SG> while (<points>)
SG> {
SG> $p{$1}='"'.$2.'"' if
SG> (/(\d+)\s+4[dD]\s+([a-zA-Z' ]+?)\s*($|;)/);
SG> }
SG> Можно ли записать в одну строчку? Как?
SG> Почти устраивает такое:
SG> $p{$1}='"'.$2.'"' while (<points> =~
SG> /(\d+)\s+4[dD]\s+([a-zA-Z' ]+?)\s*($|;)/);
SG> Hо в первой строчке файла данные, не
SG> удовлетворяющие регэспу. То есть, такие:
SG> === begin Windows Clipboard ===
SG> Data Point Points
SG> 0 4D Main
SG> 34 4D Sergey Gernichenko
SG> #END# Data
SG> === end Windows Clipboard ===
SG> Заранее спасибо.
$p{$1}=$2 while <points>=~m!(\d+)\s+4d\s+(\w+):?!i;
SG> Sergey
Дима
--
TEAM [Маньяки]
Отправлено через сервер Talk.Ru - http://www.talk.ru
--- ifmail v.2.15dev5
* Origin: Talk.ru (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
