|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Igor Lavrov 2:5093/4.777 03 Jul 2003 10:33:50
To : …. Љ®ў «м
Subject : разбор строки
--------------------------------------------------------------------------------
> Помогите, плизз, с разбором строки
> COMMUNITY@ROUTER:Serial3/0:0
> Hужно выделить отсюда COMMUNITY, ROUTER, Serial3/0:0
> Портят все символы ":" - шаблон типа:
> ( $Community, $Router, $Interface ) = $Str =~ /(\S+)\@(\S+):(\S+)/
> Дает такое:
> Community=COMMUNITY
> Router = router1:Serial3/0
> Interface=0
> А нужно, чтобы после 1-го : все остальное считалось в Interface
( $Community, $Router, $Interface ) = $Str =~ /(\S+)\@(\S+?):(\S+)/
Igor
--- GoldED+/W32 1.1.5-030609
* Origin: Press any key to continue or any other key to reboot. (2:5093/4.777)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
