Discussion :

[carvi]

Bonjour

Je suis debutant en perl.
J'ai un script qui manipule un fichier contenant des valaurs. Je prends donc le fichier en entrée, je voudrais ensuite envoyer le fichier une fois remanié,, ver sun nouveau fichier. voici mon script

Merci

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
#!/usr/bin/env perl
 
use strict;
use warnings;
use POSIX;
 
#cette fonction sert a convertir le timestamp contenu dans le fichier a traiter
sub getHDate {
        my %Date = ();
        my ($sec,$min,$hour,$mday,$mon,$year) = localtime(time); 
        $year += 1900;
        $mon += 1;
 
        $Date{second}   = $sec;
        $Date{minute}   = $min;
        $Date{hour}     = $hour;
        $Date{day}      = $mday;
        $Date{month}    = $mon;
        $Date{year}     = $year;
       return %Date;
}
 
open( FDESC , "< cmptest" ) or die "Can't open cmptest : $!";
 
foreach my $line ( readline(*FDESC) ) {
	my ( $timestamp, $Type, $Purify, $User, $Nb_test, $Test_duration, $Total_exec_time,$Prod )  ;
	my @Liste = split ( /\s+/ , $line ) ;
	my $Nb_el = @Liste ;
	( $timestamp, $Type, $Purify, $User, $Nb_test, $Test_duration, $Total_exec_time, $Prod ) = @Liste ;
	my $avrg_test_time =  $Test_duration/$Nb_test ;
	my %now_date = getHDate( $timestamp );
	my $Date = sprintf ( "%4d-%02d-%02d" , $now_date{year} ,  $now_date{month} , $now_date{day}) ;
	printf "$Date  $avrg_test_time  $Prod \n";
}				
close(FDESC);

mon but est donc d'envoyer le output du printf dans un fichier

[Jasmine80]

Code :

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

1
2
3
4
# ouverture en mode écriture du fichier de sortie (à créer avant de lancer le script)
open (OUT, '>chemin_vers_fichier.txt');
my $Date = sprintf ( "%4d-%02d-%02d" , $now_date{year} ,  $now_date{month} , $now_date{day}) ;
print OUT "$Date  $avrg_test_time  $Prod \n";

Le printf te permet de formater ta date mais pour écrire dans un fichier un simple print suffi.

[carvi]

Coucou Jasmine

Décidement c'est toi qui fait tourner la maison.
J'ai encore compartimenté les informations. En fait, le sprintf recupere le timestamp et me le convertit en date lisible.
voici l'output de mon script

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
2008-07-09  0.452930174563591  marco 
2008-07-09  2.56848852901484  argonref72 
2008-07-09  0.863501483679525  gsm_siliqua_sibley 
2008-07-09  1.21896086369771  argonref72 
2008-07-09  0.531914893617021  pico 
2008-07-09  0.708229426433915  marco 
2008-07-09  0.643202815662121  elba 
2008-07-09  1.2401927047488  keywest 
2008-07-09  2.65009322560597  umts_r26331 
2008-07-09  0.562884784520668  elba 
2008-07-09  1.58289124668435  argonref72

Je voudrais rediriger tout ça vers un fichier qui porterait le nom de la date. Sans avoir un faire un autre script en sh qui rappel ce script perl et qui fait un >> fichier-date.txt

[carvi]

Pardon ta soluce est bonne (bien evidement)
J'ai mis >> au lieu de > pour que la boule n'efface pas le resultat a chaque fois.
Encore merci
Si tu passe a Toulouse, Café.

[Jasmine80]

Café et chocolat ... pourquoi faire les choses à moitié

Donc tout va comme tu veux maintenant? N'oublie pas de clore ce sujet.

[CKLN00]

Café et chocolat ... pourquoi faire les choses à moitié :

haa mais c'est qu'elle se fait payer en nature maintenant !
ha la la l'entraide entre paires n'est plus ce qu'elle était