The Perl Journal One-Liners

TPJ One-Liner #7

An Absurd Way To Convert From Decimal To Binary 

#!/usr/bin/perl

($decimal, $binary) = (shift, '');
$SIG(USR1) = sub { $binary .= "0"};
$SIG(USR2) = sub { $binary .= "1"};

do { kill $decimal & 1 ? 'USR2' : 'USR1' , $$;
     $decimal >>= 1;
} while ($decimal);

print scalar reverse $binary;

Courtesy of Nathan Torkington

TPJ One-Liner #8

How To Patch Your Netscape Binary To Enable Strong Encryption 

#!/usr/bin/perl -0777pi
s/TS:.*?\0/$_=$&;y,a-z, ,;s,    $,true,gm;s, 512,2048,;$_/es

Courtesy of Ian Goldberg.

TPJ One-Liner #9

How To Use The Perl Debugger as a Command-Line Interpreter 

perl -de 0

TPJ One-Liner #10

Using PDL to Generate Fractals 

use PDL; use PDL::IO::Pic;$a=zeroes 300,300;
$r=$a->xlinvals(-1.5,0.5);$i=$a->ylinvals(-1,1);
$t=$r;$u=$i;for(1..30){$q=$r**2-$i**2+$t;$h=2*$r*$i+
$u;$d=$r**2+$i**2;$a=lclip($a,$_*($d>2.0)*($a==0));($r,
$i)=map{$_->clip(-5,5)}($q,$h);}$a->wpic("mandel.gif");

Courtesy of Tuomas J.Lukka.