Fatal编程技术网
  • perl/
  • 如何在while循环中使用length函数？（Perl）

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

perl

如何在while循环中使用length函数？（Perl）,perl,Perl,我正在做一个学校作业，它要求我修改下面的循环，以获得“L2seq1.txt”中的行数和字符数。我应该使用长度函数并包括chomp。 然而，我在这方面很新，遇到了一些麻烦，所以我将非常感谢您的帮助。 谢谢大家! open(SEQ, "<", "L2seq1.txt") or die; while (my $line = <SEQ>) { print $line; } close SEQ or die; 打开（SEQ），#！/usr/bin/env perl 严格使用； 使

我正在做一个学校作业，它要求我修改下面的循环，以获得“L2seq1.txt”中的行数和字符数。我应该使用长度函数并包括chomp。 然而，我在这方面很新，遇到了一些麻烦，所以我将非常感谢您的帮助。 谢谢大家!

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

打开（SEQ），
#！/usr/bin/env perl
严格使用；
使用警告；
my（$length_with_nl，$length_without）；

打开我的$seq，'你可以和你的老师澄清换行符是否是“字符”，因为chomp会删除它。。。

#!/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";