05.07.2007, 10:01
|
|
Постоянный
Регистрация: 06.06.2006
Сообщений: 515
Провел на форуме:
1985206
Репутация:
963
|
|
Код:
#!/usr/bin/perl
use strict;
$.=$ ^F,$;=$./$ .,$_=$.<<$ .*$.+$;,$ ==$.<<$.,$ *=$=+$.=>$ %=$.*$_;$ "=$%-$*
,$-=$ =-$.=>$?=$ %-$.,$:=$;+$ .;$!=$_/$.,$ @=$"-$=-$ --$:,$/=$?+$;-$*-$:,$#=
pack'c*',$_+$ *,$?+$ ;-$*,$?+$ ;-$*-$.,$ "-$.,$!,$_+$ !+$./$.,$"-$=,$"-$=+$.
/$ .,$ "-$.,$" -$=-$-,$ @,$/,$ !,$_+$ *+$ *-$.*$ .,$@,$/,$ "-$=-$.,$ !,$"-$=
-$- ,$_+$!+$ ;,$_+$!+$;+$ . ,$?+$ . /$.-$*-$ * ,$@,$/,$ !+$ *+$ . ;print $;;
Хэк, узнал один интересный для меня факт из этого кода
ЗЫ: Все решается расстановкой пробелов и переносов строк и вот этой страничкой - http://www.spravkaweb.ru/perl/specialvar |
|
|