Bonjour,
J'aimerais savoir comment on programme en perl l'ouverture d'un fichier d'extension particulière dans un repertoire donné.
 
PAr exemple, je veux ouvrir le seul fichier d'extension *.f06 dans le repertoire /dossier1/
 
Et si jamais il ne trouve pas de fichier d'extension *.f06 alors il ouvre le fichier d'extension *.nas  
 
PAr contre, si il trouve deux fichiers d'extension *.f06 dans le repertoire, il s'arrete et affiche un message d'erreur.
PAreil si il trouve deux fichiers d'extension *.nas
 
QQn sait-il faire ca svp ?
merci.

oui moi ...
Mais toi tu as essayé quoi jusqu'à présent?
Tu bloques ou exactement?

eh bien voilà ce que j'ai essayé:
 
my $r=0;
open TTXT, "*.f06"  or my $r=1;
#(j'ajoute une condition à la place de "or die "E/S: $!\n" )
#donc si la condition est respectée, c'est à dire qu'il arrive pas à ouvrir:
if ($r=1){open BULK, "*.nas";}
#il ouvre l'autre fichier.
 
MAIS BIEN SUR, CA MARCHE PAS DU TOUT. C'ETAIT JUSTE UN ESSAI.....
 
par contre, pour les fichiers en double, j'ai pas encore d'idée..

par contre, j'étais aussi  sur une autre piste, c'est à dire déclarer le nom de fichier dans une variable. Mais là non plus ca ne marche pas..
 
my $f = '*.f05';
open TTXT, "$f" or "\n peut pas ouvrir \n";  

A y est, j'ai trouvé:
Pour ouvrir des fichiers d'extension .nas ou .f06 dans un repertoire DIR:  
 
my %h;
my $fic;
 
opendir DIR,"." or die "E/S : $!\n";
 
while ( defined (my $fic = readdir(DIR)) ){
  next if $fic =~ /^\.+/;
  $h{substr($fic,-3)}++;
  if ( $fic =~ /.*\.(f06)/ || $fic =~ /.*\.(nas)/){
    if ($h{$1} >1){
      die "Plusiers fichier $1\n";
    }
    else {
      open F,"$fic" or die "E/S : $!\n";
    }
  }
}
 
ciao !  
 

Salut,
 

 
Mais il aurait été gentil de spécifier où ou comment tu as trouvé.
 
Ton message

Et le message original

http://www.commentcamarche.net/for [...] on-parti#1
 
lami20j