[PERL] Ecrire dans un fichier Résolu

Question

Bonjour tout le monde,
je programme en perl et j'ai besoin de modifier des paramètres dans un fichier automatiquement. voici un extrait du fichier :
n 108
m 56
s 2
t 4
a 1 2 1
j'ai besoin d'accéder aux lignes 3 et 4 et de changer 2 et 4 par d'autres valeurs (se répète en boucle). Je n'ai pas su changer des valeurs à l'intérieur du fichier.
Est ce que quelqu'un pourrait me donner une indication.
Merci d'avance

philtrain · Accepted Answer

Bonsoir,#!/usr/bin/perl -wuse strict;# D'abord charger le fichier:open(FILE, "$fichier") || die "Erreur E/S:$!
";my @contenu = <FILE>;close(FILE);# Ensuite, changer à la ligne 3 et 4:$contenu[2] =~ s/2/5/;   # par exemple$contenu[3] =~ s/4/6/;   # par exemple# Enfin on sauvegarde le fichier:open(FILE, ">$fichier") || die "Erreur E/S:$!
";foreach my $ligne (@contenu) {    chomp $ligne;    print FILE "$ligne
";}OK?

lami20j · Answer

Salut,petite question.Ton fichier contient plusieurs lignes s2t4C'est ça que tu veut modifier?Si tu me donnes le fichier (sauf s'il n'est pas confidentiel) je pourrais t'aider.A+

lami20j · Answer

Salut kayari,

Il y a une chose que je ne comprend pas.

" à chaque fois je vais modifier les lignes 3 et 4 seulement et j'ai des dizaines de lignes dans le fichier "

Ton fichier volumineux quel que soit sa taille ne contient qu'une seule ligne 3 et une seule ligne 4.

Donc c'est quoi ton souci en fait?

lami20j · Answer

Si toutes les lignes que tu veut modifier sont s2t4alors tu n'as qu'à taper dans la konsoleperl -p -i -e 's#(?<=s)2$#5#g' ton_fichierperl -p -i -e 's#(?<=t)4$#6#g' ton_fichier

chabRRR · Answer

Bonjour,

Premièrement, je voudrais aussi écrire dans un fichier, mais je ne coonias rien du perl.

mon fichier est normalisé comme cela:
05:57:42 10.100.62.52 /hit.xiti s=241243&s2=1&p=PNC&hl
05:57:43 10.100.62.52 /hit.xiti s=241243&s2=1&p=GSM_reconnu&hl
05:57:49 10.100.62.52 /hit.xiti s=241243&s2=1&p=transfere&hl

je souhaite pouvoir ajouter en début de chaque ligne une date au format  00/00/0000 puis un carcatere "espace" et un "=" pour séparer. L'idéal serait d'avoir une fenetre d'affichage qui demande "veuillez saisir la date a rajouter au fichier :" et ensuite ajouter cette date au début de chaque ligne.

les lignes du fichier doient devenir comme cela par exemple
02/03/2007 = 05:57:42 10.100.62.52 /hit.xiti s=241243&s2=1&p=PNC&hl

Ensuite, j'aimerais, toujours en perl, concatener plusieurs fichers. C'est a dire, j'ai plusieurs fichiers .txt de date différentes (auxquels j'ai pu ajouter la date auparavant) et je voudrais n'en avoir plus qu'un seul qui contient l'ensemble du contenu des autres fichiers.

En ésperant avoir été clair ...
Merci par avance

lami20j · Answer

Salut,

je n'ai pas testé

tu peux le tester sans peur, rien ne sera modifié dans tes fichiers d'origine

#!/usr/bin/perl
use warnings;use strict;

print "Veuillez saisir la date à rajouter au fichier (format jj/mm/aaaa, ex : 12/03/2007) : ";

chomp(my $date = <STDIN>);


open F_ECRIRE,">>resultat.txt" or die "E/S : $!\n";

chomp(my @fic = glob("*.txt"));

foreach my $e(@fic){
  open F_LIRE,"$e" or warn "E/S : $!\n";
  while(<F_LIRE>){
    print F_ECRIRE "$date = $_";
  }
} 
__END__

ou en ligne de commande(il faut juste mettre la date que tu veux

cat *.txt | perl -ne 's#(.*)#12/03/2007 = $1#;print' > resultat.txt

Danbs les 2 cas le resultat on l'obtient dans le fichier resultat.txt.
Donc avant de la 2ème variante il faut vider resultat.txt

chabRRR · Answer

Le fichier resultat.txt est vide après execution de la commande ...

Je pense que cela ne fonctionne pas correctement, la compilation est ok, il y a bien création du fichier resultat.txt mais aucun contenu a l'interieur.

Est ce normal ?

en attendant, je vais essayer avec mes fichiers.

chabRRR · Answer

J'ai parler un peu trop vite ...
Je ne comprends pas assez bien la structure du code pourpouvoir tester avec mes fichiers, j'aurai besoin de qq commentaires :

print "Veuillez saisir la date à rajouter au fichier (format jj/mm/aaaa, ex : 12/03/2007) : "; #affiche la demande de saisie

chomp(my $date = <STDIN>); # enregistre la saisie dans la variable date ?

open F_ECRIRE,">>resultat.txt" or die "E/S : $!\n"; # crée le fichier resultat en mode ecriture ??

chomp(my @fic = glob("*.txt")); # ??

foreach my $e(@fic){
open F_LIRE,"$e" or warn "E/S : $!\n";
while(<F_LIRE>){
print F_ECRIRE "$date = $_";
}
}
__END__

je suis largué sur la fin, avec la boucle foreach

Help please

lami20j · Answer

La ligne de commande fonctionne
jack@pc-jack:~$ ls *.txt
f1.txt  f2.txt  f3.txt
jack@pc-jack:~$ cat *.txt
05:57:42 10.100.62.52 /hit.xiti s=241243&s2=1&p=PNC&hl
05:57:43 10.100.62.52 /hit.xiti s=241243&s2=1&p=GSM_reconnu&hl
05:57:49 10.100.62.52 /hit.xiti s=241243&s2=1&p=transfere&hl
05:57:42 10.100.62.52 /hit.xiti s=241243&s2=1&p=PNC&hl
05:57:43 10.100.62.52 /hit.xiti s=241243&s2=1&p=GSM_reconnu&hl
05:57:49 10.100.62.52 /hit.xiti s=241243&s2=1&p=transfere&hl
05:57:42 10.100.62.52 /hit.xiti s=241243&s2=1&p=PNC&hl
05:57:43 10.100.62.52 /hit.xiti s=241243&s2=1&p=GSM_reconnu&hl
05:57:49 10.100.62.52 /hit.xiti s=241243&s2=1&p=transfere&hl
jack@pc-jack:~$ cat *.txt | perl -ne 's#^#12/03/2007 = #;print' > resultat.txt
jack@pc-jack:~$ cat resultat.txt
12/03/2007 = 05:57:42 10.100.62.52 /hit.xiti s=241243&s2=1&p=PNC&hl
12/03/2007 = 05:57:43 10.100.62.52 /hit.xiti s=241243&s2=1&p=GSM_reconnu&hl
12/03/2007 = 05:57:49 10.100.62.52 /hit.xiti s=241243&s2=1&p=transfere&hl
12/03/2007 = 05:57:42 10.100.62.52 /hit.xiti s=241243&s2=1&p=PNC&hl
12/03/2007 = 05:57:43 10.100.62.52 /hit.xiti s=241243&s2=1&p=GSM_reconnu&hl
12/03/2007 = 05:57:49 10.100.62.52 /hit.xiti s=241243&s2=1&p=transfere&hl
12/03/2007 = 05:57:42 10.100.62.52 /hit.xiti s=241243&s2=1&p=PNC&hl
12/03/2007 = 05:57:43 10.100.62.52 /hit.xiti s=241243&s2=1&p=GSM_reconnu&hl
12/03/2007 = 05:57:49 10.100.62.52 /hit.xiti s=241243&s2=1&p=transfere&hl

lami20j · Answer

Le script aussi jack@pc-jack:~$ ls *.txt f1.txt f2.txt f3.txt jack@pc-jack:~$ cat f1.txt 05:57:42 10.100.62.52 /hit.xiti s=241243&s2=1&p=PNC&hl 05:57:43 10.100.62.52 /hit.xiti s=241243&s2=1&p=GSM_reconnu&hl 05:57:49 10.100.62.52 /hit.xiti s=241243&s2=1&p=transfere&hl jack@pc-jack:~$ cat f2.txt 05:57:42 10.100.62.52 /hit.xiti s=241243&s2=1&p=PNC&hl 05:57:43 10.100.62.52 /hit.xiti s=241243&s2=1&p=GSM_reconnu&hl 05:57:49 10.100.62.52 /hit.xiti s=241243&s2=1&p=transfere&hl jack@pc-jack:~$ cat f3.txt 05:57:42 10.100.62.52 /hit.xiti s=241243&s2=1&p=PNC&hl 05:57:43 10.100.62.52 /hit.xiti s=241243&s2=1&p=GSM_reconnu&hl 05:57:49 10.100.62.52 /hit.xiti s=241243&s2=1&p=transfere&hl jack@pc-jack:~$ cat fic.pl #!/usr/bin/perl use warnings;use strict; print "Veuillez saisir la date à rajouter au fichier (format jj/mm/aaaa, ex : 12/03/2007) : "; chomp(my $date = ); open F_ECRIRE,">>resultat.txt" or die "E/S : $! "; chomp(my @fic = glob("*.txt")); foreach my $e(@fic){ open F_LIRE,"$e" or warn "E/S : $! "; while(){ print F_ECRIRE "$date = $_"; } } __END__ jack@pc-jack:~$ ls resultat.txt ls: resultat.txt: Aucun fichier ou répertoire de ce type jack@pc-jack:~$ perl fic.pl Veuillez saisir la date à rajouter au fichier (format jj/mm/aaaa, ex : 12/03/2007) : 12/03/2007 jack@pc-jack:~$ cat resultat.txt 12/03/2007 = 05:57:42 10.100.62.52 /hit.xiti s=241243&s2=1&p=PNC&hl 12/03/2007 = 05:57:43 10.100.62.52 /hit.xiti s=241243&s2=1&p=GSM_reconnu&hl 12/03/2007 = 05:57:49 10.100.62.52 /hit.xiti s=241243&s2=1&p=transfere&hl 12/03/2007 = 05:57:42 10.100.62.52 /hit.xiti s=241243&s2=1&p=PNC&hl 12/03/2007 = 05:57:43 10.100.62.52 /hit.xiti s=241243&s2=1&p=GSM_reconnu&hl 12/03/2007 = 05:57:49 10.100.62.52 /hit.xiti s=241243&s2=1&p=transfere&hl 12/03/2007 = 05:57:42 10.100.62.52 /hit.xiti s=241243&s2=1&p=PNC&hl 12/03/2007 = 05:57:43 10.100.62.52 /hit.xiti s=241243&s2=1&p=GSM_reconnu&hl 12/03/2007 = 05:57:49 10.100.62.52 /hit.xiti s=241243&s2=1&p=transfere&hl

chabRRR · Answer

Bon alors, tout compte fait, ça marche nickel merci

Si j'ai bien compris, ça marche avec un fichier *.txt dans le meme reprtoire que le code.pl...vrai ? mais si j'ai plusieurs fichiers dans le repertoire et je souhaite choisir le fichier a traiter ??

Je souhaiterais améliorer cela, je voudrais pouvoir effectuer l'ajout de date sur plusieurs fichiers txt avec des date différentes, on obtient plusieurs fichiers résultat.txt pour ensuite, concatener l'ensemble des resultat.txt en un seul fichier resultatfinal.txt ! 


Comment faire?
Merci

lami20j · Answer

Je suis au boulot.
J'ai vu que tu as posté le msg sur developpez.com :-))

Je vais regarder ce soir.

chabRRR · Answer

OK, c'est cool

moi aussi, je suis au boulot. c'est d'ailleurs pour ça que je fais ça.

Pour résumé, j'ai presque compris mais il me reste à, dans l'ordre :

- pouvoir choisir une date et un fichier, obtenir un fichier résultat
ex: le fichier statXiti_061206 à la date du 06/12/2006, ce qui donne en sortie le fichier resultat_06122006.txt
et ce, pour plusieurs fichiers dans le meme repertoire avec des dates différentes (staXiti_061207.txt, staXiti_061208.txt, staXiti_061209.txt...)

- etre capable de concatener, si possible de façon automatique, les fichiers résultat_XDATEX.txt en un seul fichier resultatfinal.txt

Merci pour ton aide,
Bon courage

lami20j · Answer

Avant l'exécution de script

lami20j@debian:~/trash/chabrrr$ ls -1
staXiti_061207.txt
staXiti_061208.txt
staXiti_061209.txt
xiti_stat.pl
lami20j@debian:~/trash/chabrrr$ cat staXiti_061207.txt
05:57:42 10.100.62.52 /hit.xiti s=241243&s2=1&p=PNC&hl
05:57:43 10.100.62.52 /hit.xiti s=241243&s2=1&p=GSM_reconnu&hl
05:57:49 10.100.62.52 /hit.xiti s=241243&s2=1&p=transfere&hl
lami20j@debian:~/trash/chabrrr$ cat staXiti_061208.txt
05:57:42 10.100.62.52 /hit.xiti s=241243&s2=1&p=PNC&hl
05:57:43 10.100.62.52 /hit.xiti s=241243&s2=1&p=GSM_reconnu&hl
05:57:49 10.100.62.52 /hit.xiti s=241243&s2=1&p=transfere&hl
lami20j@debian:~/trash/chabrrr$ cat staXiti_061209.txt
05:57:42 10.100.62.52 /hit.xiti s=241243&s2=1&p=PNC&hl
05:57:43 10.100.62.52 /hit.xiti s=241243&s2=1&p=GSM_reconnu&hl
05:57:49 10.100.62.52 /hit.xiti s=241243&s2=1&p=transfere&hl

Le script

lami20j@debian:~/trash/chabrrr$ cat xiti_stat.pl
#!/usr/bin/perl
use warnings;use strict;
my @fic_stat = </home/lami20j/trash/chabrrr/staXiti*>;

foreach my $fichier (@fic_stat){
  $fichier =~ /\/staXiti_(\d{4})(\d\d)\.txt/;
  my $date = "${1}20$2";
  my $fic = "resultat_" . "$date.txt";

  open F_ECRIRE,">>$fic" or warn "E/S : $!\n";
  open F_LIRE,"$fichier" or warn "E/S : $!\n";

  while(<F_LIRE>){
    s/^/$date = /;
    print F_ECRIRE $_;
  }
}
#*********** FIN TRAITEMENT **********#
#
# concateantion dans resultatfinal.txt
open F_ECRIRE,">>resultatfinal.txt" or die "E/S : $!\n";
my @fic_res = </home/lami20j/trash/chabrrr/resultat_*.txt>;

foreach my $e(@fic_res){
  open F_LIRE,"$e" or warn "E/S : $!\n";
  while(<F_LIRE>){
    print F_ECRIRE;
  }
}
__END__

Exécution de script

lami20j@debian:~/trash/chabrrr$ perl xiti_stat.pl

Le résultat

lami20j@debian:~/trash/chabrrr$ ls -1
resultat_06122007.txt
resultat_06122008.txt
resultat_06122009.txt
resultatfinal.txt
staXiti_061207.txt
staXiti_061208.txt
staXiti_061209.txt
xiti_stat.pl
lami20j@debian:~/trash/chabrrr$ cat resultat_06122007.txt
06122007 = 05:57:42 10.100.62.52 /hit.xiti s=241243&s2=1&p=PNC&hl
06122007 = 05:57:43 10.100.62.52 /hit.xiti s=241243&s2=1&p=GSM_reconnu&hl
06122007 = 05:57:49 10.100.62.52 /hit.xiti s=241243&s2=1&p=transfere&hl
lami20j@debian:~/trash/chabrrr$ cat resultat_06122008.txt
06122008 = 05:57:42 10.100.62.52 /hit.xiti s=241243&s2=1&p=PNC&hl
06122008 = 05:57:43 10.100.62.52 /hit.xiti s=241243&s2=1&p=GSM_reconnu&hl
06122008 = 05:57:49 10.100.62.52 /hit.xiti s=241243&s2=1&p=transfere&hl
lami20j@debian:~/trash/chabrrr$ cat resultat_06122009.txt
06122009 = 05:57:42 10.100.62.52 /hit.xiti s=241243&s2=1&p=PNC&hl
06122009 = 05:57:43 10.100.62.52 /hit.xiti s=241243&s2=1&p=GSM_reconnu&hl
06122009 = 05:57:49 10.100.62.52 /hit.xiti s=241243&s2=1&p=transfere&hl
lami20j@debian:~/trash/chabrrr$ cat resultatfinal.txt
06122007 = 05:57:42 10.100.62.52 /hit.xiti s=241243&s2=1&p=PNC&hl
06122007 = 05:57:43 10.100.62.52 /hit.xiti s=241243&s2=1&p=GSM_reconnu&hl
06122007 = 05:57:49 10.100.62.52 /hit.xiti s=241243&s2=1&p=transfere&hl
06122008 = 05:57:42 10.100.62.52 /hit.xiti s=241243&s2=1&p=PNC&hl
06122008 = 05:57:43 10.100.62.52 /hit.xiti s=241243&s2=1&p=GSM_reconnu&hl
06122008 = 05:57:49 10.100.62.52 /hit.xiti s=241243&s2=1&p=transfere&hl
06122009 = 05:57:42 10.100.62.52 /hit.xiti s=241243&s2=1&p=PNC&hl
06122009 = 05:57:43 10.100.62.52 /hit.xiti s=241243&s2=1&p=GSM_reconnu&hl
06122009 = 05:57:49 10.100.62.52 /hit.xiti s=241243&s2=1&p=transfere&hl
lami20j@debian:~/trash/chabrrr$

lami20j · Answer

Je vais voir ça

Au lieu de cat utilise type sous win

lami20j · Answer

Voici le code qui fonctionne sous win use warnings;use strict; my @fic_stat = <"D:/Documents and Settings/Administrateur/Bureau/staXiti*">; foreach my $fichier (@fic_stat){ $fichier =~ //staXiti_(\d{4})(\d\d)\.txt/; my $date = "${1}20$2"; my $fic = "resultat_" . "$date.txt"; open F_ECRIRE,">>$fic" or warn "E/S : $! "; open F_LIRE,"$fichier" or warn "E/S : $! "; while(){ s/^/$date = /; print F_ECRIRE; } } #*********** FIN TRAITEMENT **********# # # concateantion dans resultatfinal.txt open F_ECRIRE,">>resultatfinal.txt" or die "E/S : $! "; my @fic_res = <"D:/Documents\ and\ Settings/Administrateur/Bureau/resultat_*.txt">; foreach my $e(@fic_res){ open F_LIRE,"$e" or warn "E/S : ICI $! "; while(){ print F_ECRIRE; } print F_ECRIRE " "; } __END__

lami20j · Answer

Voilà un aperçu ici https://www.cjoint.com/?dnmYCaei6z

chabRRR · Answer

Mince !! le fichier résultat est toujours vide ?!?!
je comprends pas, j'ai essayé de changer le nom du repertoire, puis de mettre tout mes fichiers sur le bureau, mais ...ça ne va toujours pas.

je suis désolé de te demander encore un coup de main, mais d'ou peux venir le problème ?

lami20j · Answer

Il faut que tu me montre tout ce que tu fait.
Avec des imprimés écran.

Chez moi ça fonctionne sans problème.

chabRRR · Answer

les fichiers et le script sont sur mon bureau
https://www.cjoint.com/?dnoa7cQVFD

le script est edité comme cela, et je pense que le problème est dans le script...
https://www.cjoint.com/?dnohVdyajX

les fichiers ont cette structure
https://www.cjoint.com/?dnodObwzzw

la console execute le script 
https://www.cjoint.com/?dnoepZOjT3

et voila le resultat qui est vide ???
https://www.cjoint.com/?dnogcMWQvN

Qu'en penses tu ?

chabRRR · Answer

j'ai tout recommencer, et jai seuleument changé le Administrateur en M149067 dans le chemin du dossier. et ça ne marche toujours pas, le fichier resultatfinal est toujours vide. je comprends vraiment pas d'ou vient le probleme

lami20j · Answer

Re, c'est normal regarde bien ton script :-))) avant d'exécuter supprime resultatfinal.txt regarde comme tu as écrit @fic_res enleve les antislashes, et mets le bon chemin c'est ça que tu dois avoir my @fic_res = <"D:/Documents and Settings/M149067/Bureau/resultat_*.txt">; tu as oublié le M my @fic_res = <"D:/Documents\ and\ Settings/149067/Bureau/resultat_*.txt">;

lami20j · Answer

Affiche ici ton script que tu utilises.

Je vais le corriger.

C'est juste l'histoire d'écrire les chemins

pas d'antislashes, avec / et pas \ pour la séparation de dossiers, le chemin entre guillemets et ATTENTION à toutes les caractères

Des fois une lettre en plus ou en moins peut donner des choses bizarre

par exemple imagine toi une que tu veux parler des bit mets sans vouloir tu ajoute un e :-DD, ça ne sera pas la même chose :-DDDDD

chabRRR · Answer

script actuel
https://www.cjoint.com/?dnpQGKeWgD

type resultatfinal.txt
https://www.cjoint.com/?dnpVRjmYDV

effectivement, sur l'imprim ecran, j'avais oublié le M
mais après avoir refait plusieurs fois la manip, et sans oublié le M, ça ne marche pas ... je ne sais plus quoi essayer arrrgggggHHH

ce n'est pas le M, enfin, ça l'a été à un moment sans que je me rends compte, mais plus maintenant.

lami20j · Answer

Affiche ton script ici, fait copier coller, pas une image

chabRRR · Answer

#!C:/Perl/bin/perl.exe use warnings;use strict; my @fic_stat = <"D:/Documents and Settings/M149067/Bureau/staXiti*">; foreach my $fichier (@fic_stat){ $fichier =~ //staXiti_(\d{4})(\d\d)\.txt/; my $date = "${1}20$2"; my $fic = "resultat_" . "$date.txt"; open F_ECRIRE,">>$fic" or warn "E/S : $! "; open F_LIRE,"$fichier" or warn "E/S : $! "; while(){ s/^/$date = /; print F_ECRIRE; } } #*********** FIN TRAITEMENT **********# # # concateantion dans resultatfinal.txt open F_ECRIRE,">>resultatfinal.txt" or die "E/S : $! "; my @fic_res = <"D:/Documents and Settings/M149067/Bureau/resultat_*.txt">; foreach my $e(@fic_res){ open F_LIRE,"$e" or warn "E/S : ICI $! "; while(){ print F_ECRIRE; } print F_ECRIRE " "; } __END__

chabRRR · Answer

jai trouvé une premiere erreur dans le nom des fichiers statXiti*, je chauffe , je me rapporche.

maintenant, la console me dit :
D:\Documents and Settings\M149067\Bureau>c:\perl\bin\perl.exe code_f.pl
Use of uninitialized value in concatenation (.) or string at code_f.pl line 9.
Use of uninitialized value in concatenation (.) or string at code_f.pl line 9.
Use of uninitialized value in concatenation (.) or string at code_f.pl line 9, <
F_LIRE> line 1274.
Use of uninitialized value in concatenation (.) or string at code_f.pl line 9, <
F_LIRE> line 1274.
Use of uninitialized value in concatenation (.) or string at code_f.pl line 9, <
F_LIRE> line 2721.
Use of uninitialized value in concatenation (.) or string at code_f.pl line 9, <
F_LIRE> line 2721.
Use of uninitialized value in concatenation (.) or string at code_f.pl line 9, <
F_LIRE> line 5271.
Use of uninitialized value in concatenation (.) or string at code_f.pl line 9, <
F_LIRE> line 5271.
Use of uninitialized value in concatenation (.) or string at code_f.pl line 9, <
F_LIRE> line 7052.
Use of uninitialized value in concatenation (.) or string at code_f.pl line 9, <
F_LIRE> line 7052.

chabRRR · Answer

et le resultatfinal.txt est comme ci dessous, il y a 20 aul ieu de la date escomptée:

20 = 00:01:37 10.100.62.52 /hit.xiti s=241243&s2=1&p=vers_PCC&hl=0x1x37&idclient=1165363297472 VXML -
20 = 00:01:38 10.100.62.52 /hit.xiti s=241243&s2=1&p=PNC&hl=0x1x38&idclient=1165363297472 VXML -
20 = 00:01:39 10.100.62.52 /hit.xiti s=241243&s2=1&p=GSM_non_reconnu&hl=0x1x39&idclient=1165363297472 VXML -
20 = 00:01:40 10.100.62.52 /hit.xiti s=241243&s2=1&p=pas_sur_vol&hl=0x1x40&idclient=1165363297472 VXML -
20 = 00:01:41 10.100.62.52 /hit.xiti s=241243&s2=1&p=absence_contact_BO&hl=0x1x41&idclient=1165363297472 VXML -
20 = 00:03:03 10.100.62.52 /hit.xiti s=241243&s2=1&p=transfere_debordement&hl=0x3x3&idclient=1165363297472 VXML -
20 = 00:05:00 10.100.62.52 /hit.xiti s=241243&s2=1&p=vers_PCC&hl=0x5x0&idclient=1165363499970 VXML -
20 = 00:05:01 10.100.62.52 /hit.xiti s=241243&s2=1&p=PNT&hl=0x5x1&idclient=1165363499970 VXML -
20 = 00:05:02 10.100.62.52 /hit.xiti s=241243&s2=1&p=GSM_non_reconnu&hl=0x5x2&idclient=1165363499970 VXML -
20 = 00:05:03 10.100.62.52 /hit.xiti s=241243&s2=1&p=pas_sur_vol&hl=0x5x3&idclient=1165363499970 VXML -
20 = 00:06:23 10.100.62.52 /hit.xiti s=241243&s2=1&p=transfere&hl=0x6x23&idclient=1165363499970 VXML -
20 = 00:08:13 10.100.62.52 /hit.xiti s=241243&s2=1&p=vers_CLD&hl=0x8x13&idclient=1165363693516 VXML -
20 = 00:08:14 10.100.62.52 /hit.xiti s=241243&s2=1&p=PNT&hl=0x8x14&idclient=1165363693516 VXML -
20 = 00:08:19 10.100.62.52 /hit.xiti s=241243&s2=1&p=transfere&hl=0x8x19&idclient=1165363693516 VXML -

lami20j · Answer

Mais pour les autre fichiers c'est bon, je parle de resultat_061208.txt, etc. ?

chabRRR · Answer

non, aucune modif dans les autres fichiers originaux
et seulement un fichier crée en plus de resultatfinal.txt : resultat_20.txt

d'ou cet ajout du 20 au lieu de la date...

lami20j · Answer

tes fichiers commence avec stat ou sta ?

chabRRR · Answer

statXiti_

lami20j · Answer

ben, c'est ta faute perl ecrire dans un fichier#14

fait une copie/coller de ton dernier script
supprime les fichiers resultat_ *** et resultatfinal.txt

chabRRR · Answer

jai fait les modif en stat au lieu du sta
ok, c bon, voila tout marche

je te remercie pour tout (ton aide et ta patience)

le problème provenait du fait que je me suis certainement trompé dans les post précedent en expliquant, j'ai du oublié ce T a la fin de stat.

Milles merci, je suis super content

Bon courage et a bientot lors de ma prochaine surpirse galere sur mon projet

lami20j · Answer

Comme je te l'ai dit perl ecrire dans un fichier#25

une seule lettre peut faire couler beaucoup d'encre :-DD

c'est bien que tu as réussi :-))

Bonne continuation.

chabRRR · Answer

naaaa, en fait, il reste un ptit problème

regarde mon fichier resultat
06122009 = 22:21:14 10.100.62.52 /hit.xiti s=241243&s2=1&p=vers_PCC&hl=22x21x14&idclient=1165702873855 VXML -
06122009 = 22:21:15 10.100.62.52 /hit.xiti s=241243&s2=1&p=PNT&hl=22x21x15&idclient=1165702873855 VXML -
06122009 = 22:21:18 10.100.62.52 /hit.xiti s=241243&s2=1&p=transfere&hl=22x21x18&idclient=1165702873855 VXML -
06122009 = 22:26:58 10.100.62.52 /hit.xiti s=241243&s2=1&p=vers_PN&hl=22x26x58&idclient=1165703217863 VXML -
06122009 = 22:26:59 10.100.62.52 /hit.xiti s=241243&s2=1&p=PNT&hl=22x26x59&idclient=1165703217863 VXML -
06122009 = 22:27:15 10.100.62.52 /hit.xiti s=241243&s2=1&p=transfere&hl=22x27x15&idclient=1165703217863 VXML -

06122010 = 04:06:42 10.100.62.52 /hit.xiti s=241243&s2=1&p=vers_CLD&hl=4x6x42&idclient=1165723601630 VXML -
06122010 = 04:06:43 10.100.62.52 /hit.xiti s=241243&s2=1&p=PNT&hl=4x6x43&idclient=1165723601630 VXML -
06122010 = 04:06:44 10.100.62.52 /hit.xiti s=241243&s2=1&p=GSM_reconnu&hl=4x6x44&idclient=1165723601630 VXML -
06122010 = 04:06:45 10.100.62.52 /hit.xiti s=241243&s2=1&p=erreur_timeout&hl=4x6x45&idclient=1165723601630 VXML -
06122010 = 04:07:01 10.100.62.52 /hit.xiti s=241243&s2=1&p=raccroche_applicatif&hl=4x7x1&idclient=1165723601630 VXML -
06122010 = 04:07:17 10.100.62.52 /hit.xiti s=241243&s2=1&p=vers_CLD&hl=4x7x17&idclient=1165723637136 VXML -


il y a un problème avec les expressions regulières, la date à inscrire doit etre au format 06122006, 07122006, 08122006... et elle actuellement 06122006, 06122007, 06122008... 
c pa grand chose, mais si on pouvait voir ça stp ?

chabRRR · Answer

ça y est,  jai résuii
youpppppppiiiiiiiiiiii
je suis trop fort 

merci encore

lami20j · Answer

je suis trop fort 

C'est bien :-))

lami20j · Answer

Salut,

envoie par cjoint.com quelques nouveaux fichiers
en fait mets les fichiers dans un répertoire et compresse le répertoire

Si avec les anciens fichiers ça marche alors c'est un problème de nouveau fichiers

chabRRR · Answer

https://www.cjoint.com/?dtmp7gzjfQ

lami20j · Answer

Je vais tester ce soir chez moi.

lami20j · Answer

Salut,

bizarre, chez moi tout va bien avec tes nouveaux fichiers
voilà ce que j'obtiens https://www.cjoint.com/?dttARCep8I

j'ai créer la même arborescence que la tienne

lami20j · Answer

Salut,

ce n'est pas forcément de la magie.

essaie de te rappeler ce que tu as fait avant d'obtenir les sorties bizzarres :-)

kaouther · Answer

bonjour,

Je suis débutante en perl et je veux écrire un script qui me permet de parser un fichier texte et de remplacer un mot1 par un mot2.

PS: je suis sur Windows

Mille merci par avance

[PERL] Ecrire dans un fichier

44 réponses

Discussions similaires

Newsletters