在Perl中,如何导入示例CSV,执行基本文本操作,然后将其保存回CSV？

cpan install Text::CSV

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

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

# 读取CSV文件的内容
my @rows;
while (my $row = $csv->getline ($fh)) {
    push @rows, $row;
}

# 关闭文件
close $fh or die "Cannot close 'example.csv': $!";

# 执行基本文本操作
foreach my $row (@rows) {
    # 在这里执行你想要的文本操作，例如将每个单元格的内容转换为大写
    @$row = map { uc $_ } @$row;
}

# 将修改后的内容保存回CSV文件
open $fh, ">:encoding(utf8)", "example_modified.csv" or die "Cannot open 'example_modified.csv': $!";
$csv->print ($fh, $_) for @rows;
close $fh or die "Cannot close 'example_modified.csv': $!";

perl csv_example.pl