Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw

still another $A++

by stefp (Vicar)
on Sep 10, 2001 at 04:17 UTC ( [id://111361] : obfuscated . print w/replies, xml ) Need Help??

This is an new entry for the ongoing French $A++ contest. The goal is to do baroque $A++. This is not the first non alphanumeric entry but this one uses a not yet exploited obfuscation device that I let you discover.

$  {<@ >|< !>&~< ">}++

Other entries in perlmonks:

japhy tells me he already uses this trick. He explains it in his japhy's obfuscation review.

-- stefp

Replies are listed 'Best First'.
Re: still another $A++
by BooK (Curate) on Sep 10, 2001 at 11:38 UTC

    Here is another $A++ on Perlmonks you forgot:

    This one is aimed at using only characters between @ and DEL.

Re: still another $A++
by japhy (Canon) on Sep 10, 2001 at 04:24 UTC
    Hint: I abused in japhy's obfuscation review. Granted, not with the wacky non-alphanumerics, but the trick was the same.

    Jeff[japhy]Pinyan: Perl, regex, and perl hacker.
    s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;

      I did not know that it was already exploited but in your node you missed the opportunity to throw in spaces to make identification of this obfuscation device less obvious :)

      About this node, you said "Clutter can help obfuscate". I would add: spacing can help to obfuscate when used to mask syntactical structures or, worse, hints at non valid interpretations.

      -- stefp

Re: still another $A++
by stefp (Vicar) on Sep 10, 2001 at 13:35 UTC
    Works with linux, bash and perl 5.6.1:

    `echo 2 >"1 "`;open 1,1; $A += chomp ($a =<1>);

    -- stefp