如何使用Perl从文本文件中提取IP地址？

#!/usr/bin/perl

use strict;
use warnings;

# 打开文本文件
open(my $fh, '<', 'file.txt') or die "无法打开文件: $!";

# 逐行读取文件内容
while (my $line = <$fh>) {
    # 使用正则表达式匹配IP地址
    my @ips = $line =~ /(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})/g;

    # 输出匹配到的IP地址
    foreach my $ip (@ips) {
        print "$ip\n";
    }
}

# 关闭文件
close($fh);