使用Perl在CSV文件中查找匹配项

本脚本使用Perl语言，在CSV格式的文件中查找匹配项。通过用户输入的关键词，在指定的列中查找匹配项并输出。

#!/usr/bin/perl
use strict;
use warnings;
use Text::CSV;

#打开CSV文件，解析数据
my $csv = Text::CSV->new ({ binary => 1 }) 
    or die "无法使用 Text::CSV 库:";
open my $fh, "<:encoding(utf8)", "data.csv" 
    or die "无法打开 data.csv: $!";
my $header = $csv->getline( $fh );  #获取表头
$csv->column_names($header);       #设置表头为列名

#用户输入关键词和查找的列
print "请输入关键词：";
chomp(my $keyword = <STDIN>);
print "请输入查找列的列名：";
chomp(my $column_name = <STDIN>);

#查找匹配项并输出
while ( my $row = $csv->getline_hr( $fh ) ) {
    if ( $row->{$column_name} =~ /$keyword/ ) {
        print "$row->{name} 匹配\n";
    }
}
close $fh;

免责申明：文章和图片全部来源于公开网络，如有侵权，请通知删除 server@dude6.com