[Date Prev][Date Next][Thread Prev][Thread Next] [Search] [Date Index] [Thread Index]

Re: [Fun With Perl] Rewrite and simplify redux

On 990613, Randal L. Schwartz wrote:
> print join ", ", map sprintf("SEQ ID NO: %s (%s)", $pairs{$id}, $id), @ids;

print join ", ", map sprintf("SEQ ID NO: %s (%s)", $pairs{$_}, $_), @ids;

surely?

Oh, and that pesky final newline, too.