[Cascavel-pm] Substituir qualquer coisa por *

[Luis Campos de Carvalho]

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/