added latency tool
[tridge/junkcode.git] / 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]));