usr_bin/sepdate.pl

   1 #!/usr/bin/perl
   2 # sepdate utility
   3 # usage: sepdate [month date year]
   4 # where day month year are date of interest -- default is today
   5
   6 # Adapted and updated from a version attributed to Rich Holmes
   7
   8 use Time::Local;
   9 use POSIX qw(strftime);
  10
  11 if ($#ARGV == 2) {
  12          $todmon = $ARGV[0]-1;
  13          $todday = $ARGV[1];
  14          $todyr = $ARGV[2];
  15          $todti = timelocal(0, 0, 0, $todday, $todmon, $todyr);
  16 } elsif ($#ARGV == -1) {      $todti = time;
  17 } else {      die;
  18 }
  19
  20 $septime = timelocal(0, 0, 0, 31, 7, 93);
  21
  22 $tdiff = $todti - $septime;
  23 $days = int ($tdiff / (60 * 60 * 24));
  24
  25 ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
  26
  27 # this seems like overkill
  28 $tzstr = strftime("%Z", $sec, $min, $hour, $mday, $mon, $year);
  29 printf ("%3s Sep %2d %2.2d:%2.2d:%2.2d %3s 1993\n",
  30                 (Sun,Mon,Tue,Wed,Thu,Fri,Sat)[$wday],
  31                 $days,$hour,$min,$sec,$tzstr);