[Rio-pm] Primeiro Contato com a Lista PM-RIO

[Marco A P D'Andrade]

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
>