[Freeciv-Dev] Re: Perl for scripting

[Tomasz Wegrzanowski <maniek@xxxxxxxx>]

On Tue, Jun 27, 2000 at 11:40:41PM -0500, Cameron Morland wrote:
> On Wed, 28 Jun 2000, Tomasz Wegrzanowski wrote:
> 
> > I would never use sh, given ANY other choice, even VisualBasic :-)
> > And I wouldn't use Pascal, unless they support POSIX I/O.
> > Don't have other objections, weird languages are fun (try dc).
> 
> Well, speaking of weird languages, I suggest we use Postscript to do the
> job. Now _that_'s weird! Here's a simple program to get you going -- if
> you want more, I wrote a Mandelbrot set interpreter in
> PS.... <http://www.eng.uwaterloo.ca/~cjmorlan/fractals/mandelbrot.ps>
> 
> %!PS-Adobe-1.0
> 1 1 5 {
>   dup 12 mul /Times-Roman findfont exch scalefont setfont
>   72 mul 72 exch moveto
>   (Hello world!) show
>   } for
> showpage
> 
> If that isn't enough fun, a slightly more obfuscated program (and you said
> Perl was difficult to comprehend!) It's Jon Monsarrat's .sig
> 
> %! Jon Monsarrat jgm@xxxxxxxxxxxx moderator, comp.sources.postscript %!
> (LcHdBidZi_hdQ6[PaVa1b4c6F"J4b/>$O<)(di_zk{:UFfUg;ABF)(2n>]Eh:u?<)(P"M#R\(:$T<)
> ([gXfSZ]f\\dZbeZeb^fH;`?dR=ZS7)(K P!U!: 
> H<)(9l9cCf:o?$)(7W4]6`:X;=)(U"W#_%:"R-)
> (A 
> 5"<&Y%K"F"M,M,S\)i3e.M5F_PZR9>lP-)(wBxEuEs7x;uBq:q<q>hFh7o:=Nj<)(Z#]#b#:$R-)
> (m+m+k3S!R+d,;"^<)(GFP\\RamZf;TAP{X{fd<{C7)(4840N2:6N=)([ 
> Z#^&:!c<)(<%?$C$:#8<)
> (D!J"L#:!B<)/a{def}def/M{exch}a/S{repeat}a/Q{{40 add}if}a 18{{}forall/R M a/x 
> 2
> /y 3/z 5 3{R M mod 1 eq a}S x Q M y Q moveto 57 sub{3{y Q M x Q M 6 2 roll}S
> curveto}S z{fill}{stroke}ifelse}S showpage

/me loves it.
URL for tutorial ?
Or for full reference ?