Commands tagged 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.

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

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:

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

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

Functions

Hide

Credits

Site by David Winterbottom (user root).

Terminal - Commands tagged perl - 160 results

wget -q -O- http://www.gutenberg.org/dirs/etext96/cprfd10.txt | sed '1,419d' | tr "\n" " " | tr " " "\n" | perl -lpe 's/\W//g;$_=lc($_)' | grep "^[a-z]" | awk 'length > 1' | sort | uniq -c | awk '{print $2"\t"$1}'

2009-05-04 16:00:39

User: alperyilmaz

Functions: awk grep perl sed sort tr uniq wget

Tags: sort perl sed awk uniq wget tr

-4

Up
Down

count occurences of each word in novel David Copperfield

This command might not be useful for most of us, I just wanted to share it to show power of command line.

Download simple text version of novel David Copperfield from Poject Gutenberg and then generate a single column of words after which occurences of each word is counted by sort | uniq -c combination.

This command removes numbers and single characters from count. I'm sure you can write a shorter version.

for i in `screen -ls | perl -ne'if(/^\s+\d+\.([^\s]+)/){print $1, " "}'`; do gnome-terminal -e "screen -x $i"; done

2009-04-25 22:39:24

User: hank

Functions: perl

Tags: screen Linux perl

Up
Down

Connect to all running screen instances

There was another line that was dependent on having un-named screen sessions. This just wouldn't do. This one works no matter what the name is. A possible improvement would be removing the perl dependence, but that doesn't effect me.

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

ldapsearch -v -H ldap://<server> -x -D cn=<johndoe>,cn=<users>,dc=<ourdomain>,dc=<tld> -w<secret> -b ou=<lazystaff>,dc=<ourdomain>,dc=<tld> -s sub sAMAccountName=* '*' | perl -pne 's/(\d{11})\d{7}/"DATE-AD(".scalar(localtime($1-11644473600)).")"/e'

2009-04-22 00:57:34

User: flux

Functions: perl

Tags: Date manipulation perl ldap

Up
Down

decoding Active Directory date format

When Ldapsearch queries an Active directory server, all the dates are shown using a timestamp of 18 digits. This perl regexp decodes them in a more human friendly notation. 11644473600 corresponds to some microsoft epoch.

$ perl -pi -e 's/\r\n/\n/g' <finelame>

2009-04-10 22:22:31

User: unixmonkey4200

Functions: perl

Tags: perl dos2unix

Up
Down

dos2unix

Converts windows lined-style file to unix.

see http://en.wikipedia.org/wiki/Newline

Can be used to convert from linux2dos : just invert \r\n and \n.

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

perl -pi -e 's/foo/bar/g' $(grep -rl foo ./*)

2009-03-27 17:21:35

User: dopeman

Functions: grep perl

Tags: perl

-1

Up
Down

Change all instances of a word in all files in the current directory and it's sub-directories

This command will replace all instances of 'foo' with 'bar' in all files in the current working directory and any sub-directories.

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

du -hS / | perl -ne '(m/\d{3,}M\s+\S/ || m/G\s+\S/) && print'

2009-03-25 18:06:53

User: Alioth

Functions: du perl

Tags: Filesystem perl du

Up
Down

Find all directories on filesystem containing more than 99MB

Finds all directories containing more than 99MB of files, and prints them in human readable format. The directories sizes do not include their subdirectories, so it is very useful for finding any single directory with a lot of large files.

history | perl -lane '$lsize{$_} = scalar(@F); if($longest<$lsize{$_}) { $longest = $lsize{$_}; print "$_"; };' | tail -n1

2009-03-19 02:52:30

User: salparadise

Functions: perl tail

Tags: history perl

Up
Down

find the longest command in your history

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

function dpan () { PKG=`perl -e '$_=lc($ARGV[0]); s/::/-/g; print "lib$_-perl\n"' $1`; apt-get install $PKG; }

2009-03-12 15:39:38

User: dave0

Functions: install

Tags: Debian perl apt-get cpan

Up
Down

Install the Debian-packaged version of a Perl module

Running 'cpan Module::Name' will install that module from CPAN. This is a simple way of using a similar command to install a packaged Perl module from a Debian archive using apt-get.

$ grep -rl oldstring . |xargs sed -i -e 's/oldstring/newstring/'

2009-03-03 20:10:19

User: netfortius

Functions: grep sed

Tags: perl sed

Up
Down

recursive search and replace old with new string, inside files

recursively traverse the directory structure from . down, look for string "oldstring" in all files, and replace it with "newstring", wherever found

also:

grep -rl oldstring . |xargs perl -pi~ -e 's/oldstring/newstring'

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

:n,m w newfile.txt

2009-03-02 19:40:34

User: milmazz

Tags: vim perl

Up
Down

New files from parts of current buffer

On command mode in Vim you can save parts of the current buffer in another file.

* The 'n' value represents the first line of the new file.

* The 'm' value represents the last line of the new file.

* newfile.txt is the newfile.

The results are similar to this command in perl:

perl -ne 'print if n..m' in.sql > out.sql

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

‹ First < 5 6 7