forum.lissyara.su

Добавлено: **2010-04-02 13:05:27**

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

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:. Помогите кто может, а то очень нужен этот скрипт.

Добавлено: **2010-04-02 13:24:54**

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

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

Добавлено: **2010-04-02 20:26:22**

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

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

Добавлено: **2010-04-06 8:57:03**

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

Добавлено: **2010-04-08 13:35:08**

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

.106.1.172.16.112.171
и
.1.1.172.16.112.171

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

106
и
1

Добавлено: **2010-04-08 14:21:02**

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

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

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

Добавлено: **2010-04-08 14:55:05**

Пишу вот так:

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

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

Добавлено: **2010-04-08 15:33:14**

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

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

Добавлено: **2010-04-08 15:42:22**

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

Добавлено: **2010-06-05 1:55:22**

Гость писал(а):Может можно как-то и по-другому, но вот это даёт желаемый результат:
Код: Выделить всё
s/\.(\d+).+/$1/;

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

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

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