Räkna bokstäver

Hur räknar man antal bokstäver i en variabel på ett bra sätt?

Anledningen är att jag vill censurera ord i en gästbok, och ersätta de censurerade orden med lika många * som det finns i ordet.

/Csson

Var ju ett tag sedan du ställde denna fråga (såg först nu att du inte fått något svar). Möjligt att du redan löst problemet?

Annars kanske följande kodsnutt kan ge inspiration?

<BLOCKQUOTE><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Perl-kod:<pre>#!/usr/bin/perl -wT

use strict;

my @fula_ord = ('prutta', 'Göran Persson');

my $input = 'Bara Göran Persson vet när Mona pruttade senast.';

print "$input\n";

map {
my $replace = '*' x length($_); # Här är det du söker.
$input =~ s/$_/$replace/gi;
} @fula_ord;

print "$input\n";

------------------
Robban < robban@lipogram.com >

[Redigerat av Robban den 06 mar 2000]

Tackar :)

/Csson