|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Konstantin Scheglov 2:5036/29.1 12 Jun 2000 11:59:41 To : Paul Kulchenko Subject : RE --------------------------------------------------------------------------------
12 Jun 00 09:01, Paul Kulchenko wrote to All:
PK> Самый нормальный способ для длинного списка:
PK> $result{qw(var1 var2 var3)} = /(\w+)\W+(\w+)\W+(\w+)/;
PK> После этого в %result будет все, что нужно. Добавились переменные,
PK> вставь их имя в список. Все.
Спасибо.
Я дошел до такого:
print scalar ( ($var1, $var2, $var3) = ( $s =~ /(\d+)\D+(\d+)\D+(\d+)/ ) );
--
С уважением, Konstantin.
---
* Origin: unknown. (2:5036/29.1)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/27743944f021.html, оценка из 5, голосов 10
|