Discussion :

[Gerrardo]

salut

je veux lire un fichier qui est dans un répertoire qui contient un sous repertoire (dans ce sous repertoire je trouve le fichier que je veux l'ouvrir extension .txt)
comment dois je procéder ?! (fonction récursive )

[BufferBob]

salut,

comment dois je procéder ?!

en programmant un peu ça devrait fonctionner
tu as tenté quelque chose ?

[Lolo78]

Si tu sais à l'avance que ton fichier est dans un sous-répertoire, il n'y a peut-être pas besoin d'une fonction récursive.

Sinon, il y a le module File::Find qui répond peut-être à ton besoin. Ou je donne des exemples de parcours récursif d'une arborescence de répertoires dans la partie 2 de mon tutoriel sur la programmation fonctionnelle en Perl (voir dans ma signature ci-dessous).

Au fait, tu as oublié de me répondre dans ton autre post d'il y a 3 ou 4 jours.

[koivoguipeve]

j'ai un fichier initial dont le contenu est:
Ce fichier tabulaire contient trois colonnes d’informations : on pourra lire de gauche à droite :
Fréquence d’occurrence Numéro d’identification unité lexicale
Par exemple

3851 4178 de1972 6643 la1473 6697 les1391

On pourra lire dans le fichier de sortie de gauche à droite :
Numéro d’identification fréquence d’occurrence unité lexicale
les unités lexicales seront triées par ordre alphabetique
Dans ce meme exemple on aura
4178 3851 de
6643 1972 la
6697 1473 les

quel est le script qui lui correspond
Merci

[Lolo78]

Bonjour,

voici le code envoyé par Gerrardo (par MP):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
chomp ($user_supplied_directory = <STDIN>);
opendir (DIR, $user_supplied_directory);
my @dir = readdir DIR ;
 
foreach (@dir) {
if($_ =~ /filename/ )
{
print "yes i find it ";
# Reads the content of the original file
open(FILE, " $_ ");
@tab= <FILE>;
print @tab,"\n" ;
close FILE;
}
}

Je n'ai pas testé, mais je vois au moins un problème dans ce code: la fonction readdir renvoie le nom des fichiers du répertoire sans le chemin. Donc, au moment d'ouvrir le fichier, il faut passer le nom plus le chemin. Par exemple, en améliorant au passage la syntaxe d'appel de la fonction open :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
open my $FILE, "<", "$user_supplied_directory/$_" or die "Ouverture impossible de $_$!";

[Lolo78]

Bonjour koivoguipeve,

Je te prie de ne pas parasiter les posts ouverts par d'autres internautes et de créer un nouveau fil de discussion pour ta question sans rapport avec le post d'origine.

Merci d'avance et bien cordialement,
Laurent.

j'ai un fichier initial dont le contenu est:
Ce fichier tabulaire contient trois colonnes d’informations : on pourra lire de gauche à droite :
Fréquence d’occurrence Numéro d’identification unité lexicale
Par exemple

3851 4178 de1972 6643 la1473 6697 les1391

On pourra lire dans le fichier de sortie de gauche à droite :
Numéro d’identification fréquence d’occurrence unité lexicale
les unités lexicales seront triées par ordre alphabetique
Dans ce meme exemple on aura
4178 3851 de
6643 1972 la
6697 1473 les

quel est le script qui lui correspond
Merci