Collection of Perl one liners. The Camel ownz j00 all :)
\n<\/p>\n
# run contents of "my_file" as a program\r\n$ perl my_file\r\n\r\n# run debugger "stand-alone"\r\n$ perl -d -e 42\r\n\r\n# run program, but with warnings\r\n$ perl -w my_file\r\n\r\n# run program under debugger\r\n$ perl -d my_file\r\n\r\n# just check syntax, with warnings\r\n$ perl -wc my_file\r\n\r\n# useful at end of "find foo -print"\r\n$ perl -nle unlink\r\n\r\n# simplest one-liner program\r\n$ perl -e 'print "hello world! "'\r\n\r\n# add first and penultimate columns\r\n$ perl -lane 'print $F[0] + $F[-2]'\r\n\r\n# just lines 15 to 17\r\n$ perl -ne 'print if 15 .. 17' *.pod\r\n\r\n# in-place edit of *.c files changing all foo to bar\r\n$ perl -p -i.bak -e 's\/\\bfoo&\\b\/bar\/g' *.c\r\n\r\n# command-line that prints the first 50 lines (cheaply)\r\n$ perl -pe 'exit if $. > 50' f1 f2 f3 ...\r\n\r\n# delete first 10 lines\r\n$ perl -i.old -ne 'print unless 1 .. 10' foo.txt\r\n\r\n# change all the isolated oldvar occurrences to newvar\r\n$ perl -i.old -pe 's{\\boldvar\\b}{newvar}g' *.[chy]\r\n\r\n# command-line that reverses the whole file by lines\r\n$ perl -e 'print reverse <>' file1 file2 file3 ....\r\n\r\n# find palindromes\r\n$ perl -lne 'print if $_ eq reverse' \/usr\/dict\/words\r\n\r\n# command-line that reverse all the bytes in a file\r\n$ perl -0777e 'print scalar reverse <>' f1 f2 f3 ...\r\n\r\n# command-line that reverses the whole file by paragraphs\r\n$ perl -00 -e 'print reverse <>' file1 file2 file3 ....\r\n\r\n# increment all numbers found in these files\r\n$ perl i.tiny -pe 's\/(d+)\/ 1 + $1 \/ge' file1 file2 ....\r\n\r\n# command-line that shows each line with its characters backwards\r\n$ perl -nle 'print scalar reverse $_' file1 file2 file3 ....\r\n\r\n# delete all but lines beween START and END\r\n$ perl -i.old -ne 'print unless \/^START$\/ .. \/^END$\/' foo.txt\r\n\r\n# binary edit (careful!)\r\n$ perl -i.bak -pe 's\/Mozilla\/Slopoke\/g' \/usr\/local\/bin\/netscape\r\n\r\n# look for dup words\r\n$ perl -0777 -ne 'print "$.: doubled $_&\\n" while \/\\b(&\\w+)\\b\\s+\\b\\1\\b\/gi' \r\n\r\n# command-line that prints the last 50 lines (expensively)\r\n$ perl -e 'lines = <>; print @@lines[ $#lines .. $#lines-50' f1 f2 f3 ...<\/code><\/pre><\/div>\n","protected":false},"excerpt":{"rendered":"Collection of Perl one liners<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[],"tags":[2,3,9],"class_list":["post-35","post","type-post","status-publish","format-standard","hentry","tag-code","tag-linux","tag-perl"],"_links":{"self":[{"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/posts\/35","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/comments?post=35"}],"version-history":[{"count":0,"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/posts\/35\/revisions"}],"wp:attachment":[{"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/media?parent=35"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/categories?post=35"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/tags?post=35"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}