
fashimpaur
User
Feb 15, 2002, 12:33 PM
Post #4 of 6
(12276 views)
|
Re: [yapp] Replacement problem
[In reply to]
|
Can't Post
|
|
How about this: $message = "Hello>) <> Welcome to Perl ;)"; # If I am not mistaken, you want this for output: #$message = "Hello>) <> Welcome to Perl <img src="wink.gif">"; #How about this: $message =~ s/>/>/gm; $message =~ s/</</gm; print $message."\n"; $message =~ s/[^\&a-z{2}]{1};\)/ <img src="wink.gif">/; print $message."\n"; Is that what you want? HTH, Dennis $a="c323745335d3221214b364d545". "a362532582521254c3640504c3729". "2f493759214b3635554c3040606a0", print unpack"u*",pack "h*",$a,"\n\n";
|