Brincadeira... É uma pena, mas golf ainda não paga o meu salario... Mas q seria o melhor trabalho do mundo, seria...
Just another Perl Hacker, Fernando (SmokeMachine) Em 30 de maio de 2012 18:06, Marco Lima <braun.l...@gmail.com> escreveu: > Bricadeiras!!?!?! > > --SM > > 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 30 de maio de 2012 17:55, Fernando Oliveira > <fernandocor...@gmail.com> escreveu: > > 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