Help for this page

Select Code to Download


  1. or download this
    if ( ! unlink $file ) {
    warn "Can't unlink '$file': $!\n";
    push @unlink_failures, $file;
}
  2. or download this
    @unlink_failures = grep { ! unlink } @files_to_unlink;
warn "unlink failed for '$_'\n" for @unlink_failures;
  3. or download this
    warn "unlink failed for '$_'\n"
    for ( @unlink_failures
             = grep { ! unlink } @files_to_unlink );