Re: [FWP] Quine, ontology, and Perl

[Sven Neuhaus <sn@neopoly.de>]

On Sat, May 13, 2000 at 04:41:47PM -0400, Ryan Fischer wrote:
> Fore!
> 
> Even shorter:
> 
> perl -le 'print`man perlfaq1`=~/"(j.*)"/'
>           123456789012345678901234567890
> 
> 30 characters.  :-)
> 
> I don't see anything else right now... unless you replace print with die
> for 28 characters.

die() will give extra output.
There's another trick that I used in the sig posted earlier and in my 
entry to the obfuscated perl contest:

  perl -le 'print`man $^Xfaq1`=~/"(j.*)"/'

another one down.

-Sven
-- 
$\=$/,$^X=~m(((.)..l));$~=q,od,,$_='sven@sven.de 2000/01/04'
,$;="/$2$~/$1f\141q".(close STDERR).".$2$~";$#=length,print
map{@ARGV=-f$_.$;?$_.$;:m;();;m>"(j.{$#})>while<>;$+}@INC

==== Want to unsubscribe from Fun With Perl?  Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
====   unsubscribe