Soarin' Station

[spaulo]

Code: Select all

#!/usr/bin/perl

use MP3::Info; 

while ( <n>{MM}, $i->{SS}, $n; 
   $t += (60*$i->{MM})+$i->{SS};
} 

printf "%4d:%0.2d TOTAL\n", $t/60, $t%60;

exit 0;

Perl never ceases to amaze me with how complicated it looks... I can handle PHP, Javascript, Ruby... but Perl always looks so crazy to me. I don't know, must just be unfamiliarity with the syntax, or is everything shorthand, and therefore deliberately confusing?