On Fri, 30 Jan 2009, Eric Lease Morgan wrote:
Is there any way I can make my Perl wrapper for yaz-marcdump, below, more
efficient?
[trimmed]
For extra credit, is there anyway I can optimize m2u? For example, is there
anyway to get rid of the while loop and slurp up yaz-marcdump's output in
one go?
It might be faster to process multiple files at once, so you don't have
the overhead of perl starting up each time. For the while loop, use:
my $r = do { local $/ = undef; <C> };
(unset the end-of line marker, then read it in one pass, the 'do' block
keeps the change of end of line marker from affecting anything else)
-Joe
