如何在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]}++'