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