Re: Search and replace with special characters


Perl-Sensitive Sunglasses
	PerlMonks

Re: Search and replace with special characters

by io (Scribe)

on Oct 02, 2002 at 13:27 UTC ( [id://202256]=note: print w/replies, xml )

Need Help??

in reply to [untitled node, ID 202198]

Why not use a hash?

#!/usr/bin/perl -w

use strict;

my $html = <<END_OF_HTML;
Hello! oX
World!

<;<;<;<;

Hi!
Samn! (~)
END_OF_HTML

my %emotes = map {split /#####|\n/} <DATA>;

for my $entry(keys %emotes) {
        $html =~ s!\Q$entry\E!<img src="$emotes{$entry}.gif">!g;
}

print $html;

__DATA__
oX#####skullandbones
<;#####pie
(o)#####goatse
(~)#####ninja
[download]

Note that im removing the trailing newline in the split operation, which is -ew- ugly.