04.11.2007, 11:04
|
|
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
|
|
|