Perlsecret – Perl secret operators and constants (metacpan.org)

They one they named "baby cart" is something I have used to interpolate expressions into a string. Eg

    print "The sum is @{[1+2+3]}";

produces

    The sum is 6

instead of having to do:

    my $sum = 1+2+3;
    print "The sum is $sum";

fun thing about this page: i have gemini in the browser and when I asked it 'why is the entire Wall Family naming these things?' it said it couldn't engage. Turns out 'goatse' is a forbidden word to Gemini.

Perl was the first language I learned on my own after graduating university many years ago. I fell in love with it because of quirks like these and because code written in it can have a poetic quality you don't see often.

Now I am old and joyless and I want the code I write for work to be boring and unsurprising.

But sometimes one can still want to write poetry.

OMG! The Goatsie operator =( )= is WILD! wilder than the glob wild operator *

After first experiences with linux shell scripting, sed, awk, and C in 1990s, I found perl a welcome refuge. Way more featureful than DOS .bat files or BASIC! Its capabilities (perl + cpan) have always well exceeded my need for CS goodness. People do complain about the syntax, oddly, without mentioning the numerous ways perl was designed to make common tasks easy to do. The "use strict" pragma, and early adoption of testing culture are two examples where perl led the programming community. With the continued maturing of the language and ecosystem, I can only smile at the naysayers and wish them happiness whatever the language.

Perk is... quite a thing. I think if you like programming because you like believing you have secret knowledge... go for it. Perk will scratch that itch. But I do not believe it beings you closer to the pantheon of God's. Ai n't gonna stop anyone from dancing with the Satyrs though, if that's your jam.

> !! Bang bang boolean conversion

This isn't a special operator. This is just how "not" (!) works. In basically every language: C, C++, Javascript, Perl, etc., ! is the "not" operator so !12 gives you false (12 is truthy), and !!12 (not false) gives you true.

It's the same in languages that use different operators for "not". In python, the "not" operator is just the word not, and can write "not not 12" to get True. They didn't implement a special "not not" operator, anymore than Perl implemented a "!!" operator. They just implemented the basic ! / "not" operator.

I didn't know ~- and -~ had a name, I have been using them in many (non-production) places where I wanted to save 2 bytes.

But looks like Perl's implementation is more limited compared to other languages:

    % perl -e 'print ~-(0), "\n"'
    18446744073709551615
    % ruby -e 'print ~-(0), "\n"'
    -1

https://metacpan.org/dist/perlsecret/view/lib/perlsecret.pod...

Secret open source. Wait.

Honestly the ones I probably use more than any other? =~ and !~

if ($text =~ /error/) { print "Found error\n"; }

if ($text !~ /error/) { print "No error found\n"; }

It's just fun and fast to slice and dice text this way.