Code posted above should have looked like this
use warnings;
use strict;
use Term::Prompt;
use File::Find;
no warnings 'File::Find';
sub Wanted;
my ($dirname,$ans);
$basedir="/dmp/backup";
$dirname = prompt('e', 'Enter a dir name', 'e.g. regression-EO
+DDAY1', '','[A-Za-z0-9_-]+' );
# Check whether the dir already exists
if (find(\&Wanted, $basedir))
{
$ans = prompt('y', 'That dir already exists, do you wi
+sh to overwrite the existing contents ?','[y/n]','n');
if ($ans == 1) {
$dirname = prompt('e', 'Enter a dir name', 'e.
+g. regression-EODDAY1', '','[A-Za-z0-9_-]+' );
}
if (find(\&Wanted, $basedir))
{
$ans = prompt('y', 'That dir already exists, d
+o you wish to overwrite the existing contents ?','[y/n]','n');
if ($ans == 1) {
$dirname = prompt('e', 'Enter a dir na
+me', 'e.g. regression-EODDAY1', '','[A-Za-z0-9_-]+' );
}
}
}
sub Wanted
{
my $dir = $File::Find::name;
print if /$dirname/ ;
return;
}