[Cascavel-pm] Substituir qualquer coisa por *

[Gabriel Vieira]

hehe
mto bom... funcional para mtas aplicações :)

Abraços
----- Original Message ----- 
From: "Luis Campos de Carvalho" <monsieur_champs em yahoo.com.br>
To: "Cascavel Perl Mongers" <cascavel-pm em pm.org>
Sent: Wednesday, June 29, 2005 9:28 PM
Subject: Re: [Cascavel-pm] Substituir qualquer coisa por *


Rafael Szarblewski wrote:
> Olá Amigos Monges,
>
> Eu estou tentando trocar os caracteres de uma string por asteriscos mas
> não sei como fazer isso, alguém pode me dar uma luz?
>
> my $pass = length($class->{In}->{Pass}) * "*";
>
> Isso é para um campo senha, quando o usuário submete um formulário, ele
> é redirecionado para uma tela onde aparecem os dados dele para
> confirmação, só que eu não queria que aparecesse o campo senha, somente
> os asteríscos, assim como no campo <input type="password"> de um form.
>
> Desde já agradeço!
>

   Você pode usar assim:

   __PERL__
   sub replace_with_char( $$ ){
     my( $char, $string ) = ( shift, shift );
     return undef unless $string;
     return $string unless $char;
     $string =~ s/\Q$char\E/go;
     return $string;
   }

   # Enquanto isso, em algum lugar do código...
   my $pass = replace_with_char '*', $pass;
   print $pass, $/; # Imprime um monte de '*'.
   __END__

   Espero que isso ajude.
   Putamplexos!
-- 
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  Luis Campos de Carvalho is BSc in Comp Science,
  PerlMonk [SiteDocClan], Sao Paulo PM Leader,
  Unix Sys Admin && Certified Oracle DBA
  http://br.geocities.com/monsieur_champs/
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=




_______________________________________________________
Yahoo! Acesso Grátis - Internet rápida e grátis.
Instale o discador agora! http://br.acesso.yahoo.com/
_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm