Comment diviser une chaîne en deux parties seulement avec Perl?

J'ai une chaîne de caractères en plusieurs parties séparées par des onglets:

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

Je veux le séparer uniquement sur le premier onglet, de sorte que "Bonjour" se termine dans $k et de repos et finit dans $v. Ce n'est pas tout à fait:

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

Comment puis-je le faire?

source d'informationauteur biznez

  1. 36

    Pour l'obtenir, vous devez utiliser le 3e paramètre de split()ce qui donne la fonction d'un nombre maximal de champs de diviser en (si positif):

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

    Pas. Il vous donnera les deux premiers articles et jeter le reste. Essayez ceci:

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

    Une autre option serait d'utiliser une simple regex.

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