pl
Perl One-Liner Magic Wand
Some tasks are too menial for a dedicated script but still too cumbersome even with the many neat one-liner options of "perl -E". This small script fills the gap: various one-letter commands & magic variables (with meaningful aliases too) and more nifty loop options take Perl programming to the command line. Fully imports List::Util. With no program on the command line, starts a pl Shell.
How to "e(cho)" values, including from "@A(RGV)", with single "$q(uote)" & double "$Q(uote)". Same for hard-to-print values:
$ pl 'e "${q}Perl$q", "$Q@A$Q"' one-liner
$ pl 'e \"Perl", \@A, undef' one-liner
Loop over args, printing each with line ending. And same, SHOUTING:
$ pl -opl '' Perl one-liner
$ pl -opl '$_ = uc' Perl one-liner
Print up to 3 matching lines, resetting count (and "$.") for each file:
$ pl -rP3 '/Perl.*one.*liner/' file*
Count hits in magic statistics hash "%N(UMBER)":
$ pl -n '++$N{$1} while /(Perl|one|liner)/g' file*