IPアドレスの最後のみ抽出したい

Question

お世話になります。

perlでipアドレスの第4オクテットのみを抽出したいのですが
どうしたらいいのでしょうか。

例
192.168.130.5
192.168.130.10
192.168.130.11
192.168.130.120
192.168.130.122

以下のように抽出したい。

5
10
11
120
122
ーーーーーーーーーーーーーーーーー
配列にipが入っているのを
第4オクテットのみの配列にしたい。

Answer 1

正規表現で取得が可能です。
(\d+)$
または
\d+\.\d+\.\d+\.(\d+)$

my $ipaddress = '192.168.130.5';
if ( $ipaddress =~ /\d+\.\d+\.\d+\.(\d+)$/ ) {
   print "$1\n";
}

コメントを受けての追記

foreachで配列を回して変更する形でどうでしょうか

use strict;
use warnings;
use Data::Dumper;

my $ip_list = [
	'192.168.130.5',  '192.168.130.10',
	'192.168.130.11', '192.168.130.120',
	'192.168.130.122'
];

print "修正前: " . Dumper($ip_list);

foreach my $ipaddress ( @{$ip_list} ) {
	$ipaddress = $1 if ( $ipaddress =~ /\d+\.\d+\.\d+\.(\d+)$/ );
}

print "修正後: " . Dumper($ip_list);

Comments

[shigoto]

有り難うございます。orz
書き忘れましたが、配列にIPがたくさん入っていてそれを
先ほどの第4オクテットのみの配列に置き換えたいのですが
どうしたらいいでしょうか？
map 関数を使用するのでしょうか。
上手くいきません。。

[shigoto]

有難うございます。
$ipaddress = $1 if ( $ipaddress =~ /\d+\.\d+\.\d+\.(\d+)$/ );
以下と同じ意味でしょうか。
if ( $ipaddress =~ /\d+\.\d+\.\d+\.(\d+)$/ ){ $ipaddress = $1}

[ester41]

その認識で間違いないです。

Answer 2

map関数を使うならこんな感じでしょうか。

use strict;
use warnings;
use Data::Dumper;

my @ip_list = (
    '192.168.130.5',  '192.168.130.10',
    '192.168.130.11', '192.168.130.120',
    '192.168.130.122'
);

print "before:" . Dumper(@ip_list);
map {s/\d+\.\d+\.\d+\.(\d+)$/$1/} @ip_list;
print "after:" . Dumper(@ip_list);

Comments

[shigoto]

map関数を使用した例をありがとうございました。大変参考になりました。