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 tagged perl from sorted by
Terminal - Commands tagged perl - 167 results
perl -ne 'print if !$a{$_}++'
2011-02-17 02:18:44
User: doherty
Functions: perl
Tags: perl uniq text line unique
3
Up
Down
uniq without pre-sorting

Reads stdin, and outputs each line only once - without sorting ahead of time. This does use more memory than your system's sort utility.

Comments (2) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate
(echo foobar; echo farboo) | perl -E 'say[sort<>=~/./g]~~[sort<>=~/./g]?"anagram":"not anagram"'
2011-02-17 02:15:46
User: doherty
Functions: echo perl
Tags: sort perl regex stdin anagram
2
Up
Down
Are the two lines anagrams?

This works by reading in two lines of input, turning each into a list of one-character matches that are sorted and compared.

Comments (0) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate
perl -MText::Highlight -E '$h=Text::Highlight->new(ansi=>1); my $text=do{local $/; open my $fh, "<", $ARGV[0]; <$fh>}; say $h->highlight("Perl", $text);' path/to/perl-file.pl
2011-01-31 05:52:43
User: doherty
Functions: perl
Tags: perl ansi syntax highlight
1
Up
Down
Syntax Highlight your Perl code

This uses Text::Highlight to output the specified Perl file with syntax highlighting. A better alternative is my App::perlhl - find it on the CPAN: http://p3rl.org/App::perlhl

Comments (1) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate
grep -i "$*" /usr/lib/perl5/Unicode/CharName.pm | while read a b; do /usr/bin/printf "\u$a\tU+%s\t%s\n" "$b"; done
2011-01-04 11:30:16
User: ioggstream
Functions: grep read
Tags: bash perl grep unicode code points GNU coreutils
1
Up
Down
Look up a unicode character by name

No need for further filedes or substitution for splitting. Simply use read a b

Comments (2) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate
egrep -i "^[0-9a-f]{4,} .*$*" $(locate CharName.pm) | while read h d; do /usr/bin/printf "\U$(printf "%08x" 0x$h)\tU+%s\t%s\n" $h "$d"; done
2010-12-31 16:47:59
User: hackerb9
Functions: egrep locate read
Tags: bash perl grep unicode code points GNU coreutils
12
Up
Down
Look up a unicode character by name

[Update! Thanks to a tip from ioggstream, I've fixed both of the bugs mentioned below.]

You, yes, 𝙔𝙊𝙐, can be the terror of the Internet! Why use normal, boring bullet points in your text, when you could use a ROTATED HEAVY BLACK HEART BULLET (❥)!? (Which would also be an awesome band name, by the way).



This script makes it easy to find unusual characters from the command line. You can then cut and paste them or, if you're using a GTK application, type Control+Shift+U followed by the code point number (e.g., 2765) and then a SPACE.



USAGE: Put this script in a file (I called mine "ugrep") and make it executable. Run it from the command line like so,



ugrep heart



The output will look like this,



☙ U+2619 REVERSED ROTATED FLORAL HEART BULLET

♡ U+2661 WHITE HEART SUIT

♥ U+2665 BLACK HEART SUIT

❣ U+2763 HEAVY HEART EXCLAMATION MARK ORNAMENT

❤ U+2764 HEAVY BLACK HEART

❥ U+2765 ROTATED HEAVY BLACK HEART BULLET

❦ U+2766 FLORAL HEART

❧ U+2767 ROTATED FLORAL HEART BULLET

⺖ U+2E96 CJK RADICAL HEART ONE

⺗ U+2E97 CJK RADICAL HEART TWO

⼼ U+2F3C KANGXI RADICAL HEART



You can, of course, use regular expressions. For example, if you are looking for the "pi" symbol, you could do this:



ugrep '\bpi\b'



REQUIREMENTS: Although this is written in Bash, it assumes you have Perl installed because it greps through the Perl Unicode character name module (/usr/lib/perl5/Unicode/CharName.pm). Note that it would not have made more sense to write this in Perl, since the CharName.pm module doesn't actually include a subroutine for looking up a character based on the description. (Weird.)



BUGS: In order to fit this script in the commandlinefu limits, a couple bugs were added. ① Astral characters beyond the BMP (basic multilingual plane) are not displayed correctly, but see below. ② Perl code from the perl module being grepped is sometimes extraneously matched.



MISFEATURES: Bash's printf cannot, given a Unicode codepoint, print the resulting character to the terminal. GNU's coreutils printf (usually "/usr/bin/printf") can do so, but it is brokenly pedantic about how many hexadecimal digits follow the escape sequence and will actually die with an error if you give the wrong number. This is especially annoying since Unicode code points are usually variable length with implied leading zeros. The CharNames.pm file represents BMP characters as 4 hexits, but astral characters as 5. In the actual version of this script that I use, I've kludged around this misfeature by zero-padding to 8 hexits like so,



/usr/bin/printf "\U$(printf "%08x" 0x$hex)"



TIP 1: The author recommends "xsel" for command line cut-and-paste. For example,



ugrep biohazard | xsel



TIP 2: In Emacs, instead of running this command in a subshell, you can type Unicode code points directly by pressing Control-Q first, but you'll likely want to change the default input from octal to hexadecimal. (setq read-quoted-char-radix 16).



TIP 3: Of course, if you're using X, and you want to type one of the more common unusual characters, it's easiest of all to do it with your Compose (aka Multi) key. For example, hitting [Compose] <3 types ♥.

Show sample output | Comments (5) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate
cat /dev/urandom | hexdump -C | highlight ca fe 3d 42 e1 b3 ae f8 | perl -MTime::HiRes -pne "Time::HiRes::usleep(rand()*1000000)"
2010-12-29 21:26:18
User: doherty
Functions: cat hexdump perl
Tags: bash perl hexdump random highlight
1
Up
Down
shell equivalent of a boss button

Nobody wants the boss to notice when you're slacking off. This will fill your shell with random data, parts of it highlighted. Note that 'highlight' is the Perl module App::highlight, not "a universal sourcecode to formatted text converter." You'll also need Term::ANSIColor.

Show sample output | Comments (3) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate
pcregrep -r --exclude_dir='.svn' --include='.*jsp$' -A 2 -B 2 --color "pHtmlHome" .
2010-12-09 15:26:07
User: hute37
Tags: perl grep
0
Up
Down
Recursive source regexp search with pcregrep

range context (-A -B) search, with exclusion of vcs directories

Show sample output | Comments (0) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate
perl -e 'for(;;){@d=split("",`date +%H%M%S`);print"\r";for(0..5){printf"%.4b ",$d[$_]}sleep 1}'
2010-12-04 00:05:54
User: putnamhill
Functions: perl
Tags: perl binary clock
9
Up
Down
Binary clock

Fun idea! This one adds seconds and keeps running on the same line. Perl's probably cheating though. :)

Comments (0) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate
perl -pe 'eof()||s/\n/<SOMETEXT>/g' file.txt
2010-12-02 01:19:27
User: eightmillion
Functions: perl
Tags: Text Processing perl
3
Up
Down
Join lines

This command turns a multi-line file into a single line joined with <SOMETEXT>. To skip blank lines, use:

perl -pe '(eof()||s/^\s*$//)||s/\n/<SOMETEXT>/g' file.txt
Show sample output | Comments (2) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate
find . -type f -print0 | xargs -0 perl -pi.save -e 'tr/A-Z/a-z/'
2010-11-25 13:55:34
User: depesz
Functions: find perl xargs
Tags: perl find regex
1
Up
Down
recursive transform all contents of files to lowercase

In this way it doesn't have problems with filenames with spaces.

Comments (0) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate
perl -e "tr/[A-Z]/[a-z]/;" -pi.save $(find . -type f)
2010-11-25 12:48:39
User: miccaman
Functions: find perl
Tags: perl find regex
0
Up
Down
recursive transform all contents of files to lowercase
Comments (0) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate
pcharc(){ perl -e 'for (0..255) {$_ = chr($_); print if /['$1']/}' | cat -v; echo;}
2010-11-13 00:32:41
User: putnamhill
Functions: cat perl
Tags: perl
1
Up
Down
print character classes

Today I needed a way to print various character classes to use as input for a program I was writing. Also a nice way to visualize character classes.

Show sample output | Comments (1) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate
pcregrep --color -M -N CRLF "owa_pattern\.\w+\W*\([^\)]*\)" source.sql
2010-11-11 12:53:40
User: hute37
Tags: perl grep regex
0
Up
Down
Source multiline grep with pcregrep

grep multiline in Perl regexp syntax with pcregrep

Show sample output | Comments (2) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate
git status | perl -F'\s' -nale 'BEGIN { $a = 0 }; $a = 1 if $_ =~ /changed but not updated/i; print $F[-1] if ( $a && -f $F[-1] )'
2010-10-15 07:58:14
User: coffeeaddict_nl
Functions: perl
Tags: status git perl
0
Up
Down
Show the changed files in your GIT repo

Parse the output of git status.

Once the line '# Changed but not updated:' has passed print every last part of the line if it exists on disk.

Comments (1) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate
diff <(perl -wpl -e '$_ =~ s/^\s+|\s+$//g ;' file1) <(perl -wpl -e '$_ =~ s/^\s+|\s+$//g ;' file2)
2010-10-06 19:14:42
User: jemptymethod
Functions: diff perl
Tags: bash diff perl
2
Up
Down
diff files while disregarding indentation and trailing white space

**NOTE** Tekhne's alternative is much more succinct and its output conforms to the files actual contents rather than with white space removed

My command on the other hand uses bash process substitution (and "Minimal" Perl), instead of files, to first remove leading and trailing white space from lines, before diff'ing the streams. Very useful when differences in indentation, such as in programming source code files, may be irrelevant

Show sample output | Comments (1) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate
find . -iname '*.jpg' -type f -print0 |perl -0 -ne '$a+=-s $_;END{print "$a\n"}'
2010-09-12 13:14:12
User: unixmonkey10455
Functions: find perl
Tags: size perl find du filesize
1
Up
Down
Summarize size of all files of given type in all subdirectories (in bytes)

This deals nicely with filenames containing special characters and can deal with more files than can fit on a commandline. It also avoids spawning du.

Show sample output | Comments (0) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate
perl -le 'chomp($w=`which $ARGV[0]`);$_=`file $w`;while(/link\b/){chomp($_=(split/`/,$_)[1]);chop$_;$w.=" -> $_";$_=`file $_`;}print "\n$w";' COMMAND_NAME
2010-07-30 19:26:35
User: dbbolton
Functions: perl
Tags: which perl binary file PATH command
0
Up
Down
Show full path followed by a command

This will show you any links that a command follows (unlike 'file -L'), as well as the ultimate binary or script.

Put the name of the command at the very end; this will be passed to perl as the first argument.

For obvious reasons, this doesn't work with aliases or functions.

Show sample output | Comments (2) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate
echo "text" | hd
2010-07-20 15:40:52
User: Vilemirth
Functions: echo
Tags: perl hex ascii
1
Up
Down
Convert ascii string to hex
Comments (0) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate
echo "text" | od -t x1
2010-07-14 14:53:25
User: max_allan
Functions: echo od
Tags: perl hex ascii
0
Up
Down
Convert ascii string to hex

Just use "od" and it can also dump in decimal or octal.

(use -t x1 and not just -x or it confuses the byte order)

There is a load of other formatting options, I'm not sure if you can turn off the address at the start of the line.

Show sample output | Comments (0) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate
echo -n 'text' | perl -pe 's/(.)/sprintf("\\x%x", ord($1))/eg'
2010-07-14 12:20:42
User: putnamhill
Functions: echo perl
Tags: perl hex ascii
1
Up
Down
Convert ascii string to hex

Here's a version that uses perl. If you'd like a trailing newline:

perl -pe 's/(.)/sprintf("\\x%x", ord($1))/eg; END {print "\n"}'
Comments (0) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate
perl -e 'print "\x41\x72\x74\x20\x6f\x66\x20\x68\x61\x63\x6b\x69\x6e\x67\x2e\x2e\x2e\n" x 100'
2010-07-11 16:32:00
User: gunslinger_
Functions: perl
Tags: perl shellcode
-15
Up
Down
Art of hacking on perl

Print "Art of hacking..." 100 times by perl

or you can this tools : http://packetstormsecurity.org/shellcode/shellcodeencdec.py.txt

Show sample output | Comments (0) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate
cat file_with_tabs.txt | perl -pe 's/\t/ /g'
2010-07-11 13:01:22
User: nikc
Functions: cat perl
Tags: cat perl replace
-3
Up
Down
Replace tabs with spaces in file

Replaces tabs in output with spaces. Uses perl since sed seems to work differently across platforms.

Comments (4) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate
perl -MNet::Twitter -e '$nt = Net::Twitter->new(traits => [qw/API::REST/], username => "YOUR USERNAME", password => "YOUR PASSWORD"); $ud = $nt->update("YOUR TWEET");'
2010-06-16 19:46:05
User: dbbolton
Functions: perl
Tags: net twitter perl update tweet
2
Up
Down
Update twitter with Perl

Requires Net::Twitter. Just replace the double quoted strings with the appropriate info.

Comments (1) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate
git log -p -z | perl -ln0e 'print if /[+-].*searchedstring/'
2010-06-13 07:41:22
User: takeshin
Functions: perl
Tags: git perl log search
1
Up
Down
See all the commits for which searchstring appear in the git diff
Comments (0) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate
aptitude purge linux-image | grep ^i | grep -v $(uname -r)
2010-06-11 22:20:42
User: lgallardo
Functions: grep uname
Tags: Debian Linux perl kernel aptitude
-4
Up
Down
Remove all unused kernels with apt-get
Comments (0) | Add to favourites | Report as malicious | Submit alternative | Report as a duplicate