Perl: відмінності між версіями
мНемає опису редагування |
MrGALL (обговорення | внесок) м Редагування користувача 95.132.221.35 (обговорення) відкинуті до версії користувача Vox |
||
| (Не показані 10 проміжних версій 4 користувачів) | |||
| Рядок 5: | Рядок 5: | ||
*Perl з легкістю інтерпретує такий код:<br /> | *Perl з легкістю інтерпретує такий код:<br /> | ||
< | <pre>`$=`;$_=\%!;($_)=/(.)/;$==++$|;($.,$/,$,,$\,$«,$;,$^,$#,$~,$*,$:,@%)=( | ||
$!=~/(.)(.).(.)(.)(.)(.)..(.)(.)(.)..(.)......(.)/,$»),$=++;$.++;$.++; | $!=~/(.)(.).(.)(.)(.)(.)..(.)(.)(.)..(.)......(.)/,$»),$=++;$.++;$.++; | ||
$_++;$_++;($_,$\,$,)=($~.$«.»$;$/$%[$?]$_$\$,$:$%[$?]",$«&$~,$#,);$,++ | $_++;$_++;($_,$\,$,)=($~.$«.»$;$/$%[$?]$_$\$,$:$%[$?]",$«&$~,$#,);$,++ | ||
;$,++;$^|=$»;`$_$\$,$/$:$;$~$*$%[$?]$.$~$*${#}$%[$?]$;$\$"$^$~$*.>&$=`</ | ;$,++;$^|=$»;`$_$\$,$/$:$;$~$*$%[$?]$.$~$*${#}$%[$?]$;$\$"$^$~$*.>&$=`</pre><br /> | ||
або<br /> | або<br /> | ||
< | <pre>echo "test... test... test..." | sudo perl -e '$??s:;s:s;;$?::s;;=]=>%-{<-|} | ||
<&|`{;;y; -/:-@[-`{-};`-{/" -;;s;;$_;see'</ | <&|`{;;y; -/:-@[-`{-};`-{/" -;;s;;$_;see'</pre> | ||
<ref>Це [[патч Барміна]]. Якщо ти його запустив, [[Всім похуй|мені тебе жаль]].</ref> | <ref>Це [[патч Барміна]]. Якщо ти його запустив, [[Всім похуй|мені тебе жаль]].</ref> | ||
*Має майже [[Сі|Сюшний]] [[Синтаксис|синтаксис]]. | *Має майже [[Сі|Сюшний]] [[Синтаксис|синтаксис]]. | ||
| Рядок 43: | Рядок 43: | ||
== Переваги == | == Переваги == | ||
*На Перл можна писати навіть якщо його не знаєш. < | *На Перл можна писати навіть якщо його не знаєш.<ref> Йобнись головою об клаву і виконай.</ref> | ||
== Посилання == | == Посилання == | ||
| Рядок 50: | Рядок 50: | ||
== Примітки == | == Примітки == | ||
{{reflist}} | {{reflist}} | ||
{{Мови програмування|topic = - [[Regexp|регекспи]] рулять}} | |||
[[Категорія:Мови програмування]] | |||
Поточна версія на 19:55, 14 червня 2011
Perl (перл) - скриптова мова програмування, яка на 95% складається з регекспів. Створений Ларрі Уоллом.
Недоліки
- Perl з легкістю інтерпретує такий код:
`$=`;$_=\%!;($_)=/(.)/;$==++$|;($.,$/,$,,$\,$«,$;,$^,$#,$~,$*,$:,@%)=(
$!=~/(.)(.).(.)(.)(.)(.)..(.)(.)(.)..(.)......(.)/,$»),$=++;$.++;$.++;
$_++;$_++;($_,$\,$,)=($~.$«.»$;$/$%[$?]$_$\$,$:$%[$?]",$«&$~,$#,);$,++
;$,++;$^|=$»;`$_$\$,$/$:$;$~$*$%[$?]$.$~$*${#}$%[$?]$;$\$"$^$~$*.>&$=`
або
echo "test... test... test..." | sudo perl -e '$??s:;s:s;;$?::s;;=]=>%-{<-|}
<&|`{;;y; -/:-@[-`{-};`-{/" -;;s;;$_;see'
|
BEFOREHEAD: close door, each window & exit; wait until time. open spellbook, study, read (scan, select, tell us); write it, print the hex whole each watches, reverse its length, write again; kill spiders, pop them, chop, split, kill them. unlink arms, shift, wait & listen (listening, wait), sort the flock (then, warn the "goats" & kill the "sheep"); kill them, dump qualms, shift moralities, values aside, each one; die sheep! die to reverse the system you accept (reject, respect); next step, kill next sacrifice, each sacrifice, wait, redo ritual until "all the spirits are pleased"; do it ("as they say"). do it(*everyone***must***participate***in***forbidden**s*e*x*). return last victim; package body; exit crypt (time, times & "half a time") & close it, select (quickly) & warn your next victim; AFTERWORDS: tell nobody, wait, wait until time; wait until next year, next decade; sleep, sleep, die yourself, die at last |
Переваги
- На Перл можна писати навіть якщо його не знаєш.[2]
Посилання
Примітки
- ↑ Це патч Барміна. Якщо ти його запустив, мені тебе жаль.
- ↑ Йобнись головою об клаву і виконай.
Perl - регекспи рулять. |
||
|---|---|---|
| Промислові | Ассемблер · Сі · C++ · Lisp · Haskell · Java · Javascript · Поцкаль · Perl · PHP · Python · Ruby · Tcl · Visual Basic |  |
| Езотеричні | HQ9+ · INTERCAL · Brainfuck · Befunge · Malbolge · Piet · Spoon · Whitespace | |