1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
#!/bin/perl
 
# Uptimeline.pl
# by thetrojan01
 
# This script is to make the uptime line shown as HH:MM:SS
 
# Take the uptime
$uptime = `cat /proc/uptime | awk ' {print $1}'`;
 
# These help us calculate the minutes and hours
$min=60;
$hour = $min*60;
 
$minutes = 0;
$hours = 0;
 
# Make the uptime number integer
$seconds = int($uptime);
 
while ($seconds >= $min)
{
        while ($seconds >= $hour)
        {
                $seconds -= $hour;
                ++$hours;
        }
        $seconds -= $min;
        ++$minutes
}
 
if($seconds < 10) { $seconds = "0$seconds"; }
if($minutes < 10) { $minutes = "0$minutes"; }
if($hours < 10) { $hours = "0$hours"; }
 
print "$hours:$minutes:$seconds";