Парсинг мак адреса

[Podedinov]

Помогите пожалуйста, есть мак такого вида 00:25:11:C1:18:A7 как из него сделать такого вида 0025.11C1.18A7

[Хостинг 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/

[Alex Keda]

разобрать на части и сложить
=======
язык какой?

[skeletor]

Когда-то мне самому нужен был такой скрипт, для выполнения команд на cisco. Ибо там МАСи без двоеточий.

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

echo то:есть:на:входе:имеем:строку | awk -F: '{print $1$2"."$3$4"."$5$6}'

[Podedinov]

Язык perl, все данные находятся в переменной. А если я уберу знаки ":" вот так

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

s/://g

и получится так 002511C118A7 а как из этого сделать это 0025.11C1.18A7

[Гость]

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

#!/usr/bin/perl

$macaddr = '00:25:11:C1:18:A7';
$macaddr =~ m/^(\w+):(\w+):(\w+):(\w+):(\w+):(\w+)/;
print $1.$2.'.'.$3.$4.'.'.$5.$6;

[Podedinov]

Мне это все на в переменную кинуть, а не на экран вывести.

[Гость]

а что сложно это присвоить в переменную?
вообще то тема подразумевала что вы не можете распарсить мак адреес
а не то что вы нифига не знаете перла

[негодую]

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

#!/usr/bin/perl

$macaddr = '00:25:11:C1:18:A7';
$macaddr =~ m/^(\w+):(\w+):(\w+):(\w+):(\w+):(\w+)/;
$mac = $1.$2.'.'.$3.$4.'.'.$5.$6;
print $mac;
#print $1.$2.'.'.$3.$4.'.'.$5.$6;

[Podedinov]

Спасибо все работает просто отлично.

[Alex Keda]

а что сложно это присвоить в переменную?
вообще то тема подразумевала что вы не можете распарсить мак адреес
а не то что вы нифига не знаете перла

улыбнуло