$J=q$JAPH$;print"${J}s rule";
[download]

Dingus

It does work for me, in both forms:

perl -le '
J}s rule'
JAPHs rule

perl -le '
$J=q$JAPH$;print"${J}s rule";
'
JAPHs rule
[download]

But I don't understand the first version. Why does it work? perl 5.8.0 on linux, btw.

-- Dan

Something to do with the lexer I believe, or so I've read.
HTH

_________
broquaint

Ok I see why I thought it didn't work. I habitually test fragments like this in an eval statement because I have my own home rolled "Interpreted Perl Console"©. In the interpreted console it fails. If I make a trivial perl script it works.

Can anyone explain why it doesn't work in an eval and does work as a program?

#!perl
#this script doesn't work
my $t = <<'EOT' ;
$J=q$JAPH$;print"${";
J}s rule
EOT
print "$t\nResult:\n";
eval $t;

------------------------------

#!perl
#this script works
$J=q$JAPH$;print"${";
J}s rule
[download]

Dingus

---

Enter any 47-digit prime number to continue.

sub a_naked { print 'Just another' }
print qq|${ print "I gotta be...\n";|
a_naked} Perl hacker
[download]