[SP-pm] Perl Quiz
Lindolfo Lorn Rodrigues
lorn.br at gmail.com
Wed Feb 2 05:56:45 PST 2011
stanislaw++ // trollface :D
2011/2/2 Otavio Pereira <otavio.pereira em gmail.com>
> trollface lol
>
> Otávio
>
>
> 2011/2/2 Stanislaw Pusep <creaktive em gmail.com>
>
>> E nesse caso, vai imprimir o que?
>>
>>
>> #!/usr/bin/perl
>> eval eval '"'.
>>
>>
>> ('['^'+').('['^"\)").( '`'|')')
>> .('`'|'.').('['^'/').('{'^ '[' ).'('.
>> '('."'".('`'^('&')). "'".(('{')^ (( '[')
>> )).('['^'#'). ('{'^'[').('^'^('`' | '/')).
>> (('^')^( '`'|"\.")).( ( '^')^('`'|
>> (( ( '.'))) )) .( '^'
>> ^ ( '`'|'.')).')' .('{'^ '['). ('.').( ((
>> (( ( ( ( '{') ))))))^'[').'('. "'". ((( '{')
>> )^ '.' )."\'".( '{'^'[') .('['^'#').( '{' ^((
>> '[') )).+( ';'&'=' ). (('^')^( '`'| '.' )).
>> ((( '^'))^( ( ('`'))| (( '.' ))) ).')' .
>> ((( ( "\{")))^ '['). ( "\.").(
>> '{' ^ (( '[' ))). ('('). ( (( "'"))).
>> (( '!') )."'".(
>> '{' ^'[' ).''. ('['^'#'
>> ).+( ( (( ( '{')) ))^'[' ) .(('^')^(
>> "\`"| (( ( (( ',') ))))) ).+( '^'^(
>> '`'|'.')). "\)".( '{' ^+
>> "\["). '.'.('{'^'[').'\\'. '"' .((
>> '\\' )).'\\'.('`'|'.'). '\\'.
>> '"'.')'.';'.('!'^'+').'"'
>> ;$:='.'^'~';$~='@'
>>
>> Desculpem, não pude resistir ;)
>>
>> ABS()
>>
>>
>>
>>
>> On Wed, Feb 2, 2011 at 03:06, Daniel de Oliveira Mantovani <
>> daniel.oliveira.mantovani em gmail.com> wrote:
>>
>>> perl -E 'my $num = 1; my $happy=$num+\$num;say $happy'
>>> Qual o valor, você acha que vai imprimir ?
>>>
>>> perl -E '$main::Foo::foo = 1;say "Primeiro {$foo}";package Foo;say
>>> "Segundo {$foo}"'
>>> Qual o valor, você acha que vai imprimir ?
>>>
>>> perl -E 'my @list = 1 .. 10; my $eba = (@list,1,1); say $eba'
>>> Qual o valor, você acha que vai imprimir ?
>>>
>>> perl -E '$a->{$_} = sub {return 0+\$a} for 1 .. 10; say $a->{$_}->()
>>> for 1 .. 10'
>>> Quantos números diferentes apareceram ?
>>>
>>> perl -E 'sub foo {return undef}; my em heyhey=foo(); say 42 if @heyhey'
>>> Vai imprimir alguma coisa na tela ?
>>>
>>> perl -E '$foo->{a} = ""; say "uha" if exists $foo->{a}; say "buuu" if
>>> $foo->{a}'
>>> "uha" ou "buuu" qual sai na tela ?
>>>
>>> perl -E 'say 41+a+1'
>>> Qual o resultado ?
>>>
>>> perl -le 'print$2while s/(\d*):?(\d*)/($1+$2||1).":$1"/e'
>>> Qual o nome dessa seqüência famosa ?
>>>
>>> perl -E '@foo{1 .. 5} = (a .. e); say sort %foo'
>>> O que vai imprimir ?
>>>
>>> perl -E 'say localtime; say scalar localtime'
>>> Qual a diferença ?
>>>
>>> O mais legal, é saber o "porque". Acho que um "Perl Quiz" com
>>> perguntas divertidas, ajuda no conhecimento da linguagem.
>>>
>>> --
>>> "If you’ve never written anything thoughtful, then you’ve never had
>>> any difficult, important, or interesting thoughts. That’s the secret:
>>> people who don’t write, are people who don’t think."
>>> =begin disclaimer
>>> Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>> SaoPaulo-pm mailing list: SaoPaulo-pm em pm.org
>>> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>> =end disclaimer
>>>
>>
>>
>> =begin disclaimer
>> Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>> SaoPaulo-pm mailing list: SaoPaulo-pm em pm.org
>> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>> =end disclaimer
>>
>>
>
> =begin disclaimer
> Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
> SaoPaulo-pm mailing list: SaoPaulo-pm em pm.org
> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
>
--
lorn at lornlab dot org
Lindolfo "Lorn" Rodrigues
-------------- Pr?xima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20110202/c5bf5828/attachment.html>
More information about the SaoPaulo-pm
mailing list