如何在while循环中使用长度函数?(Perl)

Question

我只是在做一个学校作业，要求我修改以下循环以获得"L2seq1.txt"中的行数和字符数，我应该通过使用长度函数来做到这一点，还包括 chomp。然而，我对此很陌生，遇到了一些麻烦，所以我非常感谢您的帮助。谢谢！

open(SEQ, "<", "L2seq1.txt") or die;
while (my $line = <SEQ>) {
print $line;   
}
close SEQ or die;

Answer 1

#!/usr/bin/env perl
use strict;
use warnings;
my ( $length_with_nl, $length_without );
open my $seq, '<', "L2seq1.txt" or die "could not open L2seq1.txt: $!n";
while ( readline $seq ) {
    $length_with_nl += length;
    chomp;
    $length_without += length;
}
my $lines = $.;
close $seq;
print "lines $lines lwn $length_with_nl lwout $length_withoutn";