Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number
 
PerlMonks  

To script or not to script, that is the question...

by tlm (Prior)
on May 31, 2005 at 06:44 UTC ( #461946=perlmeditation: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    sub update {
      my ( $url, $dir ) = @_;
      my @possible_suffixes = qw( .gz .bz2 );
      my $basename = extract_basename( $url, @possible_suffixes );
      my $local_file = "$dir/$basename";
    
  2. or download this
      return if -e $local_file and not is_newer( $url, $local_file );
    
  3. or download this
      my $temp_file = download( $url, TEMP_DIR ) or die "download of $url 
    +failed";
    
  4. or download this
      if ( -e $local_file ) {
        my $new_name = rename_file( $local_file, suffix( time ) );
        compress( $new_name );
      }
    
  5. or download this
      move_file( $temp_file, $local_file );
      maybe_uncompress( $local_file );
    
  6. or download this
    
      return 1;
    }
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: perlmeditation [id://461946]
Approved by holli
Front-paged by PodMaster
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (5)
As of 2014-09-01 22:47 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite cookbook is:










    Results (17 votes), past polls