Come posso dividere una stringa in solo due parti con Perl?

Question

Ho una stringa che con diverse parti separate da schede:

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

Voglio dividerlo solo nella prima scheda, in modo che " Ciao " finisce in $ k e il resto finisce in $ v . Questo non funziona del tutto:

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

Come posso farlo?

Answer 1

Per ottenerlo, devi utilizzare il terzo parametro per split () , che fornisce alla funzione un numero massimo di campi da suddividere (se positivo):

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

Answer 2

No. Ti darà i primi due oggetti e getterà il resto. Prova questo:

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

Answer 3

Un'altra opzione sarebbe quella di usare una semplice regex.

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