Discussion :

[chabRRR]

Bonjour,

Premièrement, je voudrais écrire dans un fichier, mais je ne connais rien de 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

On m'a fourni le code suivant

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

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.

pour concatener mes fichiers, j'ai déja essayé
cat statXiti_061206.txt statXiti_061207.txt statXiti_061208.txt statXiti_061209.txt statXiti_061210.txt > stat_Xiti
mais ça ne va pas.


En ésperant avoir été clair ... pour avoir une réponse claire et rapide
Merci par avance

[Woufeil]

Bonjour,

Pour concaténer deux fichiers, c'est plutôt facile :

Code :

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

1
2
3
4
5
open (my($fic1) ,"<fic1.txt" );
open (my($fic2),"<fic2.txt" );
open (my($ficmod), ">ficmod.txt");
print $ficmod $_ while (<$fic1>); 
print $ficmod $_ while (<$fic2>);

Voilà, si tu ne comprend pas le code dit le nous

[chabRRR]

effectivement, je ne comprends pas le code. mais c'est pas grave


je ne comprends pas surtout parce que le fichier resultat.txt est bien crée lors de l'execution du script mais il est vide...

je pense que c'est une question de repertoire dans lequel se trouve les fichiers TXT à traiter et le script en perl ?

Comment puis je faire pour etre dans le bon dossier ? Comment spécifier l'adresse du dossier contenant mes fichiers ?

NB : je travaille sous win

[Woufeil]

Bonjour,

Je devais être fatigué quand j'ai écrit ce code... Bon il marche (normalement), mais il est pas type top. Essaie ça :

Code :

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

1
2
3
4
5
6
open (my($fic1) ,"<fic1.txt" ) or die "Erreur dans l'ouverture du premier fichier : $!";
open (my($fic2),"<fic2.txt" ) or die "Erreur dans l'ouverture du second fichier : $!";
open (my($ficmod), ">ficmod.txt") or die "Erreur dans la creation du fichier de resultat: $!";
print $ficmod $_ while (<$fic1>); 
print $ficmod "\n";
print $ficmod $_ while (<$fic2>);

Et au fait, il est tout à fait normal que le fichier soit créé, pen le crée de base si il n'existe pas