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