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.

If you have a new feature suggestion or find a bug, please get in touch via http://commandlinefu.uservoice.com/

Get involved!

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

OpenID
or
Sign in Register

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

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:

Hide

News

2011-03-12 - Confoo 2011 presentation
Slides are available from the commandlinefu presentation at Confoo 2011: http://presentations.codeinthehole.com/confoo2011/
2011-01-04 - Moderation now required for new commands
To try and put and end to the spamming, new commands require moderation before they will appear on the site.
2010-12-27 - Apologies for not banning the trolls sooner
Have been away from the interwebs over Christmas. Will be more vigilant henceforth.
2010-09-24 - OAuth and pagination problems fixed
Apologies for the delay in getting Twitter's OAuth supported. Annoying pagination gremlin also fixed.
Hide

Tags

Hide

Functions

Hide

Credits

Site by David Winterbottom (user root).

Commands using perl from sorted by
Terminal - Commands using perl - 328 results
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.

Show sample output | Comments (0) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate
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.

Show sample output | Comments (0) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate
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/

Show sample output | Comments (0) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate
find . | xargs perl -p -i.bak -e 's/oldString/newString/;'
2012-11-28 17:11:18
User: RedFox
Functions: find perl xargs
0
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 (0) | 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
3
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 (0) | 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
3
Up
Down
FizzBuzz in Perl

Just another FizzBuzz in Perl.

Show sample output | Comments (0) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate
perl -e 'print "$_=$ENV{$_}\n" for keys %ENV'
2012-11-12 13:14:28
User: sgikas
Functions: perl
Tags: perl environment
-1
Up
Down
Print environment information.
Show sample output | Comments (0) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate
p=1 ; lynx -source http://www.lipsum.com/feed/xml?amount=${p} | grep '<lipsum>' -A$(((p-1))) | perl -p -i -e 's/\n/\n\n/g' | sed -n '/<lipsum>/,/<\/lipsum>/p' | sed -e 's/<[^>]*>//g'
2012-10-24 14:11:52
User: nublaii
Functions: grep perl sed
0
Up
Down
Get Lorum Ipsum random text from lorumipsum.com

This fixes the extra lines you get when you request only 1 paragraph using a little bit of grep. Just set p to the number of paragraphs you want.

Show sample output | Comments (0) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate
history | perl -pe "~s/ *[0-9]+ *//"
2012-10-23 22:14:00
User: tomrag
Functions: perl
0
Up
Down
display bash history without line numbers
Comments (0) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate
perl -pi -e 's/:([\w\d_]+)(\s*)=>/\1:/g' **/*.rb
2012-10-16 16:54:40
User: asux
Functions: perl
0
Up
Down
Convert Ruby 1.8 to 1.9 hash syntax

Stolen from http://robots.thoughtbot.com/post/17450269990/convert-ruby-1-8-to-1-9-hash-syntax

Comments (0) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate
# strace ... | perl -lne '@F=split(/\\/, $_);for(@F){push @ddd, sprintf("%x", oct("0" . $_))}END{shift @ddd; print pack("H*", join("", @ddd));}'
2012-10-16 14:24:13
User: zwxajh
Functions: perl strace
0
Up
Down
change binary string readable
Comments (0) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate
perl -e 'print map { $_ .= "$ENV{$_}\n" } (keys %ENV)'
2012-10-13 23:38:28
User: MarxBro
Functions: perl
Tags: perl environment
3
Up
Down
Print environment information.

Print environment (system) information using Perl.

Comments (0) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate
perl -MHTML::Entities -ne 'print encode_entities($_)' /tmp/subor.txt
2012-10-11 08:31:14
User: brx75x
Functions: perl
0
Up
Down
encode HTML entities

Encode HTML entities supporting UTF-8 input and output

Comments (0) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate
perl -e '$|++; while (1) { print " " x (rand(35) + 1), int(rand(2)) }'
2012-09-27 22:46:39
User: MarxBro
Functions: perl
Tags: random Matrix
10
Up
Down
Binary digits Matrix effect

Silly Perl variant.

Comments (5) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate
cat log | perl -ne 'use POSIX; s/([\d.]+)/strftime "%y-%m-%d %H:%M:%S", localtime $1/e,print if /./'
2012-09-19 06:38:31
User: bs
Functions: cat perl
Tags: time unixtime human-readable timet
0
Up
Down
convert unixtime to human-readable

works where perl works, because the awk version is gnu awk only.

Show sample output | Comments (0) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate
perl -e '$s="$s\xFF" while length($s)<512; print $s while 1' | dd of=/dev/sdX
2012-08-20 05:33:28
User: stonefoz
Functions: dd perl
0
Up
Down
Fill a hard drive with ones - like zero-fill, but the opposite :)
Comments (0) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate
ping g.co|perl -ne'$|=/e=(\S+)/||next;(push@_,$1)>30&&shift@_;print"\r",(map{"\xe2\x96".chr(128+7*$_/(sort{$b<=>$a}@_)[0])." "}@_),"$1ms"'
2012-07-06 22:42:06
User: bartgrantham
Functions: perl ping
Tags: perl ping graph sparkline
1
Up
Down
Text graphing ping output filter

Nasty perl one-liner that provides a sparkline of ping times. If you want a different history than the last 30, just put that value in. It (ab)uses unicode to draw the bars, inspired by https://github.com/joemiller/spark-ping . It's not the most bug-free piece of code, but what it lacks in robustness it makes up for in capability. :)

If anyone has any ideas on how to make it more compact or better, I'd love to hear them.

I included a ping to google in the command just as an example (and burned up 10 chars doing it!). You should use it with: $ ping example.com | $SPARKLINE_PING_COMMAND

Show sample output | Comments (0) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate
perl -e 'printf "00:16:3E:%02X:%02X:%02X\n", rand 0xFF, rand 0xFF, rand 0xFF'
2012-07-02 09:59:43
User: Gular
Functions: perl
Tags: perl oneliner random generate mac address
1
Up
Down
Perl One Liner to Generate a Random IP Address
Comments (0) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate
cat ~/.bash_history | perl -lane 'if($F[0] eq "sudo"){$hash{$F[1]}++}else{$hash{$F[0]}++};$all++;END {@top = map {[$_, $hash{$_}]} sort {$hash{$b}<=>$hash{$a}} keys %hash;printf("%10s%10d%10.2f%%\n", $_->[0],$_->[1],$_->[1]/$all*100) for @top[0..9]}'
2012-07-02 09:38:06
User: vinian
Functions: cat perl sort
0
Up
Down
top ten shell command in bash shell
Comments (0) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate
perl -p -e 's/\\n/\n/g'
2012-06-06 15:37:34
User: icorbett
Functions: perl
0
Up
Down
You can't do that on sed

This also works with -i, just like one might do with sed.

Comments (0) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate
cat /var/log/nginx/access.log | grep -oe '^[0-9.]\+' | perl -ne 'system("geoiplookup $_")' | grep -v found | grep -oe ', [A-Za-z ]\+$' | sort | uniq -c | sort -n
2012-05-08 13:28:25
User: theist
Functions: cat grep perl sort uniq
Tags: sort uniq geoip
-1
Up
Down
Per country GET report, based on access log. Easy to transform to unique IP

Per country GET report, based on access log. Easy to transform to unique IP

Show sample output | Comments (0) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate
find . -printf '%p\n' | perl -ne 'if( m/(.*)\/(.*)/ ) { $p = $1; $f = $2; $p =~ s/[^\/]/ /g; $p =~ s/\//|/g; print "$p/$f\n"; } elsif( m/(.*)/ ) { print "$1\n"; } else { print "error interpreting: \"$_\"\n"; }'
2012-04-24 19:51:00
User: cbetti
Functions: find perl
0
Up
Down
Display directory hierarchy listing as a tree

Provides a much cleaner, easier to read output than the closest alternative, ls -1R. This alternative makes it easier to differentiate directories from files: find . -printf '%y %p\n' | perl -ne 'if( m/(\w) (.*)\/(.*)/ ) { $t = $1; $p = $2; $f = $3; $t =~ s/[^d]/ /; $p =~ s/[^\/]/ /g; $p =~ s/\//|/g; print "$t $p/$f\n"; } elsif( m/(\w) (.*)/ ) { print "$1 $2\n"; } else { print "error interpreting: \"$_\"\n"; }'

Show sample output | Comments (0) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate
ldapsearch -xLLL -b "cn=schema" "(objectclass=*)" \ \* objectclasses attributetypes | perl -p0e 's/\n //g'
2012-04-04 13:31:31
User: ioggstream
Functions: perl
-2
Up
Down
Dump 389ds schema

Dump 389ds schema, putting "\n " on one line with perl.

You have to specify the objectclasses, attributetypes operational attributes too, otherwise they won't be dumped!

Comments (1) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate
cat z.log | perl -ne 'BEGIN{ print "DATE;RATE\n"; } /\[(\d.*)\]/ && print $1; /CURRENT RATE: +(\S+) msg.*/ && print ";" .$1 . "\n"; '
2012-04-03 13:52:20
User: hute37
Functions: cat perl
1
Up
Down
multiline data block parse and CSV data extraction with perl

extract data in multiline blocks of data with perl pattern matching loop

Show sample output | Comments (0) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate
perl -e 'printf "%04o\n", (stat shift)[2] & 0777;' file
2012-03-22 15:05:04
User: zlemini
Functions: perl stat
1
Up
Down
Perl oneliner to print access rights in octal format

This prints file access rights in octal - useful when "stat" is unavailable.

Show sample output | Comments (3) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate