Help for this page

Select Code to Download


  1. or download this
    foreach my $arg (@ARGV) {
    if( $arg =~ /^-B(\d+)$/ ) {  # months Before
...
    if( $before !~ /^\d+/ ) {
        die "Bad before argument ($before)\n";
    }
  2. or download this
    /$ /usr/local/bin/cal2.pl -B 4
Uncaught exception from user code:
    Bad before argument (-B)