perl - déplacer des fichiers à l'aide de caractères génériques

Est-il possible d'utiliser perl move fonction de File::Copy module d'utiliser un joker pour déplacer un certain nombre de communes des fichiers avec la même extension de fichier?
Jusqu'à présent, je ne peux obtenir move de travail si j'ai choisi de nommer les fichiers.

Par exemple, je voulais faire quelque chose comme ça:

my $old_loc = "/share/cust/abc/*.dat";
my $arc_dir = "/share/archive_dir/";

Maintenant, je peux faire un fichier comme ceci:

use strict;
use warnings;
use File::Copy;

my $old_loc = "/share/cust/abc/Mail_2011-10-17.dat";
my $arc_dir = "/share/archive_dir/Mail_2011-10-17.dat";
my $new_loc = $arc_dir;

#archive
print "Moving files to archive...\n";
move ($old_loc, $new_loc) || die "cound not move $old_loc to $new_loc: $!\n";

Ce que je veux faire à la fin de mon programme perl, déplacer tous ces fichiers nommés *.dat à un répertoire d'archivage.

OriginalL'auteur jdamae | 2011-10-24