用perl语言写一段正则表达式 用于匹配ipv4地址

以下是一个使用Perl语言编写的正则表达式，用于匹配IPv4地址：

my $regex = qr/^((?:\d{1,3}\.){3}\d{1,3})$/;

# 示例输入
my @inputs = ("192.168.0.1", "10.0.0.1", "256.0.0.1", "abc.def.ghi.jkl");

foreach my $input (@inputs) {
    if ($input =~ $regex) {
        print "$input 是一个有效的IPv4地址\n";
    } else {
        print "$input 不是一个有效的IPv4地址\n";
    }
}

上述代码中，正则表达式 `^((?:\d{1,3}\.){3}\d{1,3})$` 用于匹配IPv4地址。它的含义是：

- `^` 表示匹配行的开头
- `(?:\d{1,3}\.){3}` 表示匹配一个由 1 到 3 位数字和一个点号组成的组合，重复三次
- `\d{1,3}` 表示匹配一个由 1 到 3 位数字组成的组合
- `$` 表示匹配行的结尾

在示例输入中，`@inputs` 数组包含了几个不同的字符串，用于测试正则表达式的匹配结果。根据匹配结果，分别输出是否为有效的IPv4地址。

请注意，上述正则表达式只检查了IPv4地址的格式，而不验证其有效性。在实际使用中，您可能还需要进行额外的验证以确保IP地址的合法性。