如何使用Perl将字符串拆分为两个部分？

Question

我有一个字符串,其中有几个部分由制表符分隔:

 Hello\t2009-08-08\t1\t2009-08-09\t5\t2009-08-11\t15

我想只在第一个标签上拆分它,以便"Hello"结束$k,并且休息结束$v.这不太有效:

my ($k, $v) = split(/\t/, $string);

我怎样才能做到这一点？

Answer 1

为了得到这个,你需要使用第3个参数来split()给函数分配最大数量的字段(如果是正数):

my($first, $rest) = split(/\t/, $string, 2);

Answer 2

不会.它将为您提供前两项并抛弃其余部分.试试这个:

my ($k, $v) = split(/\t/, $string, 2);