Есть написанный мною код:
my %SM=();
my $result=$dbh->prepare("select * from smiles");
$result->execute();
while (my $ln = $result->fetchrow_hashref())
{
$SM{$ln->{\'text\'}}="$ln->{\'file\'}:$ln->{\'alt\'}";
}
while (my($k,$v)=each(%SM))
{
my($f,$a)=split(":",$v);
$im="
";
$TEXT =~ s/$k/$im/;
}
Не работает!!! :-( В чем моя ошибка! Может кто подскажет более правильный и быстрый способ замыны смайликов картинками!!!