Salut suite à un précédent post dans la partie web, j'ais refait mon script et poster au bon endroit cette fois si !

Je re-explique pour ceux qui n'étaient pas là:
- je voudrais récupérer des infos sur un .log
- écrire ces infos sur un autre fichier.

Ici le soucie est que le fichier creer pour stocker les info prise sur le .log
est bien là mais les info ne sont pas dedans ?!

Pourriez vous m'aider?

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
#! /Perl/bin/perl -w
 
use strict;
 
# Déclaration Variables
 
my @infos_fichier = &lecture;
&ecriture(@infos_fichier);
my (@valeur);
 
# Subroutine Lecture
 
sub lecture {
	my $fichier_in = "emplacement du fichier tina.log";
	open (IN, "$fichier_in") || die "Impossible d'ouvrir le fichier tina.log pour la cause suivante : $!\n";
  my @infos_fichier = split (/\\s+/, $fichier_in);
  close IN;
	return @infos_fichier;
}
 
# Subroutine Ecriture
 
sub ecriture {
	my $fichier_out = "emplacement di fichier sortie.txt";
	open (OUT,">$fichier_out");
	foreach my $valeur (@_) {
		print OUT $valeur[2], "\n" if @infos_fichier >= 2;
	}
	close(OUT);
}
 
__END__
S'il y des questions ou des remarques n'hésitez pas!
Merci d'avance!