home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / perl / tutorial / eg / ncal < prev    next >
Encoding:
Text File  |  1990-03-16  |  989 b   |  58 lines
  1. #!/usr/bin/perl
  2.  
  3. $[ = 1;
  4.  
  5. $CALPATH = '/usr/bin/cal';
  6.  
  7. ($program = $0) =~ s%.*/%%;
  8.  
  9. ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
  10.  
  11. @months = ( "january ", "february", "march", "april", "may", "june", 
  12.         "july", "august", "september", "october", "november",
  13.         "december" );
  14.  
  15. $mon++;
  16. $year += 1900;
  17.  
  18. if ($#ARGV == 0) {
  19.     do cal($mon, $year);
  20. } 
  21.  
  22. if ($#ARGV > 2) {
  23.     print stderr "usage: $program [month] year\n";
  24.     exit 1;
  25. } 
  26.  
  27. if ($#ARGV == 2) {
  28.     $year = $ARGV[2];
  29. } 
  30.  
  31. if ($ARGV[1] =~ /^\d+$/) {
  32.     if ($ARGV[1] > 12) {
  33.     die "month too big" if $#ARGV == 2;
  34.     do cal($ARGV[1]);
  35.     } else {
  36.     do cal($ARGV[1], $year);
  37.     } 
  38. } else {
  39.     do cal(&getmonth($ARGV[1]), $year);
  40. } 
  41.  
  42.  
  43. sub cal { 
  44.     die "year too big"  if $_[2] > 9999;
  45.     exec $CALPATH, @_;
  46.     die "can't exec $CALPATH: $!";
  47. }
  48.  
  49. sub getmonth {
  50.     local($mon) = @_;
  51.  
  52.     for ($i = 1; $i <= 12; $i++) {
  53.     return $i if $months[$i] =~ /^$mon/oi;
  54.     } 
  55.  
  56.     die "$mon is not a month name";
  57. } 
  58.