Question

我正在读取文件并将数据存储在名为@lines的数组中。然后，我使用for循环遍历此数组，并在循环内部匹配某些值：

$find = "fever";

if ($_ =~ /$find/) {
    print "$_\n";
    $number++;
    #@lines =
    #print ("there are : " . $number);
}

目前，我使用标量$find，其值为fever，而不是为每个过滤器执行重复性陈述。

我可以传递数组进行比较而不是标量关键字吗？

Answer 1

如果您将文件读入列表，则会立即执行所有操作

@array = <$fh>;  # Reads all lines into array

将其与读入标量上下文进行对比

$singleLine = <$fh>;  # Reads just one line

一次阅读整个文件可能会有问题，但你明白了。

然后您可以使用grep来过滤您的数组。

@filteredArray = grep /fever/, @array;

然后你可以使用scalar得到过滤行的计数，这会强制解释数组的标量（即单值）上下文，在这种情况下返回一个计数。

print scalar @filteredArray;

全部放在一起......

C:\temp>cat test.pl
use strict; use warnings;  # always

my @a=<DATA>;  # Read all lines from __DATA__

my @f = grep /fever/, @a;  # Get just the fevered lines

print "Filtered lines = ", scalar @f;  # Print how many filtered lines we got

__DATA__
abc
fevered
frier
forever
111fever111
abc

C:\temp>test.pl
Filtered lines = 2
C:\temp>

Answer 2

如果你有Perl 5.10或更高版本，你可以使用智能匹配（~~）：

my @patterns = (qr/foo/, qr/bar/);

if ($line ~~ @patterns) {
    print "matched\n";  
}

Answer 3

使用Tie::File。它将文件加载到一个数组中，您可以使用数组操作进行操作。解开文件后，其组件将保存回文件中。

Answer 4

您也可以使用File::Slurp模块，这很方便。

use strict;
use warnings;
use File::Slurp 'read_file';

my $fname = shift or die 'filename!';
my @lines = grep /fever/, read_file $fname; # grep with regular expression
print @lines;

如果您是Perl的新用户，请查看map和grep运算符，这些运算符非常便于处理列表。

另外，请查看ack实用程序，它是find / grep的绝佳替代品。（实际上，这是一个更好的选择。）

使用Perl将文件读入数组

4 个答案: