Discussion :

[Ickou]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Ickou]

pour simplifier mon problème :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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
:

[djibril]

bah c'est normal!!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

momo\t\tdingo\ttoto\n

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

momo\ttoto\tdingo\t\n

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

si tu fais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

momo\ttoto\tdingo\t \n

je pense que t'aura 4 case (pas testé!! )

[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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ....

[Ickou]

C'est bon, j'ai trouvé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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++;
}

[Jedai]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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ï