[SP-pm] Perl Quiz

Daniel de Oliveira Mantovani daniel.oliveira.mantovani at gmail.com
Tue Feb 1 21:06:55 PST 2011


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."


More information about the SaoPaulo-pm mailing list