Smilie

Jag förstår inte riktigt vad du menar, kan du utvecka det lite?

Jag ska hämta information ifrån en textfil, och då vill jag kunna skriva ut den informationen och samtidigt omvandla alla till smilies.
Går det?

Ok,
http://freebox.com/c.h/perl/smilies.pl.txt

#!/usr/bin/perl -w

use strict;

print smilies( readfile('dok.txt'), 'images/' );

sub smilies {
    my ($text, $imgpath) = @_;

    my %smilies = (
      ':)' => 'smile.gif',
      ':(' => 'frown.gif',
      ':D' => 'biggrin.gif',
      ';)' => 'wink.gif',
      ':o' => 'redface.gif',
      ':p' => 'tongue.gif',
    );

    my $regxp = join '|', map quotemeta, keys %smilies;

    $imgpath ||= "";

    $text =~ s/($regxp)/ <IMG SRC="$imgpath$smilies{$1}">/g;
    return $text;
}

sub readfile {
    my ($file) = @_;

    open( FILE, "$file" ) or die "Kan inte öppna filen: $file. Anledning: $!";
    local ($/) = undef;
    my $content = <FILE>;
    close(FILE);

    return $content;
}

Man tackar, man tackar.