Как удалить элементы из массива Perl, используя grep и shift?

Question

Мне нужно удалить символ записи данных и любые пустые строки в dataRecord, используя perl.

, например,

$/ = "__Data__"

__Data__
riririririr
djkfkdfjkdjkf
dghghghghghghg
(blank line)

     my @dataRecord = split(/\n/);
     grep(/(__Data__|/,@dataRecord);

Как удалить ненужные элементы вмассив, основанный на фильтрации grep?

Answer 1

Это должно работать:

my @filered_list = grep { length( $_ ) and $_ ne '__Data__' } @dataRecord;

Answer 2

Не уверен, что здесь происходит с разделителем входных записей, и использование разбиения недопустимо, если не используется неявное $_.

---

Чтобы ответить на вопрос, используйте! оператор для отрицания смысла совпадения:

@dataRecord = grep { ! /__Data__|^$/ } @dataRecord;

В этом случае ! также можно заменить на not:

@dataRecord = grep { not /__Data__|^$/ } @dataRecord;

Answer 3

Хорошо, если вы хотите, чтобы элементы соответствовали критериям:

@dataRecord = grep(/expr/,@dataRecord);

(при условии, что элементы, которые вам не нужны в массиве, - это те, которые не проходят соответствующее регулярное выражение).