use Getopt::Long;

my %opt = ();
            GetOptions(
               \%opt,
               #general file path
               "path=s",
                        #file name
                 "file=s",
              );
my $path = $opt{path};
my $file = $opt{file};
[download]

my $fullFile = $path . $file;
unlink($fullFile) or die "$!\n";
[download]

foreach my $arrayFile(@array) {
  my $fullFile = $path . $arrayFile;
  unlink($fullFile) or die "$!\n";
  }
[download]

If I get it right, you've got the path in $path and a list of mere filenames in @arr, each of which must be prepended with $path to get a list of full paths. I'd use map:

You should definitely test the return value of unlink: If anything goes wrong, it won't complain loudly but merely return a false value

--bwana147

You could do something like this:

my @arr;
if ( -d $ARGV[0] ) {
  my $dir = shift @ARGV;
  @arr = map { "$dir/$_" } @ARGV;
}
else {
  @arr = @ARGV;
}
[download]

for ( @arr ) {
  if ( -d $_ ) {
    print "nice try - I cannot unlink directories\n";
    next;
  }
  unlink $_;
}
[download]

What kind of bad things happen if I delete a directory with files in it? I'd normally just test it, but now I'm afraid. And if it's a potentially serious issue, why does Perl let you do it? Even the shell command doesn't let you delete a non-empty directory...

Hmmm, I decided to read the docs just to make sure I knew what I was talking about. And unlink will not touch a directory unless you are root and running with the -U flag. So, it would appear that you can ignore my warning and I really didn't know what I was talking about :)

mikfire

$array[0] = C:/MainDir/SubDir/ExtraDir/file1.txt
[download]

$i = $#array;
for ($i;$i >= 0;$i--){
unlink $array[$i];
}
[download]

while (@array) {
$x = (pop, @array);
unlink $x;
}
[download]