我有excel csv文件可以解析2列A和B列，我的目标是如果满足A和B列的条件，它将解析C列和D列。请帮助我在perl中对此进行编码。请查看要解析的样本数据。
zhw_19890108 回答：我想解析具有相同标签ID（A和B列）的数据，不同之处在于excel csv文件中的列然后解析C，D列
这里是打印col0 == col1的行的示例：
use feature qw(say);
use strict;
use warnings;
my $fn = 'file.csv';
open ( my $fh,'<',$fn ) or die "Could not open file '$fn': $!";
while( my $line = <$fh> ) {
chomp $line;
my @arr = split /,/,$line;
next if @arr < 2;
next if $arr[0] !~ /^\d+$/;
next if $arr[1] !~ /^\d+$/;
say join ',',@arr if $arr[0] == $arr[1];
}
close $fh;