@ISA happy memory
1 direct reply — Read more / Contribute
|
by silent11
on Feb 10, 2021 at 19:18
|
|
I don't post logged in,
socials link to my handle.
I return every few years,
get filled with nostalgia.
Now back to work,
to do whatever.
But not with my Perl,
not today, and likely not ever.
|
Perl Saroyan
1 direct reply — Read more / Contribute
|
by Anonymous Monk
on Sep 11, 2020 at 20:56
|
|
perl -e 'use Time::HiRes qw(usleep); foreach $i (1..145) { print join("", (" " x 72)) . "crickets\n"; usleep 550000 }'
|
the road ahead
1 direct reply — Read more / Contribute
|
by Anonymous Monk
on Oct 14, 2019 at 04:25
|
|
perl -le'$_=`perldoc -T perlfaq4`,s/^.*N;(.*?)E.*$/$1/s,print'
|
obfupoetry II
1 direct reply — Read more / Contribute
|
by Discipulus
on Mar 21, 2019 at 04:46
|
|
In occasion of first day of Spring* i give you the second issue of perl obfupoetry:
How:to:forget:when:I:was:young:
join ' had ', (glob'spr{a,e,i,o,u}ng')[2,4];
Now:I:get:in:the:middle:of:
join ' and ', (glob'Y{i,a}n{,g}')[0,-1];
and:I:remember:it:was:a:bang:
seek DATA,0,0;while(<DATA>){last if/DATA/;
chomp&&print/:/?(join$",split':',$_):eval,$/}
__DATA__
L*
(*)please do not reply with positivist comments about the exact first day of Spring: seasons always start in day 21: the notion is in my mind since..
There are no rules, there are no thumbs..
Reinvent the wheel, then learn The Wheel; may be one day you reinvent one of THE WHEELS.
|
The wise coder
2 direct replies — Read more / Contribute
|
by hippo
on Jan 22, 2019 at 14:14
|
|
The wise coder will never pipe grep into awk
For unneeded processes cause neighbours to talk.
The wise coder will never type cat file | foo
Unless they want a UUoCA too.
The wise coder will never discard output from backticks
As that displays ignorance of better tactics.
The wise coder won't shell out to grep, awk or sed
Since no JAPH would be seen doing that, dead.
|
Perl is Magic
No replies — Read more | Post response
|
by usemodperl
on Jun 29, 2018 at 20:27
|
|
Looking for ways to get perl to make Magic?
Any odd way to print that word: like a JAPH!
This shell one liner runs 3 perl one liners that run
perl 4 times to make Magic:
perl -e'$_="Larry";while(++$_){print"\rPerl is $_";goto(MAGIC)if/Magic
+/}MAGIC:print"\n"';perl -v|perl -pe's\Perl\Magic\magic';perl -e'print
+"[Perl$^V] ";<STDIN>'
STOP REINVENTING WHEELS, START BUILDING SPACE ROCKETS!—CPAN 🐪
|
Sex !
1 direct reply — Read more / Contribute
|
by usemodperl
on Jun 21, 2018 at 13:06
|
|
perl -v|perl -pe's\(?<=r)[l]\x\g;s\(?<=pe)r\\gi;s\p(e)\S$1\gi'
perl -MO=Deparse -e 'E S I X G S O O D'
|
a prime bug
1 direct reply — Read more / Contribute
|
by ownlifeful
on Jun 10, 2017 at 21:24
|
|
chomp and print join ',', grep $_, (map length, split /[a,]/), "\n"
while <DATA>;
__END__
a bug trapped inside
a paper lantern, arid
aflutter, ablaze
|
Perl, I'm coming home...
4 direct replies — Read more / Contribute
|
by ait
on May 25, 2017 at 12:38
|
|
Perl,
I love you and I miss you. Have been making some dough with Java for the past few years but I am returning to you with my new endeavour.
My time with Java has been a means to an end and I can now say, with a great degree of certainty, that there is no other language I would rather code with for the rest of my life.
With the same degree of certainty I can also say what a piece of crap Java is.
Can't wait to type your wonderful syntax again, and can't wait to learn 6.
Cya soon!
ait
|
therapist autopilot
No replies — Read more | Post response
|
by Anonymous Monk
on Apr 27, 2017 at 20:38
|
|
__END__
End your diagnosis'
Qualification withdrawn
Thin skin moisturize
|