Discussion :

[oliviernouhi]

Bonjour,

J'ai un petit script perl qui me remonte le nom des fichiers dans un répertoire, et j'aimerai aussi pouvoir récupérer les noms du chemin des fichiers.
Surtout si j'ai dans mon répertoire, un autre répertoire et un fichier... etc..

Voici ma petite fonction :

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
$tabFic[0][0]="Nom Fichier";
$tabFic[0][1]="est Utilisé";
$tabFic[0][2]="chemin";
 
find( { wanted => \&process, }, $ARGV[1] // $rep );
 
sub process {
	$tabFic[$tabFic_nb][0]="null"; # Nom de fichier
	$tabFic[$tabFic_nb][1]=1; #Est utilisé (0) pour non, (1) pour oui
	$tabFic[$tabFic_nb][2]="null"; # Son chemin
	# if ( -f $File::Find::name ) { print "$File::Find::name\n"; } # fichiers dans le repertoire avec le nom du chemin
	if ( -f $File::Find::name ) { # fichiers dans le repertoire
		$tabFic[$tabFic_nb][0] = $_;
		$tabFic_nb++;
	} 
}

Du coup stocker dans $tabFic[$tabFic_nb][2] le nom du chemin du fichier

Merci d'avance

[Philou67430]

Le nom du répertoire d'un fichier chercher par File::Find est dans la variable $File::Find::dir (voir doc du module).

A noter que $File::Find::name contient le chemin + le nom du fichier.

[oliviernouhi]

Merci,

ça fonctionne avec ce code :

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
17
$tabFic[0][0]="Nom Fichier";
$tabFic[0][1]="est Utilisé";
$tabFic[0][2]="chemin";
 
find( { wanted => \&process, }, $ARGV[1] // $rep );
 
sub process {
	$tabFic[$tabFic_nb][0]="null"; # Nom de fichier
	$tabFic[$tabFic_nb][1]=1; #Est utilisé (0) pour non, (1) pour oui
	$tabFic[$tabFic_nb][2]="null"; # Son chemin
	# if ( -f $File::Find::name ) { print "$File::Find::name\n"; } # fichiers dans le repertoire avec le nom du chemin
	if ( -f $File::Find::name ) { # fichiers dans le repertoire
		$tabFic[$tabFic_nb][0] = $_;
		$tabFic[$tabFic_nb][2] = $File::Find::dir;
		$tabFic_nb++;
	} 
}

Encore merci bonne journée