Brincadeira...<br clear="all">É uma pena, mas golf ainda não paga o meu salario...<br>Mas q seria o melhor trabalho do mundo, seria...<br><br>Just another Perl Hacker,<br>Fernando (SmokeMachine)<br>
<br><br><div class="gmail_quote">Em 30 de maio de 2012 18:06, 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">
Bricadeiras!!?!?!<br>
<br>
--SM<br>
<div class="im"><br>
Marco Lima<br>
<a href="mailto:braun.lima@gmail.com">braun.lima@gmail.com</a><br>
<a href="mailto:im%3Amago@jabber-br.org">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 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 imortalidade"<br>
<br>
<br>
</div>Em 30 de maio de 2012 17:55, Fernando Oliveira<br>
<<a href="mailto:fernandocorrea@gmail.com">fernandocorrea@gmail.com</a>> escreveu:<br>
<div class="HOEnZb"><div class="h5">> 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">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">braun.lima@gmail.com</a><br>
>> <a href="mailto:im%3Amago@jabber-br.org">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">fernandocorrea@gmail.com</a>> escreveu:<br>
>> ><br>
>> > Em 30 de maio de 2012 03:33, Marco Lima <<a href="mailto:braun.lima@gmail.com">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">braun.lima@gmail.com</a><br>
>> >> <a href="mailto:im%3Amago@jabber-br.org">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">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">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">braun.lima@gmail.com</a><br>
>> >> >> <a href="mailto:im%3Amago@jabber-br.org">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">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">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">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">acid06@gmail.com</a>><br>
>> >> >> >>><br>
>> >> >> >>> 2012/5/29 Blabos de Blebe <<a href="mailto:blabos@gmail.com">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">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">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">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">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">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">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">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">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">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">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">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>