je suis en train de prototyper une appli :
---------------------------------------------------------------------------
#!/usr/local/bin/perl
use strict;
doTheJob('O:\Loc');
exit;
sub doTheJob {
my $dir = shift;
opendir(thisDir, $dir);
my @allDirs = readdir(thisDir);
closedir(thisDir);
foreach my $file (@allDirs) {
my $filename = $dir . '/' . $file;
if ($file eq '.' || $file eq '..'){
}
elsif (-d $filename) {
print "\n\n$filename :\n";
$filename=$filename.'\Application Data\ICAClient\pn.ini';
open (fileRef,$filename) || die "error for $filename: $!/n";
while( my $fileLine=<fileRef>) { print $fileLine; }
close fileRef;
}
}
}
----------------------------------------------------------------------------
mon problème c'est que je ne sais pas traité le cas ou le fichier
chercher n'existe pas : open (fileRef,$filename) || die "error for
$filename: $!/n";
le script s'arrete. c'est normal j'ai mis un 'die'.
mais comment faire pour continuer le traitement sur les autres
fichiers ?
merci
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
Sébastien Cottalorda
bonjour.
je suis en train de prototyper une appli : --------------------------------------------------------------------------- #!/usr/local/bin/perl
use strict; doTheJob('O:Loc'); exit;
sub doTheJob { my $dir = shift; opendir(thisDir, $dir); my @allDirs = readdir(thisDir); closedir(thisDir);
foreach my $file (@allDirs) { my $filename = $dir . '/' . $file; if ($file eq '.' || $file eq '..'){ } elsif (-d $filename) { print "nn$filename :n"; $filename=$filename.'Application DataICAClientpn.ini'; open (fileRef,$filename) || die "error for $filename: $!/n"; while( my $fileLine=<fileRef>) { print $fileLine; } close fileRef; } } } ----------------------------------------------------------------------------
mon problème c'est que je ne sais pas traité le cas ou le fichier chercher n'existe pas : open (fileRef,$filename) || die "error for $filename: $!/n"; le script s'arrete. c'est normal j'ai mis un 'die'.
mais comment faire pour continuer le traitement sur les autres fichiers ? merci
Salut,
Remplace: open (fileRef,$filename) || die "error for $filename: $!/n";
je suis en train de prototyper une appli :
---------------------------------------------------------------------------
#!/usr/local/bin/perl
use strict;
doTheJob('O:Loc');
exit;
sub doTheJob {
my $dir = shift;
opendir(thisDir, $dir);
my @allDirs = readdir(thisDir);
closedir(thisDir);
foreach my $file (@allDirs) {
my $filename = $dir . '/' . $file;
if ($file eq '.' || $file eq '..'){
}
elsif (-d $filename) {
print "nn$filename :n";
$filename=$filename.'Application DataICAClientpn.ini';
open (fileRef,$filename) || die "error for $filename: $!/n";
while( my $fileLine=<fileRef>) {
print $fileLine;
}
close fileRef;
}
}
}
----------------------------------------------------------------------------
mon problème c'est que je ne sais pas traité le cas ou le fichier
chercher n'existe pas : open (fileRef,$filename) || die "error for
$filename: $!/n";
le script s'arrete. c'est normal j'ai mis un 'die'.
mais comment faire pour continuer le traitement sur les autres
fichiers ?
merci
Salut,
Remplace:
open (fileRef,$filename) || die "error for $filename: $!/n";
je suis en train de prototyper une appli : --------------------------------------------------------------------------- #!/usr/local/bin/perl
use strict; doTheJob('O:Loc'); exit;
sub doTheJob { my $dir = shift; opendir(thisDir, $dir); my @allDirs = readdir(thisDir); closedir(thisDir);
foreach my $file (@allDirs) { my $filename = $dir . '/' . $file; if ($file eq '.' || $file eq '..'){ } elsif (-d $filename) { print "nn$filename :n"; $filename=$filename.'Application DataICAClientpn.ini'; open (fileRef,$filename) || die "error for $filename: $!/n"; while( my $fileLine=<fileRef>) { print $fileLine; } close fileRef; } } } ----------------------------------------------------------------------------
mon problème c'est que je ne sais pas traité le cas ou le fichier chercher n'existe pas : open (fileRef,$filename) || die "error for $filename: $!/n"; le script s'arrete. c'est normal j'ai mis un 'die'.
mais comment faire pour continuer le traitement sur les autres fichiers ? merci
Salut,
Remplace: open (fileRef,$filename) || die "error for $filename: $!/n";
"Sébastien Cottalorda" a écrit dans le message de news: 439955fb$0$7358$
bonjour.
je suis en train de prototyper une appli : --------------------------------------------------------------------------- #!/usr/local/bin/perl
use strict; doTheJob('O:Loc'); exit;
sub doTheJob { my $dir = shift; opendir(thisDir, $dir); my @allDirs = readdir(thisDir); closedir(thisDir);
foreach my $file (@allDirs) { my $filename = $dir . '/' . $file; if ($file eq '.' || $file eq '..'){ } elsif (-d $filename) { print "nn$filename :n"; $filename=$filename.'Application DataICAClientpn.ini'; open (fileRef,$filename) || die "error for $filename: $!/n"; while( my $fileLine=<fileRef>) { print $fileLine; } close fileRef; } } } ----------------------------------------------------------------------------
mon problème c'est que je ne sais pas traité le cas ou le fichier chercher n'existe pas : open (fileRef,$filename) || die "error for $filename: $!/n"; le script s'arrete. c'est normal j'ai mis un 'die'.
mais comment faire pour continuer le traitement sur les autres fichiers ? merci
Salut,
Remplace: open (fileRef,$filename) || die "error for $filename: $!/n";
merci... mais je ne suis variment pas réveillé ce matin. en fait j'ai juste fait : open (fileRef,$filename) || print "n*** error for $filename: $!nn";
a+
"Sébastien Cottalorda" <spp_icarsNOSPAM@yahoo.fr> a écrit dans le
message de news: 439955fb$0$7358$636a55ce@news.free.fr...
bonjour.
je suis en train de prototyper une appli :
---------------------------------------------------------------------------
#!/usr/local/bin/perl
use strict;
doTheJob('O:Loc');
exit;
sub doTheJob {
my $dir = shift;
opendir(thisDir, $dir);
my @allDirs = readdir(thisDir);
closedir(thisDir);
foreach my $file (@allDirs) {
my $filename = $dir . '/' . $file;
if ($file eq '.' || $file eq '..'){
}
elsif (-d $filename) {
print "nn$filename :n";
$filename=$filename.'Application DataICAClientpn.ini';
open (fileRef,$filename) || die "error for $filename:
$!/n";
while( my $fileLine=<fileRef>) {
print $fileLine;
}
close fileRef;
}
}
}
----------------------------------------------------------------------------
mon problème c'est que je ne sais pas traité le cas ou le fichier
chercher n'existe pas : open (fileRef,$filename) || die "error for
$filename: $!/n";
le script s'arrete. c'est normal j'ai mis un 'die'.
mais comment faire pour continuer le traitement sur les autres
fichiers ?
merci
Salut,
Remplace:
open (fileRef,$filename) || die "error for $filename: $!/n";
"Sébastien Cottalorda" a écrit dans le message de news: 439955fb$0$7358$
bonjour.
je suis en train de prototyper une appli : --------------------------------------------------------------------------- #!/usr/local/bin/perl
use strict; doTheJob('O:Loc'); exit;
sub doTheJob { my $dir = shift; opendir(thisDir, $dir); my @allDirs = readdir(thisDir); closedir(thisDir);
foreach my $file (@allDirs) { my $filename = $dir . '/' . $file; if ($file eq '.' || $file eq '..'){ } elsif (-d $filename) { print "nn$filename :n"; $filename=$filename.'Application DataICAClientpn.ini'; open (fileRef,$filename) || die "error for $filename: $!/n"; while( my $fileLine=<fileRef>) { print $fileLine; } close fileRef; } } } ----------------------------------------------------------------------------
mon problème c'est que je ne sais pas traité le cas ou le fichier chercher n'existe pas : open (fileRef,$filename) || die "error for $filename: $!/n"; le script s'arrete. c'est normal j'ai mis un 'die'.
mais comment faire pour continuer le traitement sur les autres fichiers ? merci
Salut,
Remplace: open (fileRef,$filename) || die "error for $filename: $!/n";
merci... mais je ne suis variment pas réveillé ce matin. en fait j'ai juste fait : open (fileRef,$filename) || print "n*** error for $filename: $!nn";
a+
DoMinix
kurtz_le_pirate wrote:
bonjour.
'lut
...
mon problème c'est que je ne sais pas traité le cas ou le fichier chercher n'existe pas : open (fileRef,$filename) || die "error for $filename: $!/n"; le script s'arrete. c'est normal j'ai mis un 'die'.
note qu'avec open il est preconisé d'utiliser "or" plutot que "||" open ... or die ... mais bon, ca le fait quand meme
mais comment faire pour continuer le traitement sur les autres fichiers ? merci
avec un eval ou un test sur open ?
-- dominix
kurtz_le_pirate wrote:
bonjour.
'lut
...
mon problème c'est que je ne sais pas traité le cas ou le fichier
chercher n'existe pas : open (fileRef,$filename) || die "error for
$filename: $!/n";
le script s'arrete. c'est normal j'ai mis un 'die'.
note qu'avec open il est preconisé d'utiliser "or" plutot que "||"
open ... or die ...
mais bon, ca le fait quand meme
mais comment faire pour continuer le traitement sur les autres
fichiers ?
merci
mon problème c'est que je ne sais pas traité le cas ou le fichier chercher n'existe pas : open (fileRef,$filename) || die "error for $filename: $!/n"; le script s'arrete. c'est normal j'ai mis un 'die'.
note qu'avec open il est preconisé d'utiliser "or" plutot que "||" open ... or die ... mais bon, ca le fait quand meme
mais comment faire pour continuer le traitement sur les autres fichiers ? merci
