[SP-pm] RES: RES: Oportunidade Perl

[Marco Lima]

Salve !

Ai bastaria um:

sh-3.00$ perl -le '$,="\n";print @ARGV;'

;o))))

> 
> na verdade a idéia era reenviar os abraços já enviados, onde @ARGV
seriam os
> abraços recebidos ....
> 
> viajem mas tudo bem, valeu a sua dica
> 
> -----Mensagem original-----
> De: saopaulo-pm-bounces em pm.org [mailto:saopaulo-pm-bounces em pm.org]Em
> nome de Marco Lima
> Enviada em: quarta-feira, 11 de janeiro de 2006 07:24
> Para: saopaulo-pm em mail.pm.org
> Assunto: [SP-pm] RES: Oportunidade Perl
> 
> 
> Salve Monges !
> 
> Caro Victor:
> 
> Vc fugiu da questao ... vc estah pensando em colocar o nome dos monges
> um por um ... ou vc estah achando que a lista eh pequena ou deve usar um
> arquivo para isso ... nesse caso ai vai o meu:
> 
> Caso vc um arquivo .txt onde os nomes estao separados por linhas:
> 
> 
> Se vc desejar pegar os nomes no seu arquivo /etc/passwd onde o nome está
> no primeiro campo e o GID dos monges perl é 102:
> 
> sh-3.00$ cat /etc/group
> root::0:root
> bin::1:root,bin,daemon
> daemon::2:root,bin,daemon
> sys::3:root,bin,adm
> adm::4:root,adm,daemon
> ...
> perl::102:
> 
> 
> sh-3.00$ cat /etc/passwd
> root:x:0:0::/root:/bin/bash
> bin:x:1:1:bin:/bin:
> daemon:x:2:2:daemon:/sbin:
> adm:x:3:4:adm:/var/log:
> ...
> mago:x:1000:102::/home/mago:
> champs:x:1001:102::/home/champs:
> nelson:x:1002:102::/home/nelson:
> shonorio:x:1003:102::/home/shonorio:
> 
> sh-3.00$ perl -F: -wnlae 'print "Abraços, $F[0]" if ($F[3]) == 102'
> /etc/passwd
> Abraços, mago
> Abraços, champs
> Abraços, nelson
> Abraços, shonorio
> 
> Isso pode ser uma boa soluçao para vc enviar um email avisando os monges
> do próximo encontro social !!
> 
> ps. vc pode tb utilizar isso para ou arquivos com delimitadores.
> 
> ;o))) Soh para praticar !
> 
> 
> >> use strict;
> >>
> >>print $_,"\n" for (@ARGV);
> 
> -----Mensagem original-----
> De: saopaulo-pm-bounces em pm.org [mailto:saopaulo-pm-bounces em pm.org]Em
> nome de Nelson Ferraz
> Enviada em: terça-feira, 10 de janeiro de 2006 18:24
> Para: saopaulo-pm em mail.pm.org
> Assunto: Re: [SP-pm] Oportunidade Perl
> 
> 
> 
> >> print "Abraços, $_\n" foreach (@membros);
> 
> 
> print map("Abraços, $_\n", @membros);
> 
> : )
> _______________________________________________
> SaoPaulo-pm mailing list
> SaoPaulo-pm em pm.org
> http://mail.pm.org/mailman/listinfo/saopaulo-pm
> 
> --
> No virus found in this incoming message.
> Checked by AVG Free Edition.
> Version: 7.1.371 / Virus Database: 267.14.16/225 - Release Date: 9/1/2006
> 
> --
> No virus found in this outgoing message.
> Checked by AVG Free Edition.
> Version: 7.1.371 / Virus Database: 267.14.16/225 - Release Date: 9/1/2006
> 
> _______________________________________________
> SaoPaulo-pm mailing list
> SaoPaulo-pm em pm.org
> http://mail.pm.org/mailman/listinfo/saopaulo-pm
> 
> 
> 
> --
> 
> Marco Lima
> J. A. P. H.
> 
> marco.lima em e-via.com.br
> mago em rio.pm.org
> mago em cpan.org
> 
> Sociedade Perl do Brasil   |   http://www.perl.org.br
> Perl Monks                 |   http://www.perlmonks.org
> Brasil Perl Mongers        |   http://brasil.pm.org
> 
> Register Linux User #355235
> Slackware Linux, for the subgenius
> 
> "Ninguém é tão grande que não possa aprender, e nem tão pequeno que
> não possa ensinar"
> _______________________________________________
> SaoPaulo-pm mailing list
> SaoPaulo-pm em pm.org
> http://mail.pm.org/mailman/listinfo/saopaulo-pm
> 
> --
> No virus found in this incoming message.
> Checked by AVG Free Edition.
> Version: 7.1.371 / Virus Database: 267.14.16/225 - Release Date: 9/1/2006
> 
> --
> No virus found in this outgoing message.
> Checked by AVG Free Edition.
> Version: 7.1.371 / Virus Database: 267.14.16/225 - Release Date: 9/1/2006
> 
> _______________________________________________
> SaoPaulo-pm mailing list
> SaoPaulo-pm em pm.org
> http://mail.pm.org/mailman/listinfo/saopaulo-pm
> 
> 

--

Marco Lima    
J. A. P. H.      

marco.lima em e-via.com.br
mago em rio.pm.org
mago em cpan.org

Sociedade Perl do Brasil   |   http://www.perl.org.br
Perl Monks                 |   http://www.perlmonks.org
Brasil Perl Mongers        |   http://brasil.pm.org

Register Linux User #355235
Slackware Linux, for the subgenius

"Ninguém é tão grande que não possa aprender, e nem tão pequeno que 
não possa ensinar"