XPost: comp.lang.perl.misc
From: colin.randall2@gmail.com
On 11/10/2021 19:01, Eli the Bearded wrote:
> In alt.ascii-art, colin randall wrote:
>> On Wednesday, July 16, 2003 at 9:07:44 AM UTC+1, Harry Mason wrote:
>
> I'd make a suggestion, but 19 years later it might not help.
>
>> For perl there is Acme::EyeDrops. It doesn't just format the program, it
>> obfuscates it too.
>>
>> -- 8< -- cut here -- >8 --
>> #!/usr/bin/perl -w
>> eval eval '"'.
>>
>>
>> ('#').
>> '!'.'/' .('['
>> ^'.' ) .('['^'('). ("\["^
>> ')')."\/".( '`'|'"').('`'| ')').(
>> '`'|'.') .'/'. ( '['^'+').('`'|'%').('['
>> ^')').('`'|',').('{' ^'[').'-'.('['^',').('!'
>> ^'+').('['^'.').('['^ '(').('`'|'%').('{'^('[')).(
>> '['^'(').('['^'/').( '['^')').('`'|')').('`'|'#').("\["^
>> ('/')). ';'.('!'^'+').('['^'+').('['^"\)").(
>> '`'|')').('`'|'.').('['^'/').('{'^'[').'\\'.'"'.('`'|'(').(
>> '`'|'%').('`'|',').('`'|',').('`'|'/').','.('{'^'[').('['^','
>> ).('`'|'/').('['^')').('`'|',').('`'|'$').'\\'.'\\'.('`'|"\.").
>> '\\'.'"'.';'.('!'^'+').'"';$:='.'^'~';$~='@'|'(';$^=')'^'[';$/=
>> '`'|'.';$_='('^'}';$,='`'|'!';$\=')'^'}';$:='.'^'~';$~='@'|'(';
>> $^=')'^'[';$/='`'|'.';$_='('^'}';$,='`'|'!';$\=')'^'}';$:="\."^
>> '~';$~='@'|'(';$^=')'^'[';$/='`'|'.';$_='('^'}';$,='`'|('!');$\=
>> ')'^'}';$:='.'^'~';$~='@'|'(';$^=')'^'[';$/='`'|'.';$_='('^'}';
>> $,='`'|'!';$\=')'^'}';$:='.'^'~';$~='@'|'(';$^=')'^'[' ;($/)=
>> '`'|'.';$_='('^'}';$,='`'|'!';$\=')'^'}';$:='.'^'~'; ($~)=
>> '@'|'(';$^=')'^'[';$/='`'|'.';$_='('^'}';$,=('`')| "\!";
>> $\=')'^'}';$:='.'^'~';$~='@'|'(';$^=')' ^'[';$/= '`'|
>> (( '.'));$_='('^'}';$,='`'|"\!";$\= ')'^'}'; ($:)
>> ='.'^"\~"; $~='@'|'(' ;$^=')'^ '[';$/= '`'
>> |('.');$_= '('^'}';$, ='`'|'!' ;$\=')' ^+
>> "\}";$:= '.'^'~';$~ =('@')| '(';$^
>> =')'^'[' ;$/=('`')| '.';$_= "\("^
>> '}';$,= '`'|'!';$\ ="\)"^ '}';$:
>> =('.')^ "\~";$~= ('@')| "\(";
>> $^=')' ^"\["; $/='`' |'.';
>> ($_)= ('(')^ '}';$, ='`'|
>> "\!"; $\=')'^ '}';$: ='.'
>> ^'~'; $~='@'|'(' ;$^=
>> ')'^ "\[";$/= '`'|
>> '.'; $_=('(')^ '}';
>> ($,) ='`'|'!';$\ =')'^
>> "\}"; $:='.'^'~';$~= ('@')|
>> "\("; $^="\)"^ '['; $/='`'|
>> '.';$_= '('^'}';
>> $,="\`"| '!';#;
>> -- 8< -- cut here -- >8 --
>
>> Thats an interesting piece of art
>> i dont have perl installed and i'd be curious to know what its output
>> looks like
>
> It just prints "hello, world".
>
> There are a bunch more examples in the documentation for Acme::EyeDrops,
> but trying a few, I was unable to get them to produce output (other
> than errors[*]). Chances are the output ASCII art code is rather
> sensitive to changes in Perl syntax.
>
> https://metacpan.org/pod/Acme::EyeDrops
>
> [*] Example, with Perl v5.26.1
> Eval-group not allowed at runtime, use re 'eval' in regex
> m/(?{eval"\$~=pop||'';open\$%;y,!-~,#,,s,(.).,\$+,gs,\$~&
(\$_=reverse)for\@~=grep\$|--,('')x18,<0>;\@;=map~~reverse,re.../
> at /tmp/p line 48.
> For the similarly shapped "camel.pl"
>
> Elijah
> ------
> has not tried using all the ancient versions of Perl he has access to
>
ok ... thanks for that ... sorry to have put you to the trouble ...
so it was just an example of a "caligram" using the Acme::EyeDrops tool
if it had been C or Bash or even Pascal i would've been able to read it
... hadn't realized that Perl was so 'parentheses' heavy ... kind of
looks like it was made with a bracket-generator :)
--
.
._!__ __ __
/ _\/_ |_ \!_
/ / 7 / /|
\ \_ _/ / \ .
\_//__/|_\_\!_.
|
--- SoupGate-Win32 v1.05
* Origin: you cannot sedate... all the things you hate (1:229/2)
|
