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