perl/DXUtil.pm

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