1

我写了以下程序，希望能成功。但我永远无法得到它。

my $fileName = 'myfile.txt';
print $fileName,"\n";

if (open MYFILE, "<", $fileName) {
    my $Data;
    {
        local $/ = undef;
        $Data = <MYFILE>;
    }
    my @values = split('\n', $Data);
    chomp(@values);

    if($values[2] eq '9999999999')  {
        print "Success"."\n";
    }

}

myfile.txt 的内容是

160002
something
9999999999
700021
4

4 回答 4

1

您无需将整个文件读入数组即可检查一行。打开文件，跳过您不关心的行，然后播放您关心的行。完成需要做的事情后，停止读取文件。这样，内存中只有一行：

my $fileName = 'myfile.txt';
open MYFILE, "<", $fileName or die "$filename: $!";

while( <MYFILE> ) {
    next if $. < 3;  # $. is the line number
    last if $. > 3;

    chomp;
    print "Success\n" if $_ eq '9999999999';
    }

close MYFILE;
于 2013-06-14T20:18:51.940 回答
1

尝试拆分\s*[\r\n]+

my $fileName = 'myfile.txt';
print $fileName,"\n";

if (open MYFILE, "<", $fileName) {
    my $Data;
    {
        local $/ = undef;
        $Data = <MYFILE>;
    }
    my @values = split(/\s*[\r\n]+/, $Data);

    if($values[2] eq '9999999999')  {
        print "Success";
    }

}
于 2013-06-14T16:51:39.913 回答
1

如果myfile.txt包含回车符（CR，\r），它将无法按预期工作。另一个可能的原因是换行符之前的尾随空格（LF，\n）。

于 2013-06-14T16:43:58.210 回答
0 
my $fileName = 'myfile.txt';
open MYFILE, "<", $fileName || die "$fileName: $!";

while( $rec = <MYFILE> ) {
   for ($rec) { chomp; s/\r//; s/^\s+//; s/\s+$//; } #Remove line-feed and space characters
   $cnt++;  
   if ( $rec =~ /^9+$/ ) { print "Success\n"; last; }  #if record matches "9"s only 
                                                       #print "Success" and live the loop  
}

close MYFILE;

#Or you can write: if ($cnt==3 and $rec =~ /^9{10}$/) { print "Success\n"; last; } 
#If record 3 matches ten "9"s print "Success" and live the loop.
于 2013-06-16T10:24:01.167 回答