Енциклопедія Драматика:Інкубатор/Perl: відмінності між версіями

Матеріал з Енциклопедія Драматика
Перейти до навігації Перейти до пошуку
(Додав інтервікі.)
Немає опису редагування
Рядок 7: Рядок 7:


*Perl з легкістю інтерпретує такий код:<br />
*Perl з легкістю інтерпретує такий код:<br />
<pre>`$=`;$_=\%!;($_)=/(.)/;$==++$|;($.,$/,$,,$\,$«,$;,$^,$#,$~,$*,$:,@%)=(
<syntaxhighlight lang="Perl"> `$=`;$_=\%!;($_)=/(.)/;$==++$|;($.,$/,$,,$\,$«,$;,$^,$#,$~,$*,$:,@%)=(
$!=~/(.)(.).(.)(.)(.)(.)..(.)(.)(.)..(.)......(.)/,$»),$=++;$.++;$.++;
$!=~/(.)(.).(.)(.)(.)(.)..(.)(.)(.)..(.)......(.)/,$»),$=++;$.++;$.++;
$_++;$_++;($_,$\,$,)=($~.$«.»$;$/$%[$?]$_$\$,$:$%[$?]",$«&$~,$#,);$,++
$_++;$_++;($_,$\,$,)=($~.$«.»$;$/$%[$?]$_$\$,$:$%[$?]",$«&$~,$#,);$,++
;$,++;$^|=$»;`$_$\$,$/$:$;$~$*$%[$?]$.$~$*${#}$%[$?]$;$\$"$^$~$*.>&$=`</pre>
;$,++;$^|=$»;`$_$\$,$/$:$;$~$*$%[$?]$.$~$*${#}$%[$?]$;$\$"$^$~$*.>&$=` </syntaxhighlight>


або
або
 
<syntaxhighlight lang="Perl">echo "test... test... test..." | sudo perl -e '$??s:;s:s;;$?::s;;=]=>%-{<-|}
<pre>echo "test... test... test..." | sudo perl -e '$??s:;s:s;;$?::s;;=]=>%-{<-|}
<&|`{;;y; -/:-@[-`{-};`-{/" -;;s;;$_;see' </syntaxhighlight>
<&|`{;;y; -/:-@[-`{-};`-{/" -;;s;;$_;see'</pre>
<ref>Це [[патч Барміна]]. Якщо ти його запустив, [[Всім похуй|мені тебе жаль]].</ref>
<ref>Це [[патч Барміна]]. Якщо ти його запустив, [[Всім похуй|мені тебе жаль]].</ref>
*Має майже "[[C|сюшний]]" синтаксис.
*Має майже "[[C|сюшний]]" синтаксис.
*OMFG, він інтерпретує навіть вірші:
*OMFG, він інтерпретує навіть вірші:
{{Блок|BEFOREHEAD: close door, each window & exit; wait until time.
<syntaxhighlight lang="Perl">BEFOREHEAD: close door, each window & exit; wait until time.
  open spellbook, study, read (scan, select, tell us);
  open spellbook, study, read (scan, select, tell us);
  write it, print the hex whole each watches,
  write it, print the hex whole each watches,
Рядок 42: Рядок 41:
  wait until next year, next decade;
  wait until next year, next decade;
  sleep, sleep, die yourself,
  sleep, sleep, die yourself,
  die at last}}
  die at last</syntaxhighlight>


== Переваги ==
== Переваги ==

Версія за 13:39, 5 березня 2021

Dor3.png

Допиши кілька слів зі свого досвіду
Ми дописуємо Драматику разом і ця стаття потребує твоїх думок для повноти. Натисни "редагувати" згори сторінки чи розділу.

Gry-sloupo.jpeg

Стаття потребує доповнення!
Ця стаття засмучує наших слоупоків, бо навіть вони розуміють, що її давно вже треба доповнити усілякими корисними картинками та інформацією, або, можливо, видалити якусь недолугу хуйню ідіота і написати натомість щось притомне.


Perl — скриптова мова програмування, яка на 95% складається з регекспів. Створений Ларрі Уоллом.

Недоліки

  • Perl з легкістю інтерпретує такий код:
 `$=`;$_=\%!;($_)=/(.)/;$==++$|;($.,$/,$,,$\,$«,$;,$^,$#,$~,$*,$:,@%)=(
$!=~/(.)(.).(.)(.)(.)(.)..(.)(.)(.)..(.)......(.)/,$»),$=++;$.++;$.++;
$_++;$_++;($_,$\,$,)=($~.$«.»$;$/$%[$?]$_$\$,$:$%[$?]",$«&$~,$#,);$,++
;$,++;$^|=$»;`$_$\$,$/$:$;$~$*$%[$?]$.$~$*${#}$%[$?]$;$\$"$^$~$*.>&$=`

або

echo "test... test... test..." | sudo perl -e '$??s:;s:s;;$?::s;;=]=>%-{<-|}
<&|`{;;y; -/:-@[-`{-};`-{/" -;;s;;$_;see'

[1]

  • Має майже "сюшний" синтаксис.
  • OMFG, він інтерпретує навіть вірші:
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]

Посилання

Офіційний сайт

Примітки

  1. Це патч Барміна. Якщо ти його запустив, мені тебе жаль.
  2. Йобнись головою об клаву і виконай.