[SP-pm] RES: RES: Oportunidade Perl

[Vitor Serra Mori]

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