Làm thế nào tôi có thể chia chuỗi thành hai phần với Perl?

Question

Tôi có một chuỗi với một số bộ phận ngăn cách bởi tab:

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

Tôi muốn chia nó lên chỉ trên tab đầu tiên, do đó "Hello" kết thúc trong $k và và phần còn lại kết thúc trong $v. Điều này không hoàn toàn hoạt động:

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

Tôi làm như thế nào?

Answer 1

Để có được điều đó, bạn cần phải sử dụng các tham số thứ 3 để split(), mang đến cho các chức năng một số lượng tối đa của trường để chia thành (nếu dương):

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

Answer 2

số Nó sẽ cung cấp cho bạn hai mục đầu tiên và quăng phần còn lại. Hãy thử điều này:

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

Answer 3

Một tùy chọn khác sẽ là sử dụng một regex đơn giản.

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