commande msdos "copy" dans Perl

Bonjour,

J'ai ajouter dans mon script Perl une concatenation de plusieurs fichiers *.log en un seul et unique fichier log mais je ne connais pas du tout la syntaxe à employer.
Je suis novice en Perl
J'aimerais faire ceci :
"copy info_*.log Global.log" --> créer un fichier Global.log avec tous les fichiers commençant par Info_*.log

Pouvez vous m'aider ?

Peut-être quelque chose de ce genre

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

#!/usr/bin/perl   use strict; use warnings;   use File::Copy;     open my $fh_out, '>>', "DIR/Global.log" or die $!;   my $file_list = glob("DIR/Info_*.log ");     foreach my $file ( $file_list ){ copy($file,$fh_out) or die "Copy failed: $!"; }   close $fh_out;

---

Si tu as beaucoup de fichier log, il vaut mieux utiliser opendir() que glob().

CPAN File::Copy
L'ennui est qu'il est déconseillé d'utiliser des filehandles avec ce module, mais je ne sais pas comment faire d'autre.

Sous quel OS es-tu? N'existe-il pas une fonction que tu pourrais exécuter via la fonction system() de perl?

Citation:

---

Envoyé par Jasmine80

CPAN File::Copy
L'ennui est qu'il est déconseillé d'utiliser des filehandles avec ce module, mais je ne sais pas comment faire d'autre.

---

Citation:

---

Note that passing in files as handles instead of names may lead to loss of information on some operating systems; it is recommended that you use file names whenever possible.

---

Ne t'inquiète pas, le seul risque lié à l'emploi de filehandles plutôt que de fichier, c'est la perte d'information comme les droits sur le fichier, les ACL, certaines statistiques, etc... Je doute que ce problème se pose dans notre cas en particulier.

--
Jedaï

[QUOTE=Jasmine80;4591477]Peut-être quelque chose de ce genre

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

#!/usr/bin/perl   use strict; use warnings;   use File::Copy;     open my $fh_out, '>>', "DIR/Global.log" or die $!;   my $file_list = glob("DIR/Info_*.log ");     foreach my $file ( $file_list ){ copy($file,$fh_out) or die "Copy failed: $!"; }   close $fh_out;

---

Merci beaucoup
ca marche cependant j'ai voulu ajouté la date du jour (voir ci-contre)
my $thisdate = strftime("%Y-%m-%d", localtime());
my $file_list = glob("DIR/Info_$thisdate_*.log ");

mais je pense que j'ai un problème de syntaxe

Citation:

---

Envoyé par calimerojeff

ca marche cependant j'ai voulu ajouté la date du jour (voir ci-contre)
my $thisdate = strftime("%Y-%m-%d", localtime());
my $file_list = glob("DIR/Info_$thisdate_*.log ");

mais je pense que j'ai un problème de syntaxe

---

Utilise les pragma strict et warnings.
'Strict' renvoie l'erreur 'Global symbol "$thisdate_" requires explicit package ' car l'underscore colle au bout de ta variable.

Essaie avec

Code:

---

my $file_list = glob("DIR/Info_$thisdate"."_*.log ");

---

Citation:

---

Envoyé par Jasmine80

Utilise les pragma strict et warnings.
'Strict' renvoie l'erreur 'Global symbol "$thisdate_" requires explicit package ' car l'underscore colle au bout de ta variable.

Essaie avec

Code:

---

my $file_list = glob("DIR/Info_$thisdate"."_*.log ");

---

---

HELP ME
C'est incroyable !!!!! le programme ne focntionne plus.
je t'avais dit que c'etait ok ya un moment et maintenant ca ne marche plus :
Il ne traite que mon 1er fichier log

Voici mon programme :
use strict;
use warnings;
use File::Copy;
open my $fh_out, '>>', "S:/SVG/UTILITAIRES/DVDProfessionnel/DOCUMENTS/PSA/Mars_ilot/V3D/0180/Global.log" or die $!;
my $file_list = glob( "S:/SVG/UTILITAIRES/DVDProfessionnel/DOCUMENTS/PSA/Mars_ilot/V3D/0180/Info"."_*.log" );
foreach my $file ( $file_list )
{
copy($file,$fh_out) or die "Copy failed: $!";
}
close $fh_out;

J'ai 5 fichiers log à compiler dans un seul (global.log)

Essaye de debugger via 2-3 instructions print:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

use strict; use warnings; use File::Copy; open my $fh_out, '>>', "S:/SVG/UTILITAIRES/DVDProfessionnel/DOCUMENTS/PSA/Mars_ilot/V3D/0180/Global.log" or die $!; my $file_list = glob( "S:/SVG/UTILITAIRES/DVDProfessionnel/DOCUMENTS/PSA/Mars_ilot/V3D/0180/Info"."_*.log" ); print "Ma liste : ".$file_list."\n"; foreach my $file ( $file_list ) { print "Traitement du fichier ".$file." pour une copie vers ".$fh_out."\n"; copy($file,$fh_out) or die "Copy failed: $!"; } close $fh_out;

---

Citation:

---

Envoyé par 50Nio

Essaye de debugger via 2-3 instructions print:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

use strict; use warnings; use File::Copy; open my $fh_out, '>>', "S:/SVG/UTILITAIRES/DVDProfessionnel/DOCUMENTS/PSA/Mars_ilot/V3D/0180/Global.log" or die $!; my $file_list = glob( "S:/SVG/UTILITAIRES/DVDProfessionnel/DOCUMENTS/PSA/Mars_ilot/V3D/0180/Info"."_*.log" ); print "Ma liste : ".$file_list."\n"; foreach my $file ( $file_list ) { print "Traitement du fichier ".$file." pour une copie vers ".$fh_out."\n"; copy($file,$fh_out) or die "Copy failed: $!"; } close $fh_out;

---

---

En ajoutant tes "print", je remarque que le programme ne prend qu'en compte juste le 1er fichier "Info".Info"."_*.log"
resultat :
1er print
Ma liste : S:/SVG/UTILITAIRES/DVDProfessionnel/DOCUMENTS/PSA/Mars_ilot V3D/0180/Info_2009-09-03_[proce09i3].log
2eme print
Traitement du fichier S:/SVG/UTILITAIRES/DVDProfessionnel/DOCUMENTS/PSA/Mars_ilot/V3D/0180/Info_2009-09-03_[proce09i3].log pour une copie vers GLOB(0x15d53e0)

La grande question est POURQUOI :arf:
LOL c'est incompréhensif

En fait c'est "simple", la fonction glob te retourne une liste, pas une valeur:

Code:

---

1 2 3 4 5 6

my @file_list = glob( "/tmp/*.*" ); print Dumper(@file_list); foreach my $file ( @file_list ) { print "Traitement du fichier ".$file." \n"; }

---

Le Perl est très permissif au niveau des variables, y compris des déclarations. Dans ton cas il accepte de mettre un résultat liste dans une variable simple, mais du coup tu perds tous les autres éléments.

Citation:

---

Envoyé par 50Nio

En fait c'est "simple", la fonction glob te retourne une liste, pas une valeur:

Code:

---

1 2 3 4 5 6

my @file_list = glob( "/tmp/*.*" ); print Dumper(@file_list); foreach my $file ( @file_list ) { print "Traitement du fichier ".$file." \n"; }

---

Le Perl est très permissif au niveau des variables, y compris des déclarations. Dans ton cas il accepte de mettre un résultat liste dans une variable simple, mais du coup tu perds tous les autres éléments.

---

Je suis un novice en Perl
j'ai une erreur à cause de "Dumper" ( Undefined subroutine &main::Dumper)
Comment la déclarer please ?

Code:

---

use Data::dumper;

---

C'est juste une astuce pour débogage.