PERL如何检查第N个关键字

[cxw_121857]

刚刚入手Perl,我想检测某个段落的第10个关键字,比如说,某一行有20个逗号,我想从第10个逗号开始进行操作,麻烦请指教?

[u014781345]

while(<>){ if (/^\s+/){substr($_,0,12)} } 之后的$_就是你想要的了

[cxw_121857]

每隔逗号之间会有其它的数据内容,不仅仅是逗号

[thy442030800]

use strict;
use warnings;

my $data = '1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16';
my $lastPos = 10;

my @splitData= split ',', $data, $lastPos+1;
die "not have $lastPos string after split" unless(@splitData == $lastPos+1);
print "$splitData[-1]";