perl - 列から値を読み取る方法

Question

列の値を読み取る必要がある場合 (最初)、列は既に下の表のタブで区切られています。perlでこれを行うにはどうすればよいですか。誰かがこれについて助けてくれますか。以下に表を示します。

                                                         First    Available
JAB                       Result        Dat Con?         Con?     
--------                 ------        ---------------   -----   ---------
SLAL_DEPE                SUCCESS       No                Yes     No

ここでは、最初のコンは「はい」です..この値を読み取りたいです。あなたの知識を私と共有してください.....

Answer 1

どうですか：

use strict;
use warnings;

while(<DATA>) {
    chomp;
    my @vals = split/\t+/;
    print $vals[3],"\n" if defined($vals[3]) && $vals[3] eq 'Yes';
}

__DATA__
                                                         First    Available
JAB                       Result        Dat Con?         Con?     
--------                 ------        ---------------   -----   ---------
SLAL_DEPE                SUCCESS       No                Yes     No
SLAL_DEPE                SUCCESS       No                No      No

出力：

Yes

Answer 2

それを行う方法は複数あります。

while (<>) {
    if (/^-+/) {
        $body = 1;
    } elsif ($body) {
        print ((split)[3])
    }
}