Smilie

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

------------------
Hansen
c.h@ngmedia.com

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;
}

------------------
Hansen
c.h@ngmedia.com

Man tackar, man tackar. :)