Re: Converting Seconds to Nice Format

[Anonymous Monk]

Something like this:

$up = `cat /proc/uptime`; $up =~ m/[^ .]*/; $upseconds = $&;

$days = (int($upseconds / (60*60*24))) % 7;
$hours = (int($upseconds / (60*60))) % 24;
$minutes = (int($upseconds / 60)) % 60;
$weeks = (int($upseconds / (60*60*24*7))) % 52;
$years = (int($upseconds / (60*60*24*365))) % 10;
$decades = (int($upseconds / (60*60*24*365*10)));

[blogan]

Your code looks file, but I would suggest that you may want to reorder the lines so it looks a little better.

$up = `cat /proc/uptime`; $up =~ m/[^ .]*/; $upseconds = $&;

$seconds = (int($upseconds)) % 60;
$minutes = (int($upseconds / (60))) % 60;
$hours   = (int($upseconds / (60*60))) % 24;
$days    = (int($upseconds / (60*60*24))) % 7;
$weeks   = (int($upseconds / (60*60*24*7))) % 52;
$years   = (int($upseconds / (60*60*24*365))) % 10;
$decades = (int($upseconds / (60*60*24*365*10)));