t.pl

   1 #!/usr/bin/perl -w
   2
   3 sub x_push() {
   4         my @deadhosts = ();
   5
   6         push(@deadhosts, "foo");
   7         push(@deadhosts, "bar");
   8
   9         for my $host (@deadhosts) {
  10                 print "$host\n";
  11         }
  12 }
  13
  14 sub dump_args() {
  15         printf("%d arguments\n", $#ARGV+1);
  16         for (my $i=0; $i <= $#ARGV; $i++) {
  17                 printf("%s\n", $ARGV[$i]);
  18         }
  19 }
  20
  21 ################
  22 # display a time as days, hours, minutes
  23 sub dhm_time($)
  24 {
  25         my $sec = shift;
  26         my $days = int($sec / (60*60*24));
  27         my $hour = int($sec / (60*60)) % 24;
  28         my $min = int($sec / 60) % 60;
  29
  30         my $ret = "";
  31         if ($days != 0) {
  32                 return sprintf("%dd %dh %dm", $days, $hour, $min);
  33         }
  34         if ($hour != 0) {
  35                 return sprintf("%dh %dm", $hour, $min);
  36         }
  37         if ($min != 0) {
  38                 return sprintf("%dm", $min);
  39         }
  40         return sprintf("%ds", $sec);
  41 }
  42
  43
  44 #dump_args();
  45 printf("%s\n", dhm_time($ARGV[0]));