如何使用Perl计算大型CSV文件中的行数？

#!/usr/bin/perl

use strict;
use warnings;

my $file = "your_csv_file.csv";

open(my $fh, '<', $file) or die "Can't open $file: $!";

my $count = 0;

while (my $line = <$fh>) {
    $count++;
}

close($fh);

print "The number of lines in the CSV file is: $count\n";