Re: JAPHs with no unsightly letters or numbers

[Larry Shatzer]

On Tuesday, August 14, 2001 5:31 "Michael J Assels"
<[EMAIL PROTECTED]> wrote:
> On Tue, 14 Aug 2001 [EMAIL PROTECTED] wrote:
>
> > Are there other ways to do it with no letters?
> > What about no numbers too?
>
> Here's one with no letters, numbers, parentheses, brackets
> or braces:
>
[JAPH]
>
>
> (Unnecessary newlines added only for clarity.)
>
> Michael

Word wrap screws this up, but try this:

perl -MO=Deparse noletters.pl
$@ = "\000";
$_ = "\cA";
$/ = "\cB";
$^ = "\cD";
$, = "\cH";
$: = ' ';
$~ = "\cP";
$\ = $_ | '@';
$; = $: | $/;
$_ = "\@@\@@$@$," . "\@$@$/\@@\@$@$/\@$\$\\@$@\@@$\\@@\@@$@\@@\@@$@\@@" .
"\@$\\@@$,\@@$/$/" | "$@$_$/,$@$_$_$@$_$@$_$_$@$@$@$~$/" .
"$~$@$@$,$,$~$@$_$/$@$@$_$/$,$@$@$_$_$/$_$/$@$,$,$@$_" | $~ .
$^$~$^$@$^$^$@$^$^$,$^$@$@$/$^$~$^$@$_$^$^$^$,$^$~$@$@$^" .
"$~$^$@$,$@$/$,$^$~$^$^$^$@$^" | "$:$:$:$:$:$:$:$:$:$:$:$:" .
$:$:$,$:$:$:$:$:$;$;$:$:$:$:$:$~$:$:$:$:$:$:$:$:$:$:$:$~" . "$;$:$:";
`$_`;
noletters.pl syntax OK

Deparse parses it okay, but output that to a file and run it
sh: syntax error at line 1: `)' unexpected

So, I have it print out $_ before it backticks it, this is the results...

per,`%'`ed)'`aKt2t|annther`Perm`,a/*%2$. % is what is being passed to the
backticks...

You confused deparse, good job :o)

Larry