"Bob Showalter" <[EMAIL PROTECTED]> wrote in message
news:[EMAIL PROTECTED]
> print tbody(
> Tr(
> [map { s/([^\n\r]+)[ \t\n\r]+$/$1/; td([split /\t/]) }
> <$tabbed_text_fh>]
> )
> );
Thanks, though as usual, I've got another perldoc reference to lookup
("map").
>
> I'm not sure what your regex is trying to do. Why not just s/\s+$//
It's meant to be a generic "chomp()" for handling EOL's created on different
systems. It probably does the exact same thing as "s/\s+$//", though I'm
only now aware of the shortcut.
Cheers.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
