[Cascavel-pm] Substituir qualquer coisa por *
Nilson Santos Figueiredo Junior
acid06 em gmail.com
Terça Junho 28 06:51:08 PDT 2005
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.
Mais detalhes sobre a lista de discussão Cascavel-pm