如何在while循环中使用length函数？ （Perl的）

Question

我正在完成一项学校作业，要求我修改以下循环，以获得＆＃34; L2seq1.txt＆＃34;中的行数和字符数。我应该通过使用长度函数来做到这一点，还包括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_without\n";