[Cascavel-pm] Envio de dados para formulário .htm

[André Garcia Carneiro]

> Boa tarde pessoal. O código abaixo envia as informações contidas no arquivo 
> "users" para o browser, no entanto, eu queria que o formato em que essas 
> informações aparecessem fosse mais amigável. Há como fazê-lo ficar mais 
> organizado na página? 
> -------------------------------------------------------------------- 
> #!/usr/bin/perl 
> 
> use strict; 
> use warnings; 
> use CGI qw ( :standard); 
> my $users = '/home/rafael/users'; 
> open (USERS,$users) or die ("Nao pode abrir o arquivo: $!"); 
> print header(), start_html( "Usuarios e Senhas" ); 
> while(<USERS>) { 
> 
> if (/(.+?)\s+(.+?)\s+(producao|diretoria)?$/) { 
> print "Usuario: $1<br> senha: $2 Grupo: ". ($3 eq 
> "producao"?"producao\n<br>":"diretoria\n<br>"); 
>   } 
> } 
> close (USERS); 

> ------------------------------------------------------------------- 
> o resultado é o seguinte: 
> Usuario: rafael senha: zxc1234, Grupo: producao 
> Usuario: roberto senha: zxc1234, Grupo: producao 
> Usuario: marcelo senha: zxc1234, Grupo: diretoria 
> Usuario: allan senha: zxc1234, Grupo: producao 
> Usuario: teste senha: sdd123, Grupo: producao 
> Usuario: squid senha: asd123, Grupo: producao 
> Usuario: suporte senha: asd123, Grupo: producao 
> 
> Eu queria que ele fosse assim: 
> 
>          GRUPO DIRETORIA 
> 
> Usuário                     Senha 
> --------                    ------ 
> marcelo                     asd123, 
> 
>          GRUPO PRODUCAO 
> Usuário                     Senha 
> -------                     ------ 
> rafael                      asd123, 
> 
> 
> Rafael Lebrao Martins. 
> Cursando Ciências Contábeis. 
> Universidade Estadual Do 
> Sudoeste Da Bahia. 
> Microsoft Certified 
> Professional 
> 70-271:Supporting Users and 
> Troubleshooting a Microsoft® 
> Windows® XP Operating System 
> TEL - (77) 9989-6327 
> 

Bem... existe um comando que é pouco usado(pelo menos eu nunca vi ninguém por aqui usar). Esse comando é o
'format'. Dá uma lida nesse 'how to'.

http://www.cs.mcgill.ca/~abatko/computers/programming/perl/howto/format/



Cheers!

--
André Garcia Carneiro
Developer(Perl/PHP)
Member of "São Paulo Perl Mongers" - http://sao-paulo.pm.org