J'essaye de faire un traitement sur plusieurs fichiers dans un
répertoire
et de créer des fichiers output pour chaque fichier. J'ai de la
difficulté..Votre aide sera appréciée
use strict;
use warnings;
my $input_dir = $ARGV[0] || '.';
opendir DIR, $dir or die "Couldnt open $dir - $!\n";
{ local @ARGV = grep -f, map "$dir/$_", readdir DIR;
while ( <> ) {
if ( $. == 1 ) {
open OUT, '>', "out_$ARGV.txt" or die "Cannot open
out_$ARGV.txt:
$!";
select OUT;
}
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
none
nicolas-laurent wrote:
J'essaye de faire un traitement sur plusieurs fichiers dans un répertoire et de créer des fichiers output pour chaque fichier. J'ai de la difficulté..Votre aide sera appréciée
use strict; use warnings; my $input_dir = $ARGV[0] || '.'; opendir DIR, $dir or die "Couldnt open $dir - $!n";
C'est pas opendir DIR, $input_dir ... ??????????
{ local @ARGV = grep -f, map "$dir/$_", readdir DIR; while ( <> ) { if ( $. == 1 ) { open OUT, '>', "out_$ARGV.txt" or die "Cannot open out_$ARGV.txt: $!"; select OUT; }
traitement
} } }
nicolas-laurent wrote:
J'essaye de faire un traitement sur plusieurs fichiers dans un
répertoire
et de créer des fichiers output pour chaque fichier. J'ai de la
difficulté..Votre aide sera appréciée
use strict;
use warnings;
my $input_dir = $ARGV[0] || '.';
opendir DIR, $dir or die "Couldnt open $dir - $!n";
C'est pas opendir DIR, $input_dir ... ??????????
{ local @ARGV = grep -f, map "$dir/$_", readdir DIR;
while ( <> ) {
if ( $. == 1 ) {
open OUT, '>', "out_$ARGV.txt" or die "Cannot open
out_$ARGV.txt:
$!";
select OUT;
}
J'essaye de faire un traitement sur plusieurs fichiers dans un répertoire et de créer des fichiers output pour chaque fichier. J'ai de la difficulté..Votre aide sera appréciée
use strict; use warnings; my $input_dir = $ARGV[0] || '.'; opendir DIR, $dir or die "Couldnt open $dir - $!n";
C'est pas opendir DIR, $input_dir ... ??????????
{ local @ARGV = grep -f, map "$dir/$_", readdir DIR; while ( <> ) { if ( $. == 1 ) { open OUT, '>', "out_$ARGV.txt" or die "Cannot open out_$ARGV.txt: $!"; select OUT; }
traitement
} } }
Emmanuel Florac
Le Tue, 05 Apr 2005 15:25:09 -0700, nicolas-laurent a écrit :
J'essaye de faire un traitement sur plusieurs fichiers dans un répertoire et de créer des fichiers output pour chaque fichier. J'ai de la difficulté..Votre aide sera appréciée
ça ne serait pas énormément plus simple en utilisant perl -pi -e "ce que tu veux"? J'ai traité des tas de fichiers comme çà...
-- Writing about music is like dancing about architecture. Frank Zappa
Le Tue, 05 Apr 2005 15:25:09 -0700, nicolas-laurent a écrit :
J'essaye de faire un traitement sur plusieurs fichiers dans un répertoire
et de créer des fichiers output pour chaque fichier. J'ai de la
difficulté..Votre aide sera appréciée
ça ne serait pas énormément plus simple en utilisant perl -pi -e "ce
que tu veux"?
J'ai traité des tas de fichiers comme çà...
--
Writing about music is like dancing about architecture.
Frank Zappa
Le Tue, 05 Apr 2005 15:25:09 -0700, nicolas-laurent a écrit :
J'essaye de faire un traitement sur plusieurs fichiers dans un répertoire et de créer des fichiers output pour chaque fichier. J'ai de la difficulté..Votre aide sera appréciée
ça ne serait pas énormément plus simple en utilisant perl -pi -e "ce que tu veux"? J'ai traité des tas de fichiers comme çà...
-- Writing about music is like dancing about architecture. Frank Zappa
