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 - 335 results
perl -ne 's/\^.{1,7}?m//g;print'
2012-01-02 01:32:33
User: Tracerneo
Functions: perl
Tags: perl regex colors
-1
Up
Down
Remove color codes (special characters) with perl

Removes special characters (colors) in '^]]Xm' and '^]]X;Ym' format from file.

Use pipe ('input | perl [...]') or stream ('perl [...]

You can use 'cat -v infile' as 'input' to show special characters instead of interpreting (there is problem with non-ASCII chars, they are replaced by M-[char]).

Comments (0) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate
cvs -Q status | perl -ne 'print if m/^File.+Status: (?!Up-to-date)/ .. m/^=/;'
2011-12-07 00:33:49
User: dexterp
Functions: cvs perl
0
Up
Down
List only locally modified files with CVS

This will also print the path to file which is not included in the other examples.

Show sample output | Comments (0) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate
find . -iregex ".+\.\(c\|cpp\|h\)" | xargs -I{} perl -e "system(\"iconv -f SHIFT_JIS -t UTF-8 {} > temp; mv temp {} \");" ;
2011-12-02 18:03:27
User: inomas
Functions: find perl xargs
0
Up
Down
Converts Character Set of Files in a Folder
Comments (0) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate
lsmod | perl -e 'print "digraph \"lsmod\" {";<>;while(<>){@_=split/\s+/; print "\"$_[0]\" -> \"$_\"\n" for split/,/,$_[3]}print "}"' | dot -Tpng | display -
2011-11-27 14:02:35
User: bandie91
Functions: dot lsmod perl
Tags: perl lsmod dot modules
35
Up
Down
Draw kernel module dependancy graph.

parse `lsmod' output and pass to `dot' drawing utility then finally pass it to an image viewer

Comments (12) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate
perl -MO=Deparse filename.pl | perltidy > new.pl
2011-11-16 18:54:30
User: kimmel
Functions: perl
Tags: perl oneliner beautify
0
Up
Down
clean up syntax and de-obfuscate perl script

This will create a new file with proper code formatting and all comments removed.

Comments (0) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate
perl -le 'print scalar gmtime shift' 1234567890
2011-11-16 18:37:11
User: kimmel
Functions: perl
Tags: Date manipulation perl oneliner epoch
0
Up
Down
convert unixtime to human-readable

convert a unix timestamp to a human readable format.

Show sample output | Comments (0) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate
perl -MExtUtils::Installed -E 'say for ExtUtils::Installed->new()->modules()'
2011-11-16 17:26:47
User: kimmel
Functions: perl
Tags: perl oneliner
0
Up
Down
Print a list of installed Perl modules

Lists all the modules that were installed the "proper way". It also uses Perl 5.10(or higher)'s say command for less typing.

Show sample output | Comments (0) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate
for f in $(ls -A ./dir); do echo -n $f && diff original.txt ./dir/$f | wc -l ; done | perl -ne 'my $h={}; while (<>) { chomp; if (/^(\S+?)\s*(\d+?)$/){$h->{$1}=$2;} }; for my $k (sort { $h->{$a} $h->{$b} } keys %$h ){ print "$k\t$h->{$k}\n"}'
2011-11-15 06:02:12
User: 1vq9
Functions: diff echo ls perl sort wc
0
Up
Down
display list of files in a directory sorted by amount of lines different with original.txt.
Comments (0) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate
perl -ane 'END{printf(" %d %d %d\n", $x, $y, $z)} $x+=1; $y+=@F; $z+=length' file.txt
2011-10-24 06:14:02
User: kev
Functions: perl
Tags: perl
1
Up
Down
wc in perl
Comments (0) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate
perl -C -e 'print for sort { length $a <=> length $b or $a cmp $b } <>' < /usr/share/dict/words | tail
2011-10-20 01:43:25
User: dbr
Functions: cmp perl sort
3
Up
Down
sort lines by length

making it "sound" more "natural" language like -- additionally sorting the longest words alphabetically:

this approach is using:

* to get at all lines of input

* post-"for" structure

* short-circuit-or in sort: if the lengths are the same, then sort alphabetically otherwise don't even evaluate the right hand side of the or

* -C sets all input and ouput channels to utf8

Comments (3) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate
svn log | perl -pe 's/\n//g => s/^-.*/\n/g'
2011-10-20 01:20:52
User: dbr
Functions: perl
Tags: svn perl svn log
0
Up
Down
one-line log format for svn

dirrrty: use -p to chomp automatically, substitute all newlines away and then replace the "---" by a newline ? bingo!

s/// => s/// is just a cooler way to write s///, s/// which is just the small brother of s///; s/// (comma is an operator!)

have fun!

Comments (0) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate
svn log | perl -l40pe 's/^-+/\n/'
2011-10-14 16:02:22
User: bazzargh
Functions: perl
Tags: svn perl svn log
1
Up
Down
one-line log format for svn

the output of svn log is annoying to grep, since it spreads the useful info over multiple lines. This compacts the output down to one line so eg you can grep for a comment and see the rev, date & committer straight away.

Updated: MUCH shorter, easier to remember. Now it just replaces newlines with spaces, except on '---' lines.

Show sample output | Comments (0) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate
perl -MAcme::POE::Tree -e 'Acme::POE::Tree->new()->run()'
2011-10-13 10:33:31
User: anhpht
Functions: perl
0
Up
Down
Create a Christmas tree with perl

Require: perl -MCPAN -e 'install Acme::POE::Tree'

From: http://www.catonmat.net/blog/christmas-tree-in-the-shell/

Comments (0) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate
cat table-mv.txt | perl -pe 's{([^;]+);([^;]+)}{tbl$1/tbl$2}' | perl -pe 's{(\S+)}{perl -i -pe #s/$1/g# xxx.sql}' | tr "#" "\'" | bash
2011-10-05 15:55:34
User: hute37
Functions: cat perl tr
0
Up
Down
Multiple Perl Search/Replace from a file

with a semicolon text file map, apply multiple replace to a single file

Show sample output | Comments (1) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate
perl -i -pe 'BEGIN{undef $/;} s/START.*?STOP/replace_string/smg' file_to_change
2011-10-05 11:22:36
User: hute37
Functions: perl
Tags: perl
1
Up
Down
Multiline Search/Replace with Perl

from http://stackoverflow.com/questions/1030787/multiline-search-replace-with-perl

added greedy trick in wildcard match (.*?) from

http://www.troubleshooters.com/codecorn/littperl/perlreg.htm#Greedy

Show sample output | Comments (0) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate
perl -MPOSIX -e 'print strerror($ARGV[0])."\n";' ERRNO
2011-09-21 18:16:19
User: sethjust
Functions: perl
Tags: strerror errno
1
Up
Down
Lookup errno defintions

Calls the POSIX strerror() function to look up the meaning of integer ERRNOs set by some functions.

Comments (2) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate
tail -f LOGFILE | perl -ne '`say "$_"`;'
2011-09-16 05:33:22
User: tamouse
Functions: perl tail
Tags: perl tail say
0
Up
Down
speak a chat log file while it's running

say only processes a complete file, at eof, so following a file isn't possible. Quick and dirty perl oneliner to feed each line from the tail -f to say. Yes, expensive to lauch a new process each line.

This little ditty was prompted by a discussion on how horrible it is to use VoiceOver on ncurses programs such as irssi.

Comments (2) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate
perl -MTerm::ReadLine -wde'print "TheAnswer=42\n"'
2011-09-15 09:44:38
User: e7__7dal
Functions: perl
0
Up
Down
oneline REPL for perl with warnings and readline support
Comments (0) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate
sudo find / -type f | perl -MFile::Basename -ne '$counts{dirname($_)}++; END { foreach $d (sort keys %counts) {printf("%d\t%s\n",$counts{$d},$d);} }'|sort -rn | tee /tmp/sortedfilecount.out | head
2011-09-14 19:41:19
User: tamouse
Functions: find perl sort sudo tee
Tags: tee sort perl find HEAD
0
Up
Down
Find directories with lots of files in them

Find which directories on your system contain a lot of files.

Edit: much shorter and betterer with -n switch.

Show sample output | Comments (0) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate
cd /path/to/pmwiki/wiki.d;/bin/ls -1 | perl -ne 'my ($group,$name)=split(/\./);$counts{$group}++;' -e 'END { foreach $group (sort keys %counts) {printf("%d\t%s\n",$counts{$group},$group);} }'|sort -rn
2011-09-14 19:33:39
User: tamouse
Functions: cd perl sort
Tags: sort perl pmwiki
-2
Up
Down
Group page count in pmwiki data base

PmWiki stores wiki pages as Group.Name. Simply split the directory listing and count frequency of group occurances.

Show sample output | Comments (0) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate
/usr/sbin/dmidecode | perl -lne 'print $1 if /Current\s+Speed:\s+(\d+\s+MHz)/'
2011-09-14 17:32:22
User: dbbolton
Functions: perl
Tags: ram
0
Up
Down
See your current RAM frequency
Comments (0) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate
route -n | perl -ne '$ANY="0.0.0.0"; /^$ANY/ and split /\s+/ and print "Gateway to the World: ",($_[1]!=$ANY)?$_[1]:(`ip address show $_[$#_]`=~/peer ([0-9\.]+)/ and $1),", via $_[$#_].\n"'
2011-09-13 08:05:58
User: bandie91
Functions: perl route split
Tags: Network perl IP router gateway
2
Up
Down
Find default gateway (proper at ppp connections too)
Comments (0) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate
perl -ne '$. == 4 && print && exit'
2011-09-05 21:52:16
User: bashrc
Functions: perl
Tags: Text Processing sed
-1
Up
Down
Print just line 4 from a textfile

Perl version - just for completeness sake ;)

Comments (0) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate
cat file.csv | perl -pe 'if($. == 1) {@h = split(/;/); $i = 1 ; map { $_ = $i; $i++ } @h; print join(" ;", @h) , "\n"} ; s/(^|;);/$1 ;/g' | column -ts\; | less -S
2011-08-31 12:52:02
User: bashrc
Functions: cat column less perl
Tags: column
0
Up
Down
format txt as table not joining empty columns adding header with column numbers

This version now adds a header with consecutive numbering.

Show sample output | Comments (1) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate
perl -F'\s+' -anE 'push @w,$F[1];END{$r.=splice @w,rand @w,1 for(1..4);say $r}' diceware.wordlist.asc
2011-08-24 18:50:16
User: zedlopez
Functions: perl
Tags: xkcd
0
Up
Down
Generate an XKCD #936 style 4 word password

Before running, do:

curl -sO http://world.std.com/%7Ereinhold/diceware.wordlist.asc

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