如何从Perl中的CSV文件中过滤掉特定列？

#!/usr/bin/perl

use strict;
use warnings;
use Text::CSV;

# 创建一个新的CSV对象
my $csv = Text::CSV->new ({
    binary    => 1,
    auto_diag => 1,
    sep_char  => ',',
});

# 打开输入文件
open my $input_fh, "<:encoding(utf8)", "input.csv" or die "Can't open input.csv: $!";

# 读取输入文件的第一行，即列名
my $header = $csv->getline ($input_fh);

# 指定要过滤掉的列名
my $column_to_filter = "column_name";

# 在列名数组中找到要过滤掉的列的索引
my $column_index;
for (my $i = 0; $i< scalar @$header; $i++) {
    if ($header->[$i] eq $column_to_filter) {
        $column_index = $i;
        last;
    }
}

# 如果找到了要过滤掉的列，则跳过它
if (defined $column_index) {
    while (my $row = $csv->getline ($input_fh)) {
        splice (@$row, $column_index, 1);
        # 对于每一行，处理过滤掉的列之后的数据
        # ...
    }
}

# 关闭输入文件
close ($input_fh);