Программирование > Perl

Выбор по шаблону

(1/1)

webser:
Возникла задача разобрать строку по определенным правилам.
Например, разбить
$articul = "11/3-0055"  на 11 (до /) и 3 (между / и - )
Как сделать первое - нашел -
$tmp_articul = ($articul=~/^(\\w+)\\//)[0]; # выделение части из артикула для идентификации
print "articul :::: ", $articul,"   |     часть :::: ", $tmp_articul,"
";

получаем $tmp_articul = 11

А как достать комбинацию символов между / и - . т.е. 3 - никак. И так, и эдак пробовал, в инете и книги смотрел - не получается.
Помогите получить выражение.

Заранее благодарен.

P.S. Может можно сразу в массив получить три переменные - 11, 3 и 0055

APL:
@a = ($articul=~/^(\\w+)\\/(\\w+)\\-(\\w+)/) ;
print join \', \', @a;

webser:
Спасибо...

arto:
(split "/-",$_)[0,1]

Навигация

[0] Главная страница сообщений