Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1799 connectés 

  FORUM HardWare.fr
  Programmation
  Perl

  [perl] ouverture de fichier d'extension particuliere.

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[perl] ouverture de fichier d'extension particuliere.

n°1345018
fiftoman
Posté le 12-04-2006 à 14:53:48  profilanswer
 

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.

mood
Publicité
Posté le 12-04-2006 à 14:53:48  profilanswer
 

n°1345040
anapajari
s/travail/glanding on hfr/gs;
Posté le 12-04-2006 à 15:04:43  profilanswer
 

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

n°1345065
fiftoman
Posté le 12-04-2006 à 15:15:46  profilanswer
 

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..

n°1345094
fiftoman
Posté le 12-04-2006 à 15:26:52  profilanswer
 

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";  

n°1346076
fiftoman
Posté le 13-04-2006 à 14:38:18  profilanswer
 

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 !  
 

n°1347394
lami20j
Posté le 15-04-2006 à 10:56:29  profilanswer
 

Salut,
 

fiftoman a écrit :

A y est, j'ai trouvé:
Pour ouvrir des fichiers d'extension .nas ou .f06 dans un repertoire DIR


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

Citation :

Posté le 13-04-2006 à 14:38:18


Et le message original

Citation :

Ajouté par lami20j (13/04/2006 à 00:39 GMT+2)

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


Message édité par lami20j le 15-04-2006 à 10:58:25

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  Perl

  [perl] ouverture de fichier d'extension particuliere.

 

Sujets relatifs
Lecture de fichier[RESOLU] Rechercher dans un fichier texte
Traitement élaboré d'un fichier texteQuestion pour elcture d'un fichier
concatenation de deux fichier html en VB[Delphi] Expression régulière - nom de fichier
Accélérer un script perlModifier les données d'un fichier.
soucis pour la création d'un lien de téléch d'un fichier csvUpload de gros fichier (local) par HTTP
Plus de sujets relatifs à : [perl] ouverture de fichier d'extension particuliere.


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR