如何在Perl中提取特定數據列？

Question

我有一些數據從UNIX命令行調用

1 ab 45 1234 
2 abc 5 
4 yy 999 2 
3 987 11 

我會用system()函數調用。

如何在Perl中將第二列數據提取到數組中？此外，數組大小必須取決於我擁有的行數（它不一定是4）。我想讓這個數組有("ab", "abc", "yy", 987)。

Answer 1

use strict; 
use warnings; 

my $data = "1 ab 45 1234 
2 abc 5 
2 abc 5 
2 abc 5 
4 yy 999 2 
3 987 11"; 

my @second_col = map { (split)[1] } split /\n/, $data; 

要獲得唯一值，請參見perlfaq4。下面是提供有部分的答案：到UNIX腳本：

my %seen; 
my @unique = grep { ! $seen{ $_ }++ } @second_col; 

Answer 2

你可以連續使用一個Perl CMD線電話（one-liner又名）：

perl -lane 'print $F[1]' data.dat 

代替data.dat文件，使用管道從您的命令行工具

cat data.dat | perl -lane 'print $F[1]' 

附錄：

擴展爲結果列的唯一岬很簡單：

cat data.dat | perl -lane 'print $F[1] unless $seen{$F[1]}++' 

，或者，如果你很懶（僱用％_）：

cat data.dat | perl -lane 'print unless $_{$_=$F[1]}++'