Хабр Курсы для всех
РЕКЛАМА
Практикум, Хекслет, SkyPro, авторские курсы — собрали всех и попросили скидки. Осталось выбрать!
`$=`;$_=\%!;($_)=/(.)/;$==++$|;($.,$/,$,,$\,$",$;,$^,$#,$~,$*,$:,@%)=(
$!=~/(.)(.).(.)(.)(.)(.)..(.)(.)(.)..(.)......(.)/,$"),$=++;$.++;$.++;
$_++;$_++;($_,$\,$,)=($~.$"."$;$/$%[$?]$_$\$,$:$%[$?]",$"&$~,$#,);$,++
;$,++;$^|=$";`$_$\$,$/$:$;$~$*$%[$?]$.$~$*${#}$%[$?]$;$\$"$^$~$*.>&$=`
#include <stdio.h>
#define q(a,...) a
#define substr q
#define eval(a) main(){char c[]=a,n=10;c[419]=0;printf(c+4,n,n,n,n,34,34,n,34,39,c+4,39,34,n); }/* Copyright (C) Thomas Schumm <<a href="mailto:phong@phong.org">phong@phong.org</a>>
exec("from sys import*;substr=q=lambda y:exit(stdout.write(y[4:-46]%((10,)*4+(34,34,10,34,39, y[4:-46],39,34,10))))",None);#*/
eval(substr(q("$p='#include <stdio.h>%c#define q(a,...) a%c#define substr q%c#define eval(a) main() {char c[]=a,n=10;c[419]=0;printf(c+4,n,n,n,n,34,34,n,34,39,c+4,39,34,n); }/* Copyright (C) Thomas Schumm <<a href="mailto:phong@phong.org">phong@phong.org</a>>%cexec(%cfrom sys import*;substr=q=lambda y: exit(stdout.write(y[4:-46]%%((10,)*4+(34,34,10,34,39,y[4:-46],39,34,10))))%c,None);# */%ceval(substr(q(%c$p=%c%s%c;printf($p,(10)x4,34,34,10,34,39,$p,39,34,10)%c),1,-1))%c'; printf($p,(10)x4,34,34,10,34,39,$p,39,34,10)"),1,-1))
exec("from sys import*;substr=q=lambda y:exit(stdout.write(y[4:-46]%((10,)*4+(34,34,10,34,39, y[4:-46],39,34,10))))",None)
eval(substr(q("...длинная...строка..."))Не вижу ничего ужасного или непонятного.main(o,O0)char**O0;{int OO,O;O=--o?atoi(O0[!0]):!
0;for(o=((OO=O*O)-O+!0+!0)>>!0;OO;o+=((--OO%O)?-!
0:((((o-!0)%O)?O:0)+!0))-(((o-!0)%O)?O:0)){printf
("\n%*d "+!!(OO%O),!0<<!0<<!0,o+=(o<!0)?O*O:0);}}</code># sna4ala posadim derevo
root = dict()
for i in [ "a", "b", "c" ]:
subnode = [ "one", "two", "three" ]
root[i] = subnode
# zatem raspe4ataem ego
def print1(root):
for key,val in root.items():
print key, ":"
print2(val)
def print2(root):
for i in root:
print " ", i
print1(root)
a :
one
two
three
c :
one
two
three
b :
one
two
three
my $root = {};
foreach ("a", "b", "c") {
my $subnode = ["one", "two", "three"];
$root->{$_} = $subnode;
}
sub print1 {
my $root = shift;
foreach (keys %$root) {
print $_, ":\n";
print2($root->{$_});
}
}
sub print2 {
my $subnode = shift;
foreach (@$subnode) {
print "\t", $_, "\n";
}
}
print1($root);
куда такой язык можно воткнуть?
верно, но как раз это и подтверждает тот факт, что род Perl-программистов не омолаживается и как следствие умирает Perl, как язык.
а почему так? Perl - может делать те же вещи, что и PHP и даже больше, неужели сложно хорошую книжку по нему для молодежи написать? :-)))
my $dear;
bless {$you}, $dear;
local *pranksters; map { shift } @lonely_nights;
for(keys %my_heart)
{
wait;
join sin(exists $love{us}), reverse @anxiety;
}
push me, $dear;
Что нового в Perl 5.10?