boredom in my SE class
#tags perl

I was curious to see how much slower sprintf was in perl than an equivalent print statement. Using Debug::Profile hotness, after a million calls it turns out that sprintf is insignificantly slower. Yay boredom.<p>

<pre>
time elapsed (wall):   47.2054
time running program:  34.0098  (72.05%)
time profiling (est.): 13.1956  (27.95%)
number of calls:       2000000

%Time    Sec.     #calls   sec/call  F  name
60.20   20.4722        0  20.472220  *  <other>
21.04    7.1548  1000000   0.000007     main::sp
18.77    6.3828  1000000   0.000006     main::nosp
</pre>
<p>
<pre>
sub sp {
   return sprintf("(%s) %s - %s\n", $album, $artist, $title);
}

sub nosp {
   return "(" . $album . ") " . $artist . " - " . $title . "\n";
} 
</pre>