Я хотел бы создать такой массив @exclude = ("[INFO] Reading file", "[INFO] All file(s) read"); который содержит элементы, которые я хотел бы игнорировать при просмотре другого массива

Другой массив - это @nyuulog, который я приготовил из файла и выглядит примерно так:

[INFO] Uploading 37 article(s) from 3 file(s) totalling 23.98 MiB```
[INFO] Reading file 157.1.1.par2...
[INFO] Reading file 159.1.1.rar...
[INFO] Reading file 159.1.1.vol0+1.par2...
[INFO] All file(s) read...
[INFO] Finished uploading 23.98 MiB in 00:00:16.083 (1527.03 KiB/s). Raw upload: 2613.34 KiB/s

Итак, я использую это:

foreach $line(@nyuulog) {print $txtfile("$line\n");}

Который записывает все строки, но я хочу не записывать строки в дескриптор файла, который содержит элемент в массиве @exclude.

Есть простой способ сделать это? Я пробовал множество попыток использовать grep или новую команду Perl ~~ (которая, я не думаю, применима в этой ситуации), и не могу получить правильную комбинацию команд.

Любая помощь или указание мне в правильном направлении - были бы очень признательны.

Спасибо

1
Todd 21 Авг 2020 в 04:58

2 ответа

Лучший ответ

Попробуй это:

my $FilterRe = join("|", map({"(^\Q$_\E)"} @exclude));
my @Filtered = grep({!/$FilterRe/} @nyuulog);

На основе вопроса о perlmonks.

2
Light 21 Авг 2020 в 03:06

Создайте поисковый хэш для того, что нужно исключить, и отфильтруйте с его помощью массив

my %excl = map { $_ => 1 } @exclude;

my @filtered = grep { not $excl{$_} } @original; 

Это примерно так же эффективно, как обработка списков, O (N) , и, надеюсь, понятно и легко.

Также может быть в блоке do, чтобы избежать плавающей вокруг дополнительной переменной (%excl)

my @filtered = do { 
    my %excl = map { $_ => 1 } @exclude;
    grep { not $excl{$_} } @original;
};
3
zdim 21 Авг 2020 в 16:07