2010-10-23から1日間の記事一覧
こんな感じ? 正規表現がちょっとアレかなあ。 #!/usr/bin/env perl use common::sense; my @interfaces = split /\n\n/, `LANG=C; /sbin/ifconfig -a`; my %reg = ( link_encap => qr/Link encap:(\S+)/, mac_address => qr/HWaddr\s(([[:xdigit:]]{2}:){5}[…
こんな感じ? 正規表現がちょっとアレかなあ。 #!/usr/bin/env perl use common::sense; my @interfaces = split /\n\n/, `LANG=C; /sbin/ifconfig -a`; my %reg = ( link_encap => qr/Link encap:(\S+)/, mac_address => qr/HWaddr\s(([[:xdigit:]]{2}:){5}[…