如何在Perl中实现单行内多字符串（含IP地址）的匹配提取？

Hey there! Let's fix that multi-condition matching issue you're having with Perl's grep function. First, let's break down what went wrong with your previous attempts, then walk through two reliable solutions tailored to your file format.

先分析你之前写法的问题 #

Your target lines follow this structure:

access abc permit tcp sourceipaddress sourcesubnet destipaddr destsubnet eq portnumber

Most of your earlier attempts failed for one of these reasons:

• Partial matching instead of exact field checks: Using $_ =~ "$sIP" checks if the string contains the IP anywhere in the line, not if the specific source IP field equals it.
• Syntax/logical errors: For example, grep /$fld0/ && /$sIP/, @gitFile doesn't apply both conditions to each line—it evaluates the expression once and uses that boolean to filter all lines.
• Incorrect array handling: @gitFile =~ /.../ treats the entire array as a single string, which won't extract matching lines.

解决方案1：拆分字段后精确匹配（推荐） #

This approach splits each line into fields during the grep operation, then checks the exact positions of source IP, destination IP, and port. It's straightforward and avoids regex pitfalls like unescaped dots in IP addresses.

First, define your target values (replace these with your actual variables):

my $target_src_ip = "192.168.1.1";   # 要匹配的源IP
my $target_dest_ip = "10.0.0.1";     # 要匹配的目的IP
my $target_port = "80";              # 要匹配的端口

Then use grep with field checks:

my @matched_lines = grep {
    # 拆分当前行为字段数组
    my @fields = split(' ', $_);
    # 先确保行有足够的字段，避免索引越界报错
    scalar(@fields) >= 10 &&
    $fields[4] eq $target_src_ip &&  # 源IP是第5个字段（索引4）
    $fields[6] eq $target_dest_ip && # 目的IP是第7个字段（索引6）
    $fields[9] eq $target_port       # 端口是第10个字段（索引9）
} @gitFile;

解决方案2：使用正则表达式精确匹配整行 #

If you prefer regex, you can build a pattern that strictly matches the line structure. Remember to escape special characters like dots in IP addresses (we'll use quotemeta to handle that automatically):

# 转义特殊字符，避免正则匹配错误
my $escaped_src = quotemeta($target_src_ip);
my $escaped_dest = quotemeta($target_dest_ip);
my $escaped_port = quotemeta($target_port);

# 构建匹配整行的正则
my $line_regex = qr/^access \S+ permit tcp $escaped_src \S+ $escaped_dest \S+ eq $escaped_port$/;

# 提取匹配的行
my @matched_lines = grep { $_ =~ $line_regex } @gitFile;

关键注意事项 #

• Always validate that lines have enough fields before accessing indexes (like scalar(@fields) >=10) to avoid runtime errors from malformed lines.
• Use eq for exact string comparisons instead of regex matches when you need to check if a field equals a specific value—this prevents accidental partial matches.

内容的提问来源于stack exchange，提问作者Vibes