Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

Re: looking for feedback on my first script

by shmem (Chancellor)
on Jan 08, 2021 at 16:19 UTC ( #11126614=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    my $Usage = "usage: volume root_dir subvol timeframe dateformat keep\n
    +";
    @ARGV == 6 or die $Usage;  # we need six arguments
    ...
      $date_format_arg,        # to comment
      $snaps_to_keep_arg,      # what they are about
    ) = @ARGV;
    
  2. or download this
    sub create_snapshot_name { 
    
    ...
          
      sprintf "day=%02d_%02d_%04d,time=%02d:%02d",@fields,$yr,$hr,$min;
    }
    
  3. or download this
    This script should not be used by the end user.
    
  4. or download this
    exec "pod2man $0" if -t; # display manual page if invoked from termina
    +l
    

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://11126614]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (2)
As of 2021-09-20 03:24 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?