Я хотел проанализировать данные с тем же идентификатором метки (столбец A и B), разница в том, что столбец в Excel CSV-файл, а затем анализ столбца C, D

Question

У меня есть файл Excel CSV для анализа с 2 столбцами A & B, моя цель - если условие столбца A & B будет соответствовать, тогда он будет анализировать столбец C & D. Пожалуйста, помогите мне кодировать это в perl. Пожалуйста, посмотрите пример данных для анализа.

Answer 1

Вот пример, который печатает строки с 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;