使用perl将文本中的某一列抓出来并进行去重

在Perl中，你可以使用文本处理模块如Text::CSV或Data::Dumper来读取CSV文件，并通过数组或哈希数据结构来存储每一列的数据。然后，对于要去重的一列，可以遍历这个数组或哈希，移除重复的元素。以下是一个简单的例子，假设我们有一个CSV文件，我们要抓取第二列并去除重复：

use Text::CSV;

# 打开CSV文件
my $csv = Text::CSV->new({ binary => 1 }) or die "Cannot use CSV: ".Text::CSV->error_diag();
open my $fh, "<", "input.csv" or die "input.csv: $!";

# 初始化一个哈希来保存不重复的值
my %seen;
my @unique_values;

# 遍历文件
while (my $row = $csv->getline($fh)) {
    # 取出第二列的值
    my $value = $row->[1];

    # 如果该值还没出现过，添加到数组
    unless ($seen{$value}) {
        push @unique_values, $value;
        $seen{$value} = 1;
    }
}

# 关闭文件
close $fh;

# 现在@unique_values包含了第二列去重后的值

# 如果需要，你可以将结果保存到新的CSV文件或直接输出