---
title: "Smilie"
type: "forum-thread"
url: "https://www.webforum.nu/amne/perl-ruby/19385-smilie"
topic: "Perl & Ruby"
topic_url: "https://www.webforum.nu/amne/perl-ruby"
author: "Kent"
published: "2001-07-09T09:57:00.000Z"
updated: "2001-07-09T17:42:00.000Z"
replies: 4
views: 185
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/perl-ruby/19385-smilie"
---

# Smilie

## #1 — Kent, 2001-07-09T09:57Z

Går det på något sätt att konvertera till en smilie automatiskt utan att posta ett inlägg?

Permalänk: https://www.webforum.nu/p/19385

## #2 — Hansen, 2001-07-09T13:07Z

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

Permalänk: https://www.webforum.nu/p/341934

## #3 — Kent, 2001-07-09T13:58Z

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?

Permalänk: https://www.webforum.nu/p/341935

## #4 — Hansen, 2001-07-09T16:59Z

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 '&#0124;', map quotemeta, keys %smilies;

    $imgpath &#0124;&#0124;= "";

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

Permalänk: https://www.webforum.nu/p/341936

## #5 — Kent, 2001-07-09T17:42Z

Man tackar, man tackar. :)

Permalänk: https://www.webforum.nu/p/341937

---

Tråden på webben: https://www.webforum.nu/amne/perl-ruby/19385-smilie