Discussion :

[oliviernouhi]

Bonjour,

Ce code suivant récupère les noms des fichiers avec le chemin, mais je voudrais récupérer seulement le nom du fichier.

Voici le code :

Code :

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

1
2
3
4
5
find( { wanted => \&process, }, 'C:\Documents and Settings\user\Mes documents\Verif_Script' );
 
sub process {
  if ( -f $File::Find::name ) { print "$File::Find::name\n"; }
}

le résultat :

Code :

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

1
2
3
4
5
 
C:\Documents and Settings\user\Mes documents\Verif_Script>perl verif.pl
C:\Documents and Settings\user\Mes documents\Verif_Script/a.sql
C:\Documents and Settings\user\Mes documents\Verif_Script/AFFBTC02.pkb
C:\Documents and Settings\user\Mes documents\Verif_Script/AFFBTC02.pksS

Alors que je voudrais ce résultat :

Code :

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

1
2
3
4
perl verif.pl
a.sql
AFFBTC02.pkb
AFFBTC02.pksS

Comment faire svp ?

[Philou67430]

Code :

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

1
2
3
sub process {
  if ( -f $File::Find::name ) { print "$_\n"; }
}

tout simplement, en utilisant $_ (RTFM).

[oliviernouhi]

exacte c'est pas faux !

merci beaucoup