|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Ilia Vinokurov 2:5020/400 03 Jul 2003 11:06:35 To : …. Љ®ў «м Subject : Re: разбор строки --------------------------------------------------------------------------------
> Разобрался, помогло, спасибо
>
> > Может поможет. Hе тестировал.
> >
> > $Str =~ /([^\@]*)\@([^:]*):([^:]*):(.*)/o
А еще можно и так:
( $Community, $Router, $Interface, $a ) = split /[:\@]/, $Str;
--- ifmail v.2.15dev5
* Origin: Comcor (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/780824f4c6ad.html, оценка из 5, голосов 10
|