Papagaio,<br clear="all"><br>Eu tenho certeza disso! Muita gente só conhece o meu código por golf...<div>Alguns dos meus contratantes chegaram até mim por golf<br><div>Golf me ajuda muito. Eu melhoro o meu raciocino com golf...</div>
<div>Mas golf tb já me prejudicou...</div><div>Tem gente q, baseado em golf, acha q eu não sou capaz de escrever código legível.</div><div><br></div><div>Bom, eu adoro golf, e vou continuar competindo...</div><div>Mas tudo tem 2 lados...<br>
<br>Just another Perl Hacker,<br>Fernando (SmokeMachine)<br>
<br><br><div class="gmail_quote">Em 30 de maio de 2012 18:15, Marco Lima <span dir="ltr"><<a href="mailto:braun.lima@gmail.com" target="_blank">braun.lima@gmail.com</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
Fernando:<br>
<br>
Eu ouvi isso sobre Perl da mesma forma e a mesma frase ... de alguém<br>
que nem merce que eu cite, e posso lhe garantir que esse não é o<br>
caminho, porque essa "brincadeiras" já lhe abriram muitas portas, pode<br>
ter certeza disso!<br>
<div><br>
"Na visão do hacker, o sentido da vida está em dedicar-se a uma<br>
paixão. Esta paixão é, na realidade, uma atividade significativa,<br>
inspiradora e prazerosa para o indivíduo, seja ela rotulada como<br>
"trabalho" ou como "diversão."<br>
<br>
</div><div>=)<br>
<br>
Marco Lima<br>
<a href="mailto:braun.lima@gmail.com" target="_blank">braun.lima@gmail.com</a><br>
<a href="mailto:im%3Amago@jabber-br.org" target="_blank">im:mago@jabber-br.org</a><br>
<br>
<br>
</div>Em 30 de maio de 2012 18:09, Daniel Mantovani<br>
<<a href="mailto:daniel.oliveira.mantovani@gmail.com" target="_blank">daniel.oliveira.mantovani@gmail.com</a>> escreveu:<br>
<div><div>> Fernando, o módulo é possível e existe a pragma aliased.<br>
> O que eu quis dizer, é que você sabe que no golf quando você usa algum<br>
> módulo todo código dentro conta. Então nesse caso, usar "-ME" só vai colocar<br>
> mais códigos.<br>
><br>
><br>
><br>
> --<br>
> Software Engineer<br>
> Just Another Perl Hacker<br>
> Daniel Mantovani <a href="tel:%2B5511%208538-9897" value="+551185389897" target="_blank">+5511 8538-9897</a><br>
> XOXO<br>
><br>
> On May 30, 2012, at 5:55 PM, Fernando Oliveira wrote:<br>
><br>
> A quem interessar possa...<br>
> rodando o meu código aqui no windows do trabalho:<br>
><br>
> C:\>perl -MArchive::Extract -ME -e "A::E->new(archive,$_)->extract<br>
> for<*.zip>"<br>
> IO::Handle -> I::H<br>
> Locale::Maketext::Simple -> L::M::S<br>
> List::Util -> L::U<br>
> Tie::Hash -> T::H<br>
> ExtUtils::MM_Unix -> E::M<br>
> ExtUtils::MM -> E::M<br>
> IPC::Cmd -> I::C<br>
> Text::ParseWords -> T::P<br>
> Scalar::Util -> S::U<br>
> Module::Load::Conditional -> M::L::C<br>
> File::Spec -> F::S<br>
> ExtUtils::MM_Any -> E::M<br>
> File::Path -> F::P<br>
> ExtUtils::Liblist -> E::L<br>
> File::Spec::Win32 -> F::S::W<br>
> Module::Load -> M::L<br>
> warnings::register -> w::r<br>
> Time::HiRes -> T::H<br>
> IO::Seekable -> I::S<br>
> Params::Check -> P::C<br>
> File::Basename -> F::B<br>
> ExtUtils::MM_Win32 -> E::M<br>
> version::vxs -> v::v<br>
> Archive::Extract -> A::E<br>
> File::Spec::Unix -> F::S::U<br>
> Exporter::Heavy -> E::H<br>
> ExtUtils::MakeMaker -> E::M<br>
> ExtUtils::MY -> E::M<br>
> IO::Select -> I::S<br>
> IPC::Open3 -> I::O<br>
> IO::File -> I::F<br>
> ExtUtils::MakeMaker::Config -> E::M::C<br>
> ExtUtils::Liblist::Kid -> E::L::K<br>
><br>
> (o "E" da um warn dizendo quais alias ele criou p/ quais modulos...)<br>
><br>
><br>
> e segue o codigo do E:<br>
><br>
><br>
> package E;<br>
><br>
> sub import {<br>
> for my $module(keys %INC) {<br>
> (my $mod_name = $module) =~ s{/}{::}g;<br>
> $mod_name =~ s{\.pm$}{}g;<br>
> my $short = join "::", map{substr $_, 0, 1} split "::", $mod_name;<br>
> if($short =~ /::/ and $short !~ /^\s*$/ and $short !~ /^:|:$|:{4,}/<br>
> and $mod_name ne $short){<br>
> warn $mod_name, " -> ", $short, $/;<br>
> $mod_name .= "::";<br>
> *GLOB = *{$mod_name};<br>
> for my $func(keys %{*GLOB}) {<br>
> my $orig_func = $mod_name . $func;<br>
> no strict 'refs';<br>
> my $new = $short . "::$func";<br>
> *{$new} = *{$orig_func};<br>
> }<br>
> }<br>
> }<br>
> }<br>
><br>
> 42<br>
><br>
> sim, ele foi feito correndo aqui p/ não pairarem duvidas de q esse modulo<br>
> é possível e simples...<br>
> certamente ele será refatorado antes de ir p/ o cpan...<br>
> tb escreverei alguns testes...<br>
> se alguém estiver interessado em ajudar, eu agradeço muito...<br>
> com a minha mulher gravida fica difícil arrumar tempo p/ essas<br>
> brincadeiras...<br>
><br>
> Just another Perl Hacker,<br>
> Fernando (SmokeMachine)<br>
><br>
><br>
> Em 30 de maio de 2012 17:37, Marco Lima <<a href="mailto:braun.lima@gmail.com" target="_blank">braun.lima@gmail.com</a>> escreveu:<br>
>><br>
>> Fernando:<br>
>><br>
>> O pior é que vc nem sabe ... essa merda me tirou o sono, fritei a<br>
>> noite toda porque sabia que existia mas não lembrava como eh .... =(<br>
>><br>
>> definitivamente .... estou ficando velho ... jah estou até caducando!<br>
>> e esse negócio de só ficar desenhando tá me deixando mais enferrujado<br>
>> ainda!<br>
>><br>
>> SM++<br>
>><br>
>> Marco Lima<br>
>> <a href="mailto:braun.lima@gmail.com" target="_blank">braun.lima@gmail.com</a><br>
>> <a href="mailto:im%3Amago@jabber-br.org" target="_blank">im:mago@jabber-br.org</a><br>
>><br>
>><br>
>> Em 30 de maio de 2012 17:05, Fernando Oliveira<br>
>> <<a href="mailto:fernandocorrea@gmail.com" target="_blank">fernandocorrea@gmail.com</a>> escreveu:<br>
>> ><br>
>> > Em 30 de maio de 2012 03:33, Marco Lima <<a href="mailto:braun.lima@gmail.com" target="_blank">braun.lima@gmail.com</a>> escreveu:<br>
>> ><br>
>> >> estou ficando velho ....<br>
>> >><br>
>> >> perl -MArchive::Extract -e<br>
>> >> 'Archive::Extract->new(archive,$_)->extract for<*.zip>'<br>
>> ><br>
>> > perl -MArchive::Extract -ME -e<br>
>> > 'A::E->new(archive,$_)->extract for<*.zip>'<br>
>> ><br>
>> > o Módulo "E" ainda não está no CPAN, mas vou por até o fds...<br>
>> > Ele cria aliases dos modulos com apenas a 1a letra de cada nome...<br>
>> ><br>
>> > :P<br>
>> >><br>
>> >><br>
>> >> eu gosto mais com map ... mais tah com 3 a mais<br>
>> >><br>
>> >> perl -MArchive::Extract -e<br>
>> >> 'map{Archive::Extract->new(archive,$_)->extract}<*.zip>'<br>
>> >><br>
>> >> vamos ver ...<br>
>> >><br>
>> >> =)<br>
>> >><br>
>> >> Marco Lima<br>
>> >> <a href="mailto:braun.lima@gmail.com" target="_blank">braun.lima@gmail.com</a><br>
>> >> <a href="mailto:im%3Amago@jabber-br.org" target="_blank">im:mago@jabber-br.org</a><br>
>> >><br>
>> >> Em 30 de maio de 2012 00:35, Gabriel Vieira <<a href="mailto:gabriel.vieira@gmail.com" target="_blank">gabriel.vieira@gmail.com</a>><br>
>> >> escreveu:<br>
>> >> > Tá de sacanagem 02?!<br>
>> >> ><br>
>> >> > Pro Fernando se divertir mais...<br>
>> >> ><br>
>> >> > perl -MArchive::Extract -e'Archive::Extract->new(archive,$_)->extract<br>
>> >> > for<*.zip>'<br>
>> >> ><br>
>> >> ><br>
>> >> > 2012/5/30 Marco Lima <<a href="mailto:braun.lima@gmail.com" target="_blank">braun.lima@gmail.com</a>><br>
>> >> >><br>
>> >> >> Então vamos acabar com essa historia ... seus nazistas !!!!<br>
>> >> >><br>
>> >> >> Fernando esta por ai!? ai vai ....<br>
>> >> >><br>
>> >> >> perl -MArchive::Extract -e<br>
>> >> >> 'map{$a=Archive::Extract->new(archive=>$_);$a->extract}<*.zip>'<br>
>> >> >><br>
>> >> >> [ ]++<br>
>> >> >><br>
>> >> >> Marco Lima<br>
>> >> >> <a href="mailto:braun.lima@gmail.com" target="_blank">braun.lima@gmail.com</a><br>
>> >> >> <a href="mailto:im%3Amago@jabber-br.org" target="_blank">im:mago@jabber-br.org</a><br>
>> >> >><br>
>> >> >> Register Linux User #483170<br>
>> >> >> Slackware Linux, for the subgenius<br>
>> >> >><br>
>> >> >> "Aquele que pensa que é demasiado grande para fazer trabalhos<br>
>> >> >> pequenos<br>
>> >> >> é talvez demasiado pequeno para realizar grandes trabalhos."<br>
>> >> >><br>
>> >> >> "Ter acesso ao conhecimento é um dever de todos; transmitir<br>
>> >> >> conhecimento é um dever de quem tem."<br>
>> >> >><br>
>> >> >> "Na visão do hacker, o sentido da vida está em dedicar-se a uma<br>
>> >> >> paixão. Esta paixão é, na realidade, uma atividade significativa,<br>
>> >> >> inspiradora e prazerosa para o indivíduo, seja ela rotulada como<br>
>> >> >> "trabalho" ou como "diversão."<br>
>> >> >><br>
>> >> >> "Ninguém é tão grande que não possa aprender, e nem tão pequeno que<br>
>> >> >> não possa ensinar"<br>
>> >> >><br>
>> >> >> "Compartilhe o seu conhecimento. É uma maneira de alcançar a<br>
>> >> >> imortalidade"<br>
>> >> >><br>
>> >> >><br>
>> >> >> Em 29 de maio de 2012 22:15, Alexei Znamensky <<a href="mailto:russoz@gmail.com" target="_blank">russoz@gmail.com</a>><br>
>> >> >> escreveu:<br>
>> >> >> > DAS IST VERBOTEN!!! ES FUNKTIONIERT NICHT!!!<br>
>> >> >> ><br>
>> >> >> > 51, zembre uba boa ideia<br>
>> >> >> ><br>
>> >> >> ><br>
>> >> >> > 2012/5/29 Leo Balter <<a href="mailto:leonardo.balter@gmail.com" target="_blank">leonardo.balter@gmail.com</a>><br>
>> >> >> >><br>
>> >> >> >> Isso é o que Hitler diria.<br>
>> >> >> >><br>
>> >> >> >> (50)<br>
>> >> >> >><br>
>> >> >> >> Enviado via iPhone<br>
>> >> >> >><br>
>> >> >> >> Em 29/05/2012, às 20:34, Gabriel Vieira<br>
>> >> >> >> <<a href="mailto:gabriel.vieira@gmail.com" target="_blank">gabriel.vieira@gmail.com</a>><br>
>> >> >> >> escreveu:<br>
>> >> >> >><br>
>> >> >> >> E pensar que uma desavença gratuita dessa pode levar a coisas<br>
>> >> >> >> muito<br>
>> >> >> >> maiores..<br>
>> >> >> >><br>
>> >> >> >> 2012/5/29 Nilson Santos Figueiredo Jr. <<a href="mailto:acid06@gmail.com" target="_blank">acid06@gmail.com</a>><br>
>> >> >> >>><br>
>> >> >> >>> 2012/5/29 Blabos de Blebe <<a href="mailto:blabos@gmail.com" target="_blank">blabos@gmail.com</a>>:<br>
>> >> >> >>> > O 50° tem que xingar alguém de nazista pra fechar com chave de<br>
>> >> >> >>> > ouro.<br>
>> >> >> >>><br>
>> >> >> >>> Pior que essa animosidade já virtualmente acabou com o clima de<br>
>> >> >> >>> discussões sadias em outras listas.<br>
>> >> >> >>> É uma pena... agressões gratuitas assim não levam a nada. :-\<br>
>> >> >> >>><br>
>> >> >> >>> -Nilson<br>
>> >> >> >>> _______________________________________________<br>
>> >> >> >>> Rio-pm mailing list<br>
>> >> >> >>> <a href="mailto:Rio-pm@pm.org" target="_blank">Rio-pm@pm.org</a><br>
>> >> >> >>> <a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br>
>> >> >> >><br>
>> >> >> >><br>
>> >> >> >><br>
>> >> >> >><br>
>> >> >> >> --<br>
>> >> >> >> Gabriel Vieira<br>
>> >> >> >><br>
>> >> >> >> _______________________________________________<br>
>> >> >> >> Rio-pm mailing list<br>
>> >> >> >> <a href="mailto:Rio-pm@pm.org" target="_blank">Rio-pm@pm.org</a><br>
>> >> >> >> <a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br>
>> >> >> >><br>
>> >> >> >><br>
>> >> >> >> _______________________________________________<br>
>> >> >> >> Rio-pm mailing list<br>
>> >> >> >> <a href="mailto:Rio-pm@pm.org" target="_blank">Rio-pm@pm.org</a><br>
>> >> >> >> <a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br>
>> >> >> ><br>
>> >> >> ><br>
>> >> >> ><br>
>> >> >> ><br>
>> >> >> > --<br>
>> >> >> > Alexei "RUSSOZ" Znamensky | russoz EM gmail com<br>
>> >> >> > | <a href="http://russoz.org" target="_blank">http://russoz.org</a><br>
>> >> >> > GPG fingerprint = 42AB E78C B83A AE31 7D27 1CF3 C66F B5C7 71CA<br>
>> >> >> > 9F3C<br>
>> >> >> > <a href="http://www.flickr.com/photos/alexeiz" target="_blank">http://www.flickr.com/photos/alexeiz</a> | <a href="http://github.com/russoz" target="_blank">http://github.com/russoz</a><br>
>> >> >> > "I don't know... fly casual!" -- Han Solo<br>
>> >> >> ><br>
>> >> >> > _______________________________________________<br>
>> >> >> > Rio-pm mailing list<br>
>> >> >> > <a href="mailto:Rio-pm@pm.org" target="_blank">Rio-pm@pm.org</a><br>
>> >> >> > <a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br>
>> >> >> _______________________________________________<br>
>> >> >> Rio-pm mailing list<br>
>> >> >> <a href="mailto:Rio-pm@pm.org" target="_blank">Rio-pm@pm.org</a><br>
>> >> >> <a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br>
>> >> ><br>
>> >> ><br>
>> >> ><br>
>> >> ><br>
>> >> > --<br>
>> >> > Gabriel Vieira<br>
>> >> ><br>
>> >> > _______________________________________________<br>
>> >> > Rio-pm mailing list<br>
>> >> > <a href="mailto:Rio-pm@pm.org" target="_blank">Rio-pm@pm.org</a><br>
>> >> > <a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br>
>> >> _______________________________________________<br>
>> >> Rio-pm mailing list<br>
>> >> <a href="mailto:Rio-pm@pm.org" target="_blank">Rio-pm@pm.org</a><br>
>> >> <a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">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" target="_blank">Rio-pm@pm.org</a><br>
>> > <a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br>
>> _______________________________________________<br>
>> Rio-pm mailing list<br>
>> <a href="mailto:Rio-pm@pm.org" target="_blank">Rio-pm@pm.org</a><br>
>> <a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br>
><br>
><br>
> _______________________________________________<br>
> Rio-pm mailing list<br>
> <a href="mailto:Rio-pm@pm.org" target="_blank">Rio-pm@pm.org</a><br>
> <a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">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" target="_blank">Rio-pm@pm.org</a><br>
> <a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br>
_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org" target="_blank">Rio-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br>
</div></div></blockquote></div><br>
</div>
</div>