Тема: парсер
Показать сообщение отдельно

  #5  
Старый 04.11.2007, 11:04
demonoid
Banned
Регистрация: 12.01.2007
Сообщений: 113
Провел на форуме:
4094601

Репутация: 495
По умолчанию

Просто тренировка :)
Код:
#!perl
use strict;
use warnings;

my $s ='<Unnamed>:::1513:' =~ /<(.+)>:::(.+):/g;
print "$1;;;$2";
Код:
C:\>p.pl
Unnamed;;;1513
 
Ответить с цитированием