Thanks, that did speed it up a little bit!
Before:
%Time ExclSec CumulS #Calls sec/call Csec/c Name
49.6 21.58 21.525 130000 0.0002 0.0002 FTS::printto
After:
%Time ExclSec CumulS #Calls sec/call Csec/c Name
48.8 20.83 20.710 130000 0.0002 0.0002 FTS::printto
| [reply] |
Does anybody know why this seems to make a difference? The print calls are of fairly short strings, and the filehandle I'm printing to is buffered (strace shows that each iteration is generating only one system call). I thought that printing a small string to a buffered filehandle would just append the string to the stdio buffer, which would be as fast as or faster than me buffering myself.
| [reply] |
As you say, you are generating a system call (plus memory copy from user to kernel space) for every iteration: that might be a small penalty, but incurs 130,000 times... doing it just once saves some bit work, hence the (small) performance increase.
OTOH, if your strings get extremely big you are probably going to lose this benefit, since buffering in your sub is likely to cause a lot of work for memory allocation.
| [reply] |
Depending on the type of $fh, you may well be making a method call for each print. Perl's method calls are fairly expensive, and the time for most of the call counts against the caller, not the callee.
| [reply] |