Как я могу разделить строку только на две части с 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);

Answer 3

Другим вариантом будет использование простого регулярного выражения.

my($k,$v) = $str =~ /([^\t]+)\t(.+)/;