Petit pb en perl
hillel & j-om
-
Bobinours Messages postés 2903 Statut Membre -
Bobinours Messages postés 2903 Statut Membre -
@ARGV=("fichier.txt");
while ($ligne=<>){@tab=split("",$ligne)};
while(@tab[i]!=null){{if (@tab[i]=~ s/\w#\w/\s/g){ print(@tab[i])}};
aprés lecture d'un fichier txt on doit avec une expression réguliére reconnaitre dans la liste la chaine contenant le charactére # et séparer la chaine ansi trouvé en deux au niveau de charactére # et sauvez les deux parties dans deux tableaux différents
si vous avez même juste un début de réponse ca sera toujours ca
merci
while ($ligne=<>){@tab=split("",$ligne)};
while(@tab[i]!=null){{if (@tab[i]=~ s/\w#\w/\s/g){ print(@tab[i])}};
aprés lecture d'un fichier txt on doit avec une expression réguliére reconnaitre dans la liste la chaine contenant le charactére # et séparer la chaine ansi trouvé en deux au niveau de charactére # et sauvez les deux parties dans deux tableaux différents
si vous avez même juste un début de réponse ca sera toujours ca
merci
1 réponse
-
Ca me parait pas mal. Remplace le \s par un espace :
if (@tab[i]=~ s/\w#\w/ /g) {
print(@tab[i])
};
Quelques liens :
http://www.perldoc.com/perl5.6/pod/perlre.html
http://www.enstimac.fr/Perl/DocFr/perlre.html
http://japhy.perlmonk.org/book/ (top mais complexe)
-= Bobinours - http://bobin.underlands.org =-
