 |
|
| node: | 05.04.2006-11:31:08 |
| template: | 4 |
| parent: | Perl |
| owner: | wwwnick |
| viewed by: | |
| created: | 05.04.2006 - 11:31:08 |
| updated: | 05.04.2006 - 12:23:03 |
|
cwbe coordinatez: 101 63540 2076399 1655002 2288208 ABSOLUT KYBERIA |
| permissions | |
| you: | r, |
| system: | public |
| net: | yes |
total descendants::
total children::3
1 ❤️
Larry Wall považuje sám sebe za umělce a Perl za umělecké dílo. Následující program [1] slouží jako malá ukázka, čeho je tento jazyk schopen. Program vypíše poměrně pomalu slova: Just another Perl / Unix hacker . Za tím účelem vytvoří 32 paralelních procesů, které složitě synchronizuje pomocí rour.
@P=split//,".URRUUc8R";@d=split//,"nrekcah xinU / lreP rehtona tsuJ";sub p{
@p{"r$p","u$p"}=(P,P);pipe"r$p","u$p";++$p;($q*=2)+=$f=!fork;map{$P=$P[$f^ord
($p{$_})&6];$p{$_}=/ ^$P/ix?$P:close$_}keys%p}p;p;p;p;p;map{$p{$_}=~/^[P.]/&&
close$_}%p;wait until$?;map{/^r/&&<$_>}%p;$_=$d[$q];sleep rand(2)if/S/;print
---
pozn ne vzdy funguje :) synchronizace se nekdy nepovede...
wwwnick@kunli:~$ perl wall.pl
Just another Perl / Unix hacker
wwwnick@kunli:~$ uname -a
Linux kunli 2.6.14.4kunli #2 Mon Dec 26 21:58:05 CET 2005 i586 unknown unknown GNU/Linux
@P=split//,".URRUUc8R";@d=split//,"nrekcah xinU / lreP rehtona tsuJ";sub p{
@p{"r$p","u$p"}=(P,P);pipe"r$p","u$p";++$p;($q*=2)+=$f=!fork;map{$P=$P[$f^ord
($p{$_})&6];$p{$_}=/ ^$P/ix?$P:close$_}keys%p}p;p;p;p;p;map{$p{$_}=~/^[P.]/&&
close$_}%p;wait until$?;map{/^r/&&<$_>}%p;$_=$d[$q];sleep rand(2)if/S/;print
---
pozn ne vzdy funguje :) synchronizace se nekdy nepovede...
wwwnick@kunli:~$ perl wall.pl
Just another Perl / Unix hacker
wwwnick@kunli:~$ uname -a
Linux kunli 2.6.14.4kunli #2 Mon Dec 26 21:58:05 CET 2005 i586 unknown unknown GNU/Linux