Commands using perl | commandlinefu.com

Hide

What's this?

commandlinefu.com is the place to record those command-line gems that you return to again and again.

Delete that bloated snippets file you've been using and share your personal repository with the world. That way others can gain from your CLI wisdom and you from theirs too. All commands can be commented on, discussed and voted up or down.

Get involved!

You can sign-in using OpenID credentials, or register a traditional username and password.

OpenID

First-time OpenID users will be automatically assigned a username which can be changed after signing in.

UpGuard checks and validates configurations for every major OS, network device, and cloud provider.

Hide

Stay in the loop…

Follow the Tweets.

Every new command is wrapped in a tweet and posted to Twitter. Following the stream is a great way of staying abreast of the latest commands. For the more discerning, there are Twitter accounts for commands that get a minimum of 3 and 10 votes - that way only the great commands get tweeted.

» http://twitter.com/commandlinefu
» http://twitter.com/commandlinefu3
» http://twitter.com/commandlinefu10

Subscribe to the feeds.

Use your favourite RSS aggregator to stay in touch with the latest commands. There are feeds mirroring the 3 Twitter streams as well as for virtually every other subset (users, tags, functions,…):

Subscribe to the feed for:

» all commands
» commands with 3 up-votes (commandlinefu3)
» commands with 10 up-votes (commandlinefu10)
» commands using perl

Hide

News

May 19, 2015 - A Look At The New Commandlinefu: I've put together a short writeup on what kind of newness you can expect from the next iteration of clfu. Check it out here.
March 2, 2015 - New Management: I'm Jon, I'll be maintaining and improving clfu. Thanks to David for building such a great resource!

Hide

Top Tags

awk, bash, curl, find, grep, Linux, sed

Hide

Functions

Terminal - Commands using perl - 346 results

perl -MYAML -MJSON -0777 -wnl -e 'print YAML::Dump(decode_json($_))' package.json

2013-09-23 02:37:33

User: ishiduca

Functions: perl

Up
Down

Convert JSON to YAML

Comments (1) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate

perl -MYAML -MJSON -0777 -wnl -e 'print YAML::Dump(decode_json($_))' package.json

2013-09-23 02:37:32

User: ishiduca

Functions: perl

Up
Down

Convert JSON to YAML

Comments (1) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate

echo -n 023135 | perl -pe 's/([0-9a-f]{2})/chr hex $1/gie' | nc -4u -q1 -p5001 192.168.0.100 2000

2013-09-18 14:31:47

User: sucotronic

Functions: echo perl

Tags: netcat hex udp raw bytes

Up
Down

send raw data (hex written)using UDP to an IP and port

Use it to send raw data to a networked device. Used to interact with relay controller board whose documentation is lost, so use wireshark to sniff the sent data and replayed using the command.

Comments (133) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate

perl -p -e 's/\$(\w+)/$ENV{$1}/g;' <files...>

2013-09-11 20:57:07

User: Kurposkano

Functions: perl

Up
Down

Replace all environment variable references in files with environemnt variable values

Comments (0) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate

alarm() { perl -e 'alarm shift; exec @ARGV' "[email protected]"; }; alarm 20 foo arg1

2013-08-26 19:40:55

User: fnds

Functions: exec perl

Up
Down

Execute a command with a timeout

Found it at http://www.cyberciti.biz/faq/shell-scripting-run-command-under-alarmclock/

perl -Mojo -E 'say g("http://www.census.gov/popclock/data/population/world")->json->{'world'}{'population'};'

2013-08-25 02:49:36

User: salparadise

Functions: perl

Tags: perl mojolicious

Up
Down

Fetch the current human population of Earth

Comments (1) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate

logger -tdnsupdate $(curl -s 'https://dynamicdns.park-your-domain.com/[email protected]&domain=xxx&password=xxx'|tee -a /root/dnsupdate|perl -pe'/Count>(\d+)<\/Err/;$_=$1eq"0"?"Update Sucessful":"Update failed"'&&date>>/root/dnsupdate)

2013-08-11 16:27:39

User: MagisterQuis

Functions: logger perl tee

Tags: perl curl logger namecheap dyndns park-your-domain.com

Up
Down

Update a namecheap @ A record to point to your current internet-facing IP address

Sets the @ A record for your domain hosted by namecheap to your current internet-facing IP address, logs success or failure with syslog, and logs the data returned to /root/dnsupdate.

Change the XXX's as appropriate.

More info at: http://www.namecheap.com/support/knowledgebase/article.aspx/29/

convert_path2uri () { echo -n 'file://'; echo -n "$1" | perl -pe 's/([^a-zA-Z0-9_\/.])/sprintf("%%%.2x", ord($1))/eg' ;} #convert2uri '/tmp/a b' ### convert file path to URI

2013-07-01 08:54:45

User: totti

Functions: echo file perl

Tags: encoding PATH url

Up
Down

Encode file path to URL

Really helpfull when play with files having spaces an other bad name. Easy to store and access names and path in just a field while saving it in a file.

This format (URL) is directly supported by nautilus and firefox (and other browsers)

perl -lne 'print unless $seen{$_}++'

2013-07-01 03:47:48

User: kotokz

Functions: perl

Up
Down

remove duplicate with change order

Comments (0) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate

perl -le '$l=80;$l2="!" x $l;substr+($l2^=$l2),$l/2,1,"\xFF";{local $_=$l2;y/\0\xFF/ ^/;print;($lf,$rt)=map{substr $l2 x 2,$_%$l,$l;}1,-1;$l2=$lf^$rt;select undef,undef,undef,.1;redo}'

2013-06-21 06:00:24

User: l3v3l

Functions: perl

Tags: perl sierpinski cellular automata 2D

Up
Down

Draw a Sierpinski triangle

xmas lights for your terminal - switching the $l value to something like 1200 and zooming out on your terminal gives a great view ...

perl -e 'printf "%o\n", (stat shift)[2]&07777' file

2013-06-15 19:26:23

User: smallduck

Functions: perl stat

Up
Down

ls output with mode in octal

one of the solutions from this stackexchange: http://unix.stackexchange.com/questions/71585/convert-ls-l-output-format-to-chmod-format

nohup tail /var/log/murmur.log | perl -ne '/^<.>[0-9:. -]{24}(\d+ => )?(.*)/; $pid=`pgrep -u murmur murmurd | head`; chomp $pid; `logger -p info -t "murmurd[$pid]" \\"$2\\"`;' &

2013-05-25 01:12:52

User: MagisterQuis

Functions: info nohup perl tail

Tags: murmur mumble murmurd OpenBSD

Up
Down

Send murmurd log lines to syslog

Sends log lines from murmur's (the mumble server's) logfile to syslog.

Comments (5) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate

tail -F some.log | perl -ne 'print time(), "\n";' | uniq -c

2013-05-11 04:51:22

User: grana

Functions: perl tail uniq

Tags: tail wc

Up
Down

Lines per second in a log file

Comments (0) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate

ps -e -m -o user,pid,args,%mem,rss | grep Chrome | perl -ne 'print "$1\n" if / (\d+)$/' | ( x=0;while read line; do (( x += $line )); done; echo $((x/1024)) );

2013-05-07 22:50:44

User: unixmonkey39631

Functions: echo grep perl ps read

Up
Down

Chrome sucks

How much memory is chrome sucking?

pwd|grep -o '/'|perl -ne '$x.="./.";print`readlink -f $x`'|xargs -tn1 chmod 755

2013-03-14 12:03:44

User: luke_skywalker

Functions: chmod grep perl pwd xargs

Tags: perl xargs grep chmod

Up
Down

Ensure path permissions from '.' prior to root

`pwd` returns the current path

`grep -o` prints each slash on new line

perl generates the paths sequence: './.', './../.', ...

`readlink` canonicalizes paths (it makes the things more transparent)

`xargs -tn1` applies chmod for each of them. Each command applied is getting printed to STDERR.

for i in `gpg --list-sigs | perl -ne 'if(/User ID not found/){s/^.+([a-fA-F0-9]{8}).*/\1/; print}' | sort | uniq`; do gpg --keyserver-options no-auto-key-retrieve --recv-keys $i; done

2013-03-10 09:15:15

User: hank

Functions: gpg perl sort

Tags: bash GPG sed fetch

Up
Down

Fetch all GPG keys that are currently missing in your keyring

The original command doesn't work for me - does something weird with sed (-r) and xargs (-i) with underscores all over...

This one works in OSX Lion. I haven't tested it anywhere else, but if you have bash, gpg and perl, it should work.

curl http://www.w3.org/Protocols/rfc2616/rfc2616-sec10.html 2>/dev/null | grep '^<h3' | grep -v '^\d' | perl -pe 's/^.*(?<=(\d\d\d)) (.*)<\/h3>$/$1 : $2/' | grep -v h3

2013-03-06 01:49:08

User: klg

Functions: grep perl

Up
Down

Get a list of HTTP status codes

When you need a quick ref guide while troubleshooting Apache|NGINX error|access logs.

wget -q -O - http://listen.di.fm/public2 | sed 's/},{/\n/g' | perl -n -e '/"key":"([^"]*)".*"playlist":"([^"]*)"/; print "$1\n"; system("wget -q -O - $2 | grep -E '^File' | cut -d= -f2 > di_$1.m3u")'

2013-02-20 03:37:41

User: Zort

Functions: perl sed wget

Tags: playlist mpd digitally imported

Up
Down

MPD + Digitally Imported

1.- Enter into the playlist path.

2.- Run the command.

3.- Playlists created!

Comments (83) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate

FULLPATH=$(perl -e "use Cwd 'abs_path';print abs_path('$0');")

2013-02-01 20:09:34

User: follier

Functions: perl

Tags: perl cd dirname pwd variable cwd abs_path

Up
Down

Get full directory path of a script regardless of where it is run from

Since none of the systems I work on have readlink, this works cross-platform (everywhere has perl, right?).

Note: This will resolve links.

perl -MModule::Name\ 9999 -e 1

2013-01-15 22:51:39

User: three18ti

Functions: perl

Tags: bash perl zsh

-1

Up
Down

Find out if a module is installed in perl (and what version)

This attempts to load a Perl Module (-M flag) and use version 9999, since no module has a version this high, Perl exits either a) telling you the version of the module installed or b) tells you it can't find the module.

module_exists(){ perl -e 'use '$1 2>/dev/null; }

2013-01-11 14:47:07

User: putnamhill

Functions: perl

Tags: bash perl

-2

Up
Down

Find out if a module is installed in perl

This version uses a bash function and does not print the path to the module.

perl -MFile::Find=find -MFile::Spec::Functions -Tlwe '$found=1; find { wanted => sub { if (/$ARGV[0]\.pm\z/) { print canonpath $_; $found=0; } }, no_chdir => 1 }, @INC; exit $found;' Collectd/Plugins/Graphite

2013-01-11 11:01:46

User: keymon

Functions: exit find perl

-2

Up
Down

Find out if a module is installed in perl

Will check if the given module is installed in the @INC. It will print the path and return 0 if found, or 1 otherwise.

Based on script from SharpyWarpy in http://www.linuxquestions.org/questions/linux-general-1/how-to-list-all-installed-perl-modules-216603/

find . | xargs perl -p -i.bak -e 's/oldString/newString/;'

2012-11-28 17:11:18

User: RedFox

Functions: find perl xargs

Up
Down

Find and replace text within all files within a directory

find . = will set up your recursive search. You can narrow your search to certain file by adding -name "*.ext" or limit buy using the same but add prune like -name "*.ext" -prune

xargs =sets it up like a command line for each file find finds and will invoke the next command which is perl.

perl = invoke perl

-p sets up a while loop

-i in place and the .bak will create a backup file like filename.ext.bak

-e execute the following....

's/ / /;' your basic substitute and replace.

Comments (1) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate

perl -E 'say $_,`tput setb $_`," "x(`tput cols`-length("$_")),`tput sgr0` for 0..(`tput colors`-1)'

2012-11-22 01:55:51

User: MarxBro

Functions: perl

Tags: perl color tput

Up
Down

Show all available colors on your terminal.

Using perl and tput, show all the colors with numbers that your actual $TERM can handle.

If want to remove the numbers at beginning of new line, it should be something like this:

perl -E 'say `tput setb $_`," "x `tput cols`, `tput sgr0` for 0 .. (`tput colors` - 1)'

Comments (1) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate

perl -E 'say$_%15?$_%3?$_%5?$_:Buzz:Fizz:Fizzbuzz for 1..100'

2012-11-18 05:47:29

User: MarxBro

Functions: perl

Tags: perl fizzbuzz

Up
Down

FizzBuzz in Perl

Just another FizzBuzz in Perl.

< 1 2 3 4 > Last ›