[Cascavel-pm] Substituir qualquer coisa por *

[Nilson Santos Figueiredo Junior]

On 6/27/05, Rafael Szarblewski <rafasz em ibestvip.com.br> wrote:
> my $pass = length($class->{In}->{Pass}) * "*"; 

Me desculpe mas, RTFM.
my $pass = '*' x length($class->{In}->{Pass});

Ou então, o jeito mais Perl de se fazer isso:
(my $pass = $class->{In}->{Pass}) =~ s/./*/g;

Claro que, você poderia simplesmente passar a senha mesmo de volta,
como value de um campo com type=password.

-Nilson Santos F. Jr.