On Thu, 31 Jan 2002 14:06:06 -0000, Michael Kavanagh <[EMAIL PROTECTED]> wrote: > I thought it would be good to be able to do this: > > $item = "<blah>"; > $item =~ tr/<>/(<)(>)/; > > to convert those <> symbols to their entity references. however, the > tr operator doesn't seem to like using () to group... any comments on > how to make this operation in to a one-liner?
Here's a possible suboptimal one-liner approach: #!/usr/bin/perl -w use strict; my $item = "<gah>buh</gah> zoh"; $item =~ s/([<>])/'&'. ($1 eq'<' ? 'l':'g') . 't;'/eg; print $item; __END__ -- briac << dynamic .sig on strike, we apologize for the inconvenience >> -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]