Front page | perl.fwp |
Postings from September 2001
Re: World's Largest JAPH
Thread Previous
|
Thread Next
From:
Andrew.Savige
Date:
September 10, 2001 15:57
Subject:
Re: World's Largest JAPH
Message ID:
C0D2F5944500D411AD8A00104B31930ED6CB9E@ir_nt_server2
On Sun, 9 Sep 2001 12:18:22 +1000 , Andrew.Savige@ir.com wrote:
>> open 0;
>> $/ = undef;
>> $x = <0>;
>> close 0;
>> $x =~ tr/!-~/#/;
>> print $x;
>> '%'=~
>> ('('.'?'.
>> '{'.('`'|'%'
>> ).('['^'-').('`'
>> |'!').('`'|',').
...
Bart Lateur wrote:
> I get 961 warnings "Useless use of a constant in void context at ...".
> Oh, and the junk at the start of the output isn't nice either:
>
> ## #### ##
> #### ##
> ## # ######
> ## # ####
> ##### ##
> ## ## ##########
> ##### ###
Just to clarify, the JAPH starts with the line:
'%'=~
not with:
open 0;
Your leading junk looks suspiciously like the original ASCII
program from which the JAPH was generated (with a leading
#! perl -w added). If you delete these lines from the file,
japh.pl, say, then run with:
perl japh.pl
the leading junk and the warnings should disappear.
I am aware that my choice of "filler" code generates warnings
and I will try to find some alternative filler that does not
do that.
Andrew.
Thread Previous
|
Thread Next