[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