obfuscated
davido
<p>A proper JAPH this is not. And there's not really any obfu here but I thought this was a fun abuse of QR codes and Perl:</p>
<c>
use Term::QRCode;for(DATA){shift&&do{seek$_,0,undef$/};print Term::QRCode->new->plot(<$_>)}
__DATA__
Just another Perl hacker,
</c>
<p>You'll need to install Term::QRCode, which will fail unless you have libqrencode-dev installed (Debian, Ubuntu).</p>
<p>Usage:</p>
<c>
$ perl qrjaph self # Generate a QR that contains this script as its encoded text.
$ perl qrjaph # Generate a QR that contains just the text Just another Perl hacker,
</c><p>
The output isn't something I can copy/paste here, so you'll either have to give it a try or take my word for it. ;) This constitutes a violation of several of the rules of JAPH scripts: It relies on several non-Perl-core libraries. It can't be run as a <c>perl -e</c> script (because it needs the <c>DATA</c> handle), and it doesn't actually output the canonical "<em>Just another Perl hacker,</em>" in plain-text.
</p><div class="pmsig"><div class="pmsig-281137">
<br /><p>Dave</p>
</div></div>