Re: [FWP] Quine, ontology, and Perl

[Gaal Yahas <gaal@forum2.org>]

On Tue, May 09, 2000 at 03:58:01PM -0400, John Porter wrote:
> Sure, that's a whole venerable class of JAPHs.
> 
> Here's one (can't claim to be the fist to do it).
> 
> $, = ' '; $\ = ',';
> eval { &{'Just::&Another::&Perl::&Hacker'} };
> print $@ =~ /&(\w+)/g;

This is *very* cute, but I think it doesn't strictly qualify, since
by the time it is printed, the JAPH is in the value of the variable $@ ;
$_ in the map is merely an alias.

Or is it? Come to think of it, there seems to be a discrepancy here:

     @arr = qw/moose caribou elk deer/;
     map { s/(.)/^\u$1/ } @arr;
     x @arr;                        # say we're in the debugger :-)

     0  'Moose'
     1  'Caribou'
     2  'Elk'
     3  'Deer'

...but:

     $varwithaweirdname = "some value";
     map { s/weird/strange/ } %::;        # evidently does nothing
     x $varwithaweirdname;
     
     0  'some value'

     x $variablewithastrangename;

     0  undef

$^W = 1 offers no hints, either. What's going on here?

-- 
believing is seeing
gaal@forum2.org
http://www.forum2.org/gaal/

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