Help for this page

Select Code to Download


  1. or download this
    @files = qw/file1 file2 file3/;
$cnt = unlink(@files);
unless( scalar(@files) == $cnt ) {
    die("Problem unlinking $files[$cnt]! $!");
}
  2. or download this
    Problem unlinking file2! No such file or directory at del.pl line 4.
  3. or download this
    unless( $cnt == @files )
{
  die 'Problem unlinking ', $cnt, ' of ', scalar(@files), ' files! ', 
+$!;
}