Perl is crazy!
-
not exp log srand xor s qq qx xor
s x x length uc ord and print chr
ord for qw q join use sub tied qx
xor eval xor print qq q q xor int
eval lc q m cos and print chr ord
for qw y abs ne open tied hex exp
ref y m xor scalar srand print qq
q q xor int eval lc qq y sqrt cos
and print chr ord for qw x printf
each return local x y or print qq
s s and eval q s undef or oct xor
time xor ref print chr int ord lc
foreach qw y hex alarm chdir kill
exec return y s gt sin sort splitQuote:
It's just pointless obfuscation, but its kinda neat. That code prints out "Just another Perl hacker" using only keywords in perl. The trick to it is that the "q" keyword works as a quote, and the rest of the code is just operating on the keywords that are now just strings inside the q tags.
:eek:
What do you get when you cross a joke with a rhetorical question? The metaphorical solid rear-end expulsions have impacted the metaphorical motorized bladed rotating air movement mechanism. Do questions with multiple question marks annoy you???
I used to do Perl, back when it was all the rage for web development. Fun to write, an absolute nightmare to maintain. You can do just about anything with one line of code, except read it later.
-
not exp log srand xor s qq qx xor
s x x length uc ord and print chr
ord for qw q join use sub tied qx
xor eval xor print qq q q xor int
eval lc q m cos and print chr ord
for qw y abs ne open tied hex exp
ref y m xor scalar srand print qq
q q xor int eval lc qq y sqrt cos
and print chr ord for qw x printf
each return local x y or print qq
s s and eval q s undef or oct xor
time xor ref print chr int ord lc
foreach qw y hex alarm chdir kill
exec return y s gt sin sort splitQuote:
It's just pointless obfuscation, but its kinda neat. That code prints out "Just another Perl hacker" using only keywords in perl. The trick to it is that the "q" keyword works as a quote, and the rest of the code is just operating on the keywords that are now just strings inside the q tags.
:eek:
What do you get when you cross a joke with a rhetorical question? The metaphorical solid rear-end expulsions have impacted the metaphorical motorized bladed rotating air movement mechanism. Do questions with multiple question marks annoy you???
Yeah, but it can be really useful too. Back in the 80s I wrote a perl script that took all the list files (Comadore Amiga 68000 assembler) from a project and combine them into a single list file that had the absolute address for all the instructions. The original list files all started at zero so they weren't really very helpful when trying to debug. I use to use perl fairly regularly (I'm retired now) to make support routines for my projects. My per scripts are very C like since, as an embedded engineer, I pretty much did all my programming in C/C++ (at least for the last 25 years or so).
-
not exp log srand xor s qq qx xor
s x x length uc ord and print chr
ord for qw q join use sub tied qx
xor eval xor print qq q q xor int
eval lc q m cos and print chr ord
for qw y abs ne open tied hex exp
ref y m xor scalar srand print qq
q q xor int eval lc qq y sqrt cos
and print chr ord for qw x printf
each return local x y or print qq
s s and eval q s undef or oct xor
time xor ref print chr int ord lc
foreach qw y hex alarm chdir kill
exec return y s gt sin sort splitQuote:
It's just pointless obfuscation, but its kinda neat. That code prints out "Just another Perl hacker" using only keywords in perl. The trick to it is that the "q" keyword works as a quote, and the rest of the code is just operating on the keywords that are now just strings inside the q tags.
:eek:
What do you get when you cross a joke with a rhetorical question? The metaphorical solid rear-end expulsions have impacted the metaphorical motorized bladed rotating air movement mechanism. Do questions with multiple question marks annoy you???
English is still more crazy: Buffalo buffalo Buffalo buffalo buffalo buffalo Buffalo buffalo - Wikipedia[^]
#SupportHeForShe Government can give you nothing but what it takes from somebody else. A government big enough to give you everything you want is big enough to take everything you've got, including your freedom.-Ezra Taft Benson You must accept 1 of 2 basic premises: Either we are alone in the universe or we are not alone. Either way, the implications are staggering!-Wernher von Braun
-
Long ago I tried to install Perl, my god what a mess! removed it the same day from my PC :doh:
Are you sure it's gone???!
#SupportHeForShe Government can give you nothing but what it takes from somebody else. A government big enough to give you everything you want is big enough to take everything you've got, including your freedom.-Ezra Taft Benson You must accept 1 of 2 basic premises: Either we are alone in the universe or we are not alone. Either way, the implications are staggering!-Wernher von Braun
-
Are you sure it's gone???!
#SupportHeForShe Government can give you nothing but what it takes from somebody else. A government big enough to give you everything you want is big enough to take everything you've got, including your freedom.-Ezra Taft Benson You must accept 1 of 2 basic premises: Either we are alone in the universe or we are not alone. Either way, the implications are staggering!-Wernher von Braun
Does not matter, it's on an old notebook gathering dust in the attic :-\
-
It reminds me of some crazy things you can do in JavaScript. obfuscation - What are JavaScript's builtin strings? - Stack Overflow[^] For example, paste the following JS into a jsfiddle and run it: alert([[]+1/!1][1^1][1>>1]+({}+[])[1<<1^11>>1]+( []+!!-[])[1<<1]+[/~/+{}][+!1][-~1<<1]+[([]+/-/[( !!1+[])[1>>1]+(!!1+[])[1<<1^1]+(!1+[])[1|1<<1]+( !!1+[])[1^1]])[1+(1^(11+1+1)<<1)],([]+/-/[(!!1+[ ])[1>>1]+(!!1+[])[1<<1^1]+(!1+[])[1|1<<1]+(!!1+[ ])[1^1]])[1^11<<1],([]+/-/[(!!1+[])[1>>1]+(!!1+[ ])[1<<1^1]+(!1+[])[1|1<<1]+(!!1+[])[1^1]])[1^(11 +1+1)<<1]][((([]+/-/[(!!1+[])[1>>1]+(!!1+[])[1<< 1^1]+(!1+[])[1|1<<1]+(!!1+[])[1^1]])[(1<<1<<1<<1 )+1<<1]==({}+[])[1^1])*1)+((([]+/-/[(!!1+[])[1>> 1]+(!!1+[])[1<<1^1]+(!1+[])[1|1<<1]+(!!1+[])[1^1 ]])[(1^11<<1)-1]==({}+[])[1^1])<<1)]+([,][~1]+[] )[1-~1]+[[]+{}][!1.1%1][11111.1%11.1*111e11|!1]+ (/1/+1/[1<1][1%1])[1^11]+[[],[]+{}][1][+1]+(/<Everyone is born right handed. Only the strongest overcome it. Fight for left-handed rights and hand equality.
Ah, yes. JSF***. eBay has no plans to fix “severe” bug that allows malware distribution [Updated] | Ars Technica[^]
What do you get when you cross a joke with a rhetorical question? The metaphorical solid rear-end expulsions have impacted the metaphorical motorized bladed rotating air movement mechanism. Do questions with multiple question marks annoy you???
-
not exp log srand xor s qq qx xor
s x x length uc ord and print chr
ord for qw q join use sub tied qx
xor eval xor print qq q q xor int
eval lc q m cos and print chr ord
for qw y abs ne open tied hex exp
ref y m xor scalar srand print qq
q q xor int eval lc qq y sqrt cos
and print chr ord for qw x printf
each return local x y or print qq
s s and eval q s undef or oct xor
time xor ref print chr int ord lc
foreach qw y hex alarm chdir kill
exec return y s gt sin sort splitQuote:
It's just pointless obfuscation, but its kinda neat. That code prints out "Just another Perl hacker" using only keywords in perl. The trick to it is that the "q" keyword works as a quote, and the rest of the code is just operating on the keywords that are now just strings inside the q tags.
:eek:
What do you get when you cross a joke with a rhetorical question? The metaphorical solid rear-end expulsions have impacted the metaphorical motorized bladed rotating air movement mechanism. Do questions with multiple question marks annoy you???
Languages I've used commercially or non-commercially (written at least a few lines of code). C C# C++ Eiffel F# Fortran Go JavaScript PL/SQL Pascal Perl Powershell Python Q# Solidity TypeScript VB VB.NET VBA VBScript Perl is the most unpleasant of the lot, although I admit it's very good at what it does.
Kevin
-
So the real question here, which is the most mystifying language? Perl? or [Brainfuck](https://en.wikipedia.org/wiki/Brainfuck)?! :o
A new .NET Serializer All in one Menu-Ribbon Bar Taking over the world since 1371!
Chinese. This poem:
Quote:
石室诗士施氏，嗜狮，誓食十狮。 氏时时适市视狮。 十时，适十狮适市。 是时，适施氏适市。 氏视是十狮，恃矢势，使是十狮逝世。 氏拾是十狮尸，适石室。 石室湿，氏使侍拭石室。 石室拭，氏始试食是十狮尸。 食时，始识是十狮，实十石狮尸。 试释是事。
is pronounced:
Quote:
Shíshì shīshì Shī Shì, shì shī, shì shí shí shī. Shì shíshí shì shì shì shī. Shí shí, shì shí shī shì shì. Shì shí, shì Shī Shì shì shì. Shì shì shì shí shī, shì shǐ shì, shǐ shì shí shī shìshì. Shì shí shì shí shī shī, shì shíshì. Shíshì shī, Shì shǐ shì shì shíshì. Shíshì shì, Shì shǐ shì shí shì shí shī. Shí shí, shǐ shí shì shí shī shī, shí shí shí shī shī. Shì shì shì shì.
Chinese Poetry 1- "Lion-Eating Poet in the Stone Den" - YouTube[^]
I wanna be a eunuchs developer! Pass me a bread knife!
-
not exp log srand xor s qq qx xor
s x x length uc ord and print chr
ord for qw q join use sub tied qx
xor eval xor print qq q q xor int
eval lc q m cos and print chr ord
for qw y abs ne open tied hex exp
ref y m xor scalar srand print qq
q q xor int eval lc qq y sqrt cos
and print chr ord for qw x printf
each return local x y or print qq
s s and eval q s undef or oct xor
time xor ref print chr int ord lc
foreach qw y hex alarm chdir kill
exec return y s gt sin sort splitQuote:
It's just pointless obfuscation, but its kinda neat. That code prints out "Just another Perl hacker" using only keywords in perl. The trick to it is that the "q" keyword works as a quote, and the rest of the code is just operating on the keywords that are now just strings inside the q tags.
:eek:
What do you get when you cross a joke with a rhetorical question? The metaphorical solid rear-end expulsions have impacted the metaphorical motorized bladed rotating air movement mechanism. Do questions with multiple question marks annoy you???
php can be almost as unintelligible.
CQ de W5ALT
Walt Fair, Jr., P. E. Comport Computing Specializing in Technical Engineering Software
-
not exp log srand xor s qq qx xor
s x x length uc ord and print chr
ord for qw q join use sub tied qx
xor eval xor print qq q q xor int
eval lc q m cos and print chr ord
for qw y abs ne open tied hex exp
ref y m xor scalar srand print qq
q q xor int eval lc qq y sqrt cos
and print chr ord for qw x printf
each return local x y or print qq
s s and eval q s undef or oct xor
time xor ref print chr int ord lc
foreach qw y hex alarm chdir kill
exec return y s gt sin sort splitQuote:
It's just pointless obfuscation, but its kinda neat. That code prints out "Just another Perl hacker" using only keywords in perl. The trick to it is that the "q" keyword works as a quote, and the rest of the code is just operating on the keywords that are now just strings inside the q tags.
:eek:
What do you get when you cross a joke with a rhetorical question? The metaphorical solid rear-end expulsions have impacted the metaphorical motorized bladed rotating air movement mechanism. Do questions with multiple question marks annoy you???
NMo, I'd say that Perl programmers are crazy. and I've dabbled in nPerl, it's sometimes useful. But PhP suites my needs better.
CQ de W5ALT
Walt Fair, Jr., P. E. Comport Computing Specializing in Technical Engineering Software