Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Network backup thing

by Beatnik (Parson)
on May 13, 2001 at 19:44 UTC ( [id://80044] : CUFP . print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
    
    use strict;
    ...
      if ($error != 2) { $counter++; } else { last; }
    }
    if ($counter == 2) { die $error; } else { unlink $filename.".tar.gz"; 
    +}