Perl: Różnice pomiędzy wersjami
Z Nonsensopedii, polskiej encyklopedii humoru
(→Przykładowy program: inny przykład) Znacznik: edytor źródłowy |
Ostrzyciel (dyskusja • edycje) M (Wycofano ostatnie edycje autorstwa Ryk2; przywrócono ostatnią wersję autorstwa Ostrzyciel nożyczek.) Znacznik: rewert |
||
(Nie pokazano 10 wersji utworzonych przez 5 użytkowników) | |||
Linia 1: | Linia 1: | ||
P{{Programisto}} |
|||
<br/> |
|||
{{Programowanie}} |
{{Programowanie}} |
||
{{cytat|W Perlu to zrobisz jedną linijką.|Typowy informatyk o '''Perlu'''}} |
{{cytat|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 [[woda mineralna|napojów wyskokowych]] napisali jego następcę – [[Ruby]]. Stan uspokojenia osiąga się zmieniając Perla na < |
'''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 [[woda mineralna|napojów wyskokowych]] napisali jego następcę – [[Ruby]]. Stan uspokojenia osiąga się zmieniając Perla na <del>[[Python]]a</del> [[AWK]]-a. |
||
== Przykładowy program == |
== Przykładowy program == |
||
< |
<syntaxhighlight lang="perl"> |
||
use strict;use warnings; |
use strict;use warnings; |
||
$SIG{__WARN__}=sub{($_)=@_;/^\w+\s\w+(\w)(?{print$1})(?<=[\s])/}; |
$SIG{__WARN__}=sub{($_)=@_;/^\w+\s\w+(\w)(?{print$1})(?<=[\s])/}; |
||
open OdlroWolleH,$0;print OdlroWolleH „Just Another Perl Hack”; |
open OdlroWolleH,$0;print OdlroWolleH „Just Another Perl Hack”; |
||
</syntaxhighlight> |
|||
</source> |
|||
Czytelny, czyż nie? |
Czytelny, czyż nie? |
||
== Zobacz też == |
|||
inny przykład: |
|||
* [[Shellscript]] |
|||
<source lang="perl"> |
|||
* [[PHP]] |
|||
$_='while(read+STDIN,$_,2048){$a=29;$b=73;$c=142;$t=255;@t=map{$_%16or$t^=$c^=( |
|||
* [[Malbolge]] |
|||
$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 |
|||
</source> |
|||
{{stub|inf}} |
{{stub|inf}} |
||
{{stopka}} |
|||
[[Kategoria:Języki programowania]] |
[[Kategoria:Języki programowania]] |
Aktualna wersja na dzień 22:18, 11 wrz 2023
Ten artykuł jest częścią cyklu naukowego języki komputerowe. |
Języki programowania: |
Inne języki komputerowe: |
|
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 AWK-a.
Przykładowy program[edytuj • edytuj kod]
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?
Zobacz też[edytuj • edytuj kod]
To jest tylko zalążek artykułu z dziedziny informatyki. Jeśli klikasz szybciej niż myślisz – rozbuduj go.
Zobacz więcej artykułów w portalu o informatyce.