Регулярные выражения в Perl

[Darnet]

Гуру можете подсказать как мне отформатировать строку, у меня есть переменная с таким содержанием:

Код: Выделить всё

Hex-STRING: 00 1A 4D 30 FA 08 

Мне надо сделать чтобы она была в вида:

Код: Выделить всё

00:1a:4d:30:fa:08

Вот что у меня получилось:

Код: Выделить всё

s/"//g; s/\s*$//; s/ /:/g; s/(.)/\l\1/g;

Только здесь perl ругается на \1 и не убирает Hex-STRING:. Помогите кто может, а то очень нужен этот скрипт.

[Хостинг HostFood.ru]

Тарифы на хостинг в России, от 12 рублей: https://www.host-food.ru/tariffs/hosting/
Тарифы на виртуальные сервера (VPS/VDS/KVM) в РФ, от 189 руб.: https://www.host-food.ru/tariffs/virtualny-server-vps/
Выделенные сервера, Россия, Москва, от 2000 рублей (HP Proliant G5, Intel Xeon E5430 (2.66GHz, Quad-Core, 12Mb), 8Gb RAM, 2x300Gb SAS HDD, P400i, 512Mb, BBU):
https://www.host-food.ru/tariffs/vydelennyi-server-ds/
Недорогие домены в популярных зонах: https://www.host-food.ru/domains/

[Гость]

Что-то типа может этого:

Код: Выделить всё

my $a = "Hex-STRING: 00 1A 4D 30 FA 08";
$a =~ s/(?:[^:]+: )((?:[\dA-F]{2} ?)+)/$1/;
$a =~ tr/A-F /a-f:/;

[Гость]

кстати. чё-то сразу не подумал... можно же проще:

Код: Выделить всё

my $a = "Hex-STRING: 00 1A 4D 30 FA 08";
$a = substr($a, 12);
$a =~ tr/A-F /a-f:/;

[Darnet]

Большое спасибо все получилось.

[Darnet]

Помогите вот еще одной строкой, так же есть переменная с таким содержанием:

Код: Выделить всё

.106.1.172.16.112.171
и
.1.1.172.16.112.171

Как мне сделать ее такого вида

Код: Выделить всё

106
и
1

[Гость]

Если надо выдернуть первое число, то:

Код: Выделить всё

my $a = ".106.1.172.16.112.171";
$a =~ /(\d+)/;

и теперь в переменной $1 будет это самое число.

[Darnet]

Пишу вот так:

Код: Выделить всё

s/(\d+)/$1/;

Вроде все правильно, а все равно не заменяет. Где может быть ошибка?

[Гость]

Может можно как-то и по-другому, но вот это даёт желаемый результат:

Код: Выделить всё

s/\.(\d+).+/$1/;

[Podedinov]

Большое спасибо, все работает как надо.

[Гость]

Может можно как-то и по-другому, но вот это даёт желаемый результат:

Код: Выделить всё

s/\.(\d+).+/$1/;

не совсем коректно
так правильнее

Код: Выделить всё

s/^\.(\d+).+/$1/;