Re: The Backslash Challenge

The goal is maximum obfuscation, right? ;)

The second one requires a recent Perl but can be easily rewritten to work with older versions. :)

update

also tried this but see comment

Cheers Rolf
_{(addicted to the Perl Programming Language :)

Wikisyntax for the Monastery}

update

added trailing ; to debugger examples

Comment on Re: The Backslash Challenge Select or Download Code

Replies are listed 'Best First'.
Re^2: The Backslash Challenge by choroba (Cardinal) on Mar 25, 2021 at 07:45 UTC
Nice trick! Interestingly, it doesn't work for me. In the debugger, I'm getting `cont: Can't find string terminator "\" anywhere before EOF at (eval 13)[/usr +/lib/perl5/5.26.1/perl5db.pl:738] line 2. at (eval 13)[/usr/lib/perl5/5.26.1/perl5db.pl:738] line 2. eval '' called at /usr/lib/perl5/5.26.1/perl5db.pl line 738 DB::eval called at /usr/lib/perl5/5.26.1/perl5db.pl line 3140 DB::DB called at -e line 1` [download] And if I run it in a script instead, the output is `_`, not `\` :-o `map{substr$_->[0],$_->[1]\|\|0,1}[\\|\|{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^ARGV,3]`	[reply] [d/l] [select]
Re^3: The Backslash Challenge by LanX (Saint) on Mar 25, 2021 at 11:05 UTC
> cont: A backslash at EOL marks a multiline statement in DB. I had a trailing whitespaces to avoid this, but the C&P from cmd.exe erased them. :( Fixed now! > And if I run it in a script instead, the output is _, not \ :-o both lines? lemme check... ... Argh! Seems that the context of the debugger is initializing a "crucial thing" which can't be taken for granted :( <Reveal this spoiler or all in this thread> update yes a `use DB;` at the start of the script is "fixing" it. Actually that could be a source of a Heisenbug. Cheers Rolf _{(addicted to the Perl Programming Language :) Wikisyntax for the Monastery}	[reply] [d/l]
Re^4: The Backslash Challenge by choroba (Cardinal) on Mar 25, 2021 at 11:27 UTC
> yes a `use DB;` at the start of the script is "fixing" it. Not only the DB. English works, too :-o <Reveal this spoiler or all in this thread> `map{substr$_->[0],$_->[1]\|\|0,1}[\\|\|{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^ARGV,3]`	[reply] [d/l] [select]


go ahead... be a heretic
	PerlMonks