Help for this page

Select Code to Download


  1. or download this
    if ($date) {
        date();
    }
    
  2. or download this
    if ($date) {
        $when = date($date);
    }
    
  3. or download this
    sub format_date_mdy {
        my($date) = @_
        my $dt = parsedate($date);
        return strftime("%m%d%y", localtime($dt));
    }
    
  4. or download this
    
    login($command, $login, $password);
    ...
    
        ...
    }
    
  5. or download this
    my $job = shift or die "Need a job name";
    
  6. or download this
    my $job = shift or pod2usage(
        -message => "Need a job name",
        -verbose => 0,
        -exitval => 1,
    );
    
  7. or download this
    if ($options{t}) {
        if ($job && $queue && $date && $time) {
    ...
        }
    }