文字列をPerlで2つの部分に分割するにはどうすればよいですか？

Question

私は、文字列を持っている、タブで区切られたいくつかの部分で：

私は「こんにちは」 $kで終わると、残りは $vで終わるように、最初のタブの上にそれを分割したい

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

。これはうまくいきません。

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

どうすればいいですか？ 、あなたは（正の場合）に分割する機能にフィールドの最大数を与える、split()に3番目のパラメータを使用する必要があることを得るために

Answer 1

：

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

Answer 2

いいえそれはあなたを与えるだろう最初の2つの項目と残りの部分を投げる。これを試してみてください：

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

Answer 3

別のオプションは単純な正規表現を使用することです。

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