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/<>/(&lt;)(&gt;)/;
> 
> 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]

Reply via email to