[Rio-pm] Primeiro Contato com a Lista PM-RIO
Marco A P D'Andrade
mdacwb em gmail.com
Segunda Setembro 17 13:27:56 PDT 2007
Nickollas,
Bem... vc pediu para não rir... então posso chorar ??
Até hoje eu ainda não consegui por um projeto no ar :(
Um milhao de iniciativas, consigo preparar palestras, ir aos sociais,
mas gerar código na forma de projeto... buaaaaa....
Meus parabens !!
PS: Só para descontar minha tristeza, seguem algumas sugestões:
add-cbq.pl
1. chdir ("$dir");
opendir(DIR,"$dir") or die "Erro: $!";
-> dispensa o uso de aspas já
2. print "conteudo1";
print "conteudo2";
pode ser trocado por:
print "conteudo1",
"conteudo2";
3. Quando vc for ler o conteúdo de um handle, excluindo tudo, vc
não precisa (e deve evitar) carregar tudo em memoria antes, a não ser
que tenha um bom motivo:
De:
@conteudo_dir = grep { $_ ne '.' and $_ ne '..' } readdir DIR;
foreach $_ (@conteudo_dir) {
Para:
while ( defined( my $dir = readdir(DIR) ) ) {
next if ( $dir eq '.' || $dir eq '..' );
Claro que podem haver mais sugestões, mas vc produziu um código de
facil manutenção, legivel! Parabens !!!
Sds,
Marco Antonio
Em 17/09/07, Linux Control<linuxcontrol em gmail.com> escreveu:
> Breno,
>
> Agradeço pela hospitalidade e pelo incentivo...
>
> nos veremos em breve.
>
> Nickollas,
>
> Em 17/09/07, breno < breno em rio.pm.org> escreveu:
> > Oi Nickollas! Seja muito bem vindo à lista da Rio-PM!!!
> >
> > Parabéns pelo seu projeto! Ainda não tive oportunidade de baixar/usar
> > mas pela sua descrição parece bem interessante!!!
> >
> > Espero que aproveite a lista ao máximo, e que participe de nossos
> > encontros sociais e técnicos (o social desse mês infelizmente já
> > passou, mas mês que vêm tem social E técnico!!!)
> >
> > []s
> >
> > -b
> >
> > On 9/17/07, Linux Control <linuxcontrol em gmail.com> wrote:
> > > Amigos monges,
> > >
> > > Obrigado por me aceitarem no grupo de vocês
> > >
> > > Meu nome é Nickollas e comecei a programar em Perl a pouco tempo.
> > >
> > > Escrevi meu primeiro programa em Perl (Linux Control sob licença GPL)
> para
> > > gerenciar um servidor Linux através do browser com os seguintes
> recursos:
> > >
> > >
> > >
> > > - Bloquear sites pornográficos, violentos, salas de bate-papo.
> > >
> > > - Definir quais computadores da empresa podem acessar o messenger.
> > >
> > > - Acessar da rua qualquer computador com IP inválido dentro da empresa.
> > >
> > > - Controlar/limitar a velocidade de conexão para cada computador.
> > >
> > > - Transformar o Linux em um servidor de logon para rede windows.
> > >
> > > - Ver relatório de acesso a internet separado por usuário.
> > >
> > > - Ver conversas do msn messenger de todos os funcionários da empresa.
> > > Vocês poderiam olhar o código fonte do meu programa e criticarem? (
> façam
> > > isso sem rir, estou começando a programar em Perl.. programo na
> linguagem
> > > de bebê.. rs)
> > >
> > > o site do meu projeto é:
> > >
> > > http://linuxcontrol.sourceforge.net
> > >
> > > o arquivo compactado com os fontes em Perl podem ser baixados diretos
> em:
> > >
> > >
> http://linuxcontrol.sourceforge.net/linuxcontrol-code4pm-rio.tar.bz2
> > >
> > > Obrigado pela atenção,
> > >
> > > Nickollas Carvalho
> > >
> > >
> > >
> > >
> > > _______________________________________________
> > > Rio-pm mailing list
> > > Rio-pm em pm.org
> > > http://mail.pm.org/mailman/listinfo/rio-pm
> > >
> > _______________________________________________
> > Rio-pm mailing list
> > Rio-pm em pm.org
> > http://mail.pm.org/mailman/listinfo/rio-pm
> >
>
>
> _______________________________________________
> Rio-pm mailing list
> Rio-pm em pm.org
> http://mail.pm.org/mailman/listinfo/rio-pm
>
Mais detalhes sobre a lista de discussão Rio-pm