PERL Split
Résolu
Bonjour,
J'ai besoin de vos lumières svp. J'ai un fichier du type:
my %toto => ( 'AAAAAA' =>{ 'uuu' => [ 'toto','tata', 'mouloud' ] } );
Je voudrais le placer dans un tableau en découpant la ligne en bloc avec ''. J'ai essayé avec split mais ca ne marche pas :
my @tab = split (' ' , $tabFichier[$_] ;
Est ce que vous pouvez m'aider ?
Merci d'avance.
J'ai besoin de vos lumières svp. J'ai un fichier du type:
my %toto => ( 'AAAAAA' =>{ 'uuu' => [ 'toto','tata', 'mouloud' ] } );
Je voudrais le placer dans un tableau en découpant la ligne en bloc avec ''. J'ai essayé avec split mais ca ne marche pas :
my @tab = split (' ' , $tabFichier[$_] ;
Est ce que vous pouvez m'aider ?
Merci d'avance.
Configuration: Windows XP Internet Explorer 6.0
2 réponses
-
Bonjour,
Dans ta variable $tabFichier[$_] tu as quoi exactement? Quand tu la print par exemple
Sinno la syntaxe du split est mauvaise :
Ecris plutot : my @tab = split (/'/ , $tabFichier[$_] );-
-
@wafa_oA vrai dire je ne suis pas sur de bien voir ce que tu veux récupérer exactement :
Pour la ligne d'exemple que tu as donné, tu pourrais me donner un exemple de ce que tu veux avoir dans ton tableau s'il te plait?
Merci d'avance -
@shgfjgfdjmy %toto => ( 'AAAAAA' =>{ 'uuu' => [ 'toto','tata', 'mouloud' ] } );
Je veux récuperer :
my %toto => (
'AAAAAA'
=>{
'toto'
,
'tata'
,
'mouloud'
]
}
); -
@wafa_oCe n'est pas faisable directement par un split, étant donné qu'il consomme forcément le séparateur qu'on utilise.
Il faudrait soit modifier l'expression avant de la passer au split (par exemple rajouter d'autres caractères servant de séparateurs autout des blocs entre ''), soit ne pas utiliser de split du tout et procéder autrement.
Je regarde vite fait si je trouve quelque chose de simple. -
@shgfjgfdjTu peux par exemple essayer quelque chose comme ça :
$tabFichier[$_] =~ s/('.*?')/\n$1\n/g;
@tab = split (/\n/,$tabFichier[$_]);
Après il faut juste être sûr que tu n'auras jamais de \n autre que ceux ajoutés en séparateur.
-
-
Merci
