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 ?