perl/DXUtil.pm

   1 #
   2 # various utilities which are exported globally
   3 #
   4 # Copyright (c) 1998 - Dirk Koopman G1TLH
   5 #
   6 # $Id$
   7 #
   8
   9 package DXUtil;
  10
  11 require Exporter;
  12 @ISA = qw(Exporter);
  13 @EXPORT = qw(atime
  14             );
  15
  16 @month = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
  17
  18 sub atime
  19 {
  20   my ($sec,$min,$hour,$mday,$mon,$year) = gmtime(time);
  21   $year += 1900;
  22   my $buf = sprintf "%02d%s%04d\@%02d:%02d:%02d", $mday, $month[$mon], $year, $hour, $min, $sec;
  23   return $buf;
  24 }
  25
  26
  27