Прочитайте файл в массиве с помощью Perl

В настоящее время я читаю файл и сохраняю данные в массиве с именем @lines. Затем я прохожу через этот массив с помощью цикла for и внутри цикла, который я сопоставляю с определенными значениями:

$find = "fever";

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

В настоящий момент я использую скаляр, $find со значением fever вместо выполнения повторяющихся операторов для каждого фильтра.

Можно ли передать массив для сравнения вместо ключевого слова scalar?

Ответ 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>

Ответ 2

Если у вас есть Perl 5.10 или новее, вы можете использовать интеллектуальное сопоставление (~~):

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

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

Ответ 3

Используйте Tie:: File. Он загружает файл в массив, который вы можете манипулировать с помощью операций с массивами. Когда вы развяжете файл, его компоненты будут сохранены в файле.

Ответ 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. (На самом деле это превосходная альтернатива.)