problème sur un split

Version imprimable

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
$v=0;
while (<Z>) {
     chomp; $uid=$valeurs="";
 
     ($uid=$_,$valeurs=$_)=/^([^\t]+)\t[^\t]+\t(.+)$/;
 
     foreach (split ("\t",$valeurs)) {
       if ($_ ne "") {
         $liste_v[$v]=$_; $v++;
       }
       else {
         $liste_v[$v]='null'; $v++;
       }
     }
}

voici mon problème :
Si la ligne ($valeurs) fini par \t (tabulation), ce code ne rentre pas une valeur 'null' dans ma liste @liste_v !!
Comment y remedier :?: :?: :?: :?:

merci :D

pour simplifier mon problème :
Code:

1 2 3 4 5 6 7 8 9 $uu="momo\t\tdingo\ttoto\n"; $v=1; chomp $uu; @liste=split("\t",$uu); foreach $truc(@liste) { print "$v : $truc\n"; $v++; }
donne :
1 : momo
2 :
3 : dingo
4 : toto

par contre :
Code:

1 2 3 4 5 6 7 8 9 $uu="momo\ttoto\tdingo\t\n"; $v=1; chomp $uu; @liste=split("\t",$uu); foreach $truc(@liste) { print "$v : $truc\n"; $v++; }
donne:
1 : momo
2 : toto
3 : dingo

Pourquoi ça donne pas aussi : "4 : " ??
comment y remedier
:?:

12/01/2006, 11h17
djibril

bah c'est normal!!

Code:

momo\t\tdingo\ttoto\n

=> momo|rien|dingo|toto
=> 4 cases

Code:

momo\ttoto\tdingo\t\n

=> momo|toto|dingo (y a pas de 4eme car \n apres donc rien)
=> 3 cases

si tu fais

Code:

momo\ttoto\tdingo\t \n

je pense que t'aura 4 case (pas testé!! :lol: )
12/01/2006, 11h38
Ickou
je ne peux pas modifier mes fichier d'origine donc je pense que je vais faire une expression régulière pour récupérer les lignes.

le nombre d'élément par ligne est variable mais je le connais ($nbre), djibril, peux tu me corriger mon expression régulière :?: :?:
je te remercie :wink:
Code:

1 2 3 4 5 6 7 8 9 $uu="momo\ttoto\tdingo\t\n"; chomp $uu; $nbre=4; $v=1; $uu=~/^([^\t]*)(\t([^\t]*))*/; for ($k=1; $k<=$nbre;$k++) { print "$v : $$k\n"; $v++; }
le problème vient de : (\t([^\t]*))* , je veux \t([^\t]*) plusieus fois .... et l'avoir dans les variables $1, $2, etc ....

C'est bon, j'ai trouvé :D

Code:

1
2
3
4
5
6
7
8
9
10
 
$uu="momo\ttoto\tdingo\t\n";
chomp $uu;
$nbre=4;
$v=1;
$exp='\t([^\t]*)'x($nbre-1);
$uu=~/^([^\t]*)$exp/;
for ($k=1; $k<=$nbre;$k++) {
 print "$v : $$k\n"; $v++;
}

Y a plus simple : voici le résultat de "perldoc -f split"

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
    split /PATTERN/,EXPR,LIMIT
 
    split   Splits the string EXPR into a list of strings and returns that
            list. By default, empty leading fields are preserved, and empty
            trailing ones are deleted. (If all fields are empty, they are
            considered to be trailing.)
 
            If LIMIT is specified and positive, it represents the maximum
            number of fields the EXPR will be split into, though the actual
            number of fields returned depends on the number of times PATTERN
            matches within EXPR. If LIMIT is unspecified or zero, trailing
            null fields are stripped (which potential users of "pop" would
            do well to remember). If LIMIT is negative, it is treated as if
            an arbitrarily large LIMIT had been specified. Note that
            splitting an EXPR that evaluates to the empty string always
            returns the empty list, regardless of the LIMIT specified.

Il suffit donc de faire un split en rajoutant le paramètre "-1" et le problème est réglé.

--
Jedaï