在 Perl 中，如何读取符合条件的行的部分内容？

Question

示例数据：

603       Some garbage data not related to me, 55, 113 ->

1-ENST0000        This is sample data blh blah blah blahhhh
2-ENSBTAP0        This is also some other sample data
21-ENADT)$        DO NOT WANT TO READ THIS LINE. 
3-ENSGALP0        This is third sample data
node #4           This is 4th sample data
node #5           This is 5th sample data

This is also part of the input file but i dont wish to read this. 
Branch -> 05 13, 
      44, 1,1,4,1

17, 1150

637                   YYYYYY: 2 : %

编辑：在上述数据中。 这些部分的列宽是固定的，但可能有一些部分我不想阅读。 上面的示例数据已被编辑以反映这一点。

因此，在这个输入文件中，我想将第一部分“1-ENST0000”的内容读入一个数组，并将“2-ENSBTAP0”的内容读入一个单独的数组，依此类推。

我在想出一个定义模式的正则表达式时遇到了麻烦...前三行有 -ENS 然后还可以有 node #<这里有一些数字>

Answer 1

这真的是一个固定列文件吗？ 如果是这样，那么就不用担心正则表达式了。 只需按照列宽进行分割，或许可以修剪第 1 列的尾随空白。

Answer 2

好的，根据您后来的评论，这与上一个问题有点不同。 另外，我现在意识到 node #54 是第一列中的有效条目。

更新：我现在也意识到您不需要第一列。

更新： 一般来说，您既不想也不需要在 Perl 中处理字符数组。

更新：现在您已经澄清了应该跳过什么和不应该跳过什么，这里有一个处理该问题的版本。 添加模式以适应 if 条件。

#!/usr/bin/perl

use strict;
use warnings;

my @data;

while ( <DATA> ) {
    chomp;

    if ( /^[0-9]+-ENS.{5} +(.+)$/
            or /^node #[0-9]+ +(.+)$/
    ) {
        push @data, [ split //, $1 ];
    }
}

use Data::Dumper;
print Dumper \@data;

__DATA__
603       Some garbage data not related to me, 55, 113 ->

1-ENST0000        This is sample data blh blah blah blahhhh
2-ENSBTAP0        This is also some other sample data
21-ENADT)$        DO NOT WANT TO READ THIS LINE. 
3-ENSGALP0        This is third sample data
node #4           This is 4th sample data
node #5           This is 5th sample data

This is also part of the input file but i dont wish to read this. 
Branch -> 05 13, 
      44, 1,1,4,1

17, 1150

637                   YYYYYY: 2 : %

至于学习如何钓鱼，我建议您阅读 perldoc perltoc 中相关的所有内容。