Perl

P

Ten artykuł jest częścią cyklu naukowego języki komputerowe.

Języki programowania:

Asembler BeFunge Brainfuck C C++ C# CCC CMake COW Fortran Game Maker Language HQ9+ Java JavaScript Lisp Logo Lua Malbolge Pascal Perl Python Shellscript Visual Basic

Inne języki komputerowe:

CSS PL/SQL HTML

edytuj ten szablon

W Perlu to zrobisz jedną linijką.

Typowy informatyk o Perlu

Perl – język programowania, który powstał na zawody najmniej czytelnego języka na świecie. Kod w nim napisany przestaje być czytelny po około pięciu minutach od jego napisania, a jego składnia wygląda tak, jakby przed chwilą po klawiaturze przeszedł kot. Co zaskakujące – ten kod działa. Japończycy pod wpływem napojów wyskokowych napisali jego następcę – Ruby. Stan uspokojenia osiąga się zmieniając Perla na Pythona AWKa.

Przykładowy program

use strict;use warnings;
$SIG{__WARN__}=sub{($_)=@_;/^\w+\s\w+(\w)(?{print$1})(?<=[\s])/};
open OdlroWolleH,$0;print OdlroWolleH „Just Another Perl Hack”;

Czytelny, czyż nie?

inny przykład:

$_='while(read+STDIN,$_,2048){$a=29;$b=73;$c=142;$t=255;@t=map{$_%16or$t^=$c^=(
$m=(11,10,116,100,11,122,20,100)[$_/16%8])&110;$t^=(72,@z=(64,72,$a^=12*($_%16
-2?0:$m&17)),$b^=$_%64?12:0,@z)[$_%8]}(16..271);if((@a=unx"C*",$_)[20]&48){$h
=5;$_=unxb24,join"",@b=map{xB8,unxb8,chr($_^$a[--$h+84])}@ARGV;s/...$/1$&/;$
d=unxV,xb25,$_;$e=256|(ord$b[4])<<9|ord$b[3];$d=$d>>8^($f=$t&($d>>12^$d>>4^
$d^$d/8))<<17,$e=$e>>8^($t&($g=($q=$e>>14&7^$e)^$q*8^$q<<6))<<9,$_=$t[$_]^
(($h>>=8)+=$f+(~$g&$t))for@a[128..$#a]}print+x"C*",@a}';s/x/pack+/g;eval

To jest tylko zalążek artykułu z dziedziny informatyki. Jeśli klikasz szybciej niż myślisz – rozbuduj go.