Next Trivial Utilities 28

localtime

        if ($ARGV[0] eq '-f') {
          *show_localtime = \&show_localtime_list;
          shift;
        }
        sub show_localtime_list {
          my $t = shift;
          my @a = localtime $t;
          "@a\n"
        }
        % localtime -f 1089231416
        56 16 16 7 6 104 3 188 1


Next Menu Copyright © 2012 M. J. Dominus