perl - 如何从列中读取值

Question

需要读取列的值（第一），该列已经由下表中的制表符分隔。我怎么能在 perl 中做到这一点。有人可以帮忙吗。下面是表格：

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

这里的第一个 Con 是“是”。我想读取这个值。请与我分享你的知识......

Answer 1

有不止一种方法可以做到：

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

Answer 2

怎么样：

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