Commands using perl sorted by votes

Commands using perl (369)

sorted by

let the cow suggest some commit messages for you

I used curl instead of lynx. Show Sample Output
This is sample output - yours may be different.
```
 _______________________
< omg what have I done? >
 -----------------------
        \   ^__^
         \  (oo)\_______
            (__)\       )\/\
                ||----w |
                ||     ||
```
0

while true; do curl -s http://whatthecommit.com | perl -p0e '($_)=m{<p>(.+?)</p>}s' | cowsay; sleep 2; done

seungwon · 2011-01-30 02:17:41 3
Convert Unix newlines to DOS newlines

Let -p do it's voodoo and do absolutely nothing but set the output record separator :-)
This is sample output - yours may be different.
0

perl -ple 'BEGIN { $\ = "\r\n" }'

coffeeaddict_nl · 2011-03-01 09:45:37 3
Change your exported xml love list from last.fm, into Song: songname Artist: artistname

Change your exported xml love list from last.fm, into Song: songname Artist: artistname Show Sample Output
This is sample output - yours may be different.
```
Song: Twenty-Three Artist: MC Lars
Song: Listen Close Artist: MC Frontalot
Song: In Arrears Artist: MC Frontalot
Song: Why So Nerdcore Artist: MC GoblinMajick
```
0

cat username_lovedtracks.xspf |perl -pe "s/.*<title>(.*)<\/title><creator>(.*)<\/creator>.*/Song: \1 Artist: \2/gi"> titles

dustylc · 2011-04-07 09:02:11 3
find multiple files in directory and perform search and replace on each of them
This is sample output - yours may be different.
0

files=$(find /dir/file -name *.txt -exec grep -l a {} \;) && perl -p -i -e 's/old/new/g;' $files

highpointe · 2011-04-15 20:32:43 3
find and delete empty directories recursively
This is sample output - yours may be different.
0

perl -MFile::Find -e"finddepth(sub{rmdir},'.')"

igorfu · 2011-05-23 08:45:59 4
Find C/C++ source code comments

more idiomatic version of the same, using the flip-flop-operator; also printing lines with '//'-style comments
This is sample output - yours may be different.
0

perl -ne 'print if m{\Q/*\E}x .. m{\Q*/\E}x or m{\/\/}x' *.c

dbr · 2011-07-12 04:41:49 89
Find all e-mails older than 7 days in the queue and delete them

Find all files in /var/spool/mqueue older than 7 days, pass to perl to efficiently delete them (faster than xargs or -exec when you've got millions or hundreds of thousands to delete). Naturally the type, directory, and file age vars can be adjusted to meet your specific needs.
This is sample output - yours may be different.
0

find /var/spool/mqueue -type f -mtime +7 | perl -lne unlink

mengesb · 2011-08-19 15:22:02 4
Print repeating CSV values on new lines - normalize repeating fields

Lets say you have a file with the following layout: LINUX,DIR,FILE1,FILE2,FILE3 You want the file to look like this: LINUX,DIR,FILE1 LINUX,DIR,FILE2 LINUX,DIR,FILE3 This perl command does it for you. Show Sample Output
This is sample output - yours may be different.
```
LINUX,DIR,FILE1
LINUX,DIR,FILE2
LINUX,DIR,FILE3
```
0

echo "LINUX,DIR,FILE1,FILE2,FILE3" | perl -aF, -nle 'my ($fld1, $fld2, @fields) = @F; while(@fields) { print join ",", $fld1, $fld2, splice(@fields, 0, 1) }'

mindrape · 2011-08-22 18:27:12 4
Generate an XKCD #936 style 4 word password

Before running, do: curl -sO http://world.std.com/%7Ereinhold/diceware.wordlist.asc Show Sample Output
This is sample output - yours may be different.
```
snapcodonmarshstink
```
0

perl -F'\s+' -anE 'push @w,$F[1];END{$r.=splice @w,rand @w,1 for(1..4);say $r}' diceware.wordlist.asc

zedlopez · 2011-08-24 18:50:16 3
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
This is sample output - yours may be different.
```
cat file.csv
column_a;column_b;column_c
a;b;c
;b;c
a;b;

cat file.csv | perl -pe 'if($. == 1) {@h = split(/;/); $i = 1 ; map { $_ = $i; $i++ } @h; print join(" ;", @h) , "\n"} ; s/(^|;);/$1 ;/g' | column -ts\;
1         2         3
column_a  column_b  column_c
a         b         c
          b         c
a         b
```
0

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

bashrc · 2011-08-31 12:52:02 4
See your current RAM frequency
This is sample output - yours may be different.
0

/usr/sbin/dmidecode | perl -lne 'print $1 if /Current\s+Speed:\s+(\d+\s+MHz)/'

dbbolton · 2011-09-14 17:32:22 3
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
This is sample output - yours may be different.
```
2958	/var/www/vhosts/example.com/dir1
2259	/usr/share/man/man3
1283	/var/www/vhosts/example.com/dir2
1124	/usr/share/man/man3p
1091	/usr/share/man/man1
861	/var/www/vhosts/example.com/dir3
763	/usr/bin
717	/var/www/vhosts/example.com/dir4
```
0

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

tamouse · 2011-09-14 19:41:19 3
oneline REPL for perl with warnings and readline support
This is sample output - yours may be different.
0

perl -MTerm::ReadLine -wde'print "TheAnswer=42\n"'

e7__7dal · 2011-09-15 09:44:38 3
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.
This is sample output - yours may be different.
0

tail -f LOGFILE | perl -ne '`say "$_"`;'

tamouse · 2011-09-16 05:33:22 5
Multiple Perl Search/Replace from a file

with a semicolon text file map, apply multiple replace to a single file Show Sample Output
This is sample output - yours may be different.
```
$ cat table-mv.txt
WCFAppRoles;AsAppRoles
WCFDBError;AsDBErrors
WCFFunctions;AsFunctions


$ cat table-mv.txt | perl -pe 's{([^;]+);([^;]+)}{tbl$1/tbl$2}' | perl -pe 's{(\S+)}{perl -i -pe #s/$1/g# xxx.sql}' |  tr "#" "\'"


perl -i -pe 's/tblWCFAppRoles/tblAsAppRoles/g' xxx.sql
perl -i -pe 's/tblWCFDBError/tblAsDBErrors/g' xxx.sql
perl -i -pe 's/tblWCFFunctions/tblAsFunctions/g' xxx.sql
```
0

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

hute37 · 2011-10-05 15:55:34 4
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/
This is sample output - yours may be different.
0

perl -MAcme::POE::Tree -e 'Acme::POE::Tree->new()->run()'

anhpht · 2011-10-13 10:33:31 4
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!
This is sample output - yours may be different.
0

svn log | perl -pe 's/\n//g => s/^-.*/\n/g'

dbr · 2011-10-20 01:20:52 3
display list of files in a directory sorted by amount of lines different with original.txt.
This is sample output - yours may be different.
0

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"}'

1vq9 · 2011-11-15 06:02:12 3
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
This is sample output - yours may be different.
```
Algorithm::Diff
Algorithm::NaiveBayes
Alien::Judy
Alien::wxWidgets
Any::Moose
App::FatPacker
App::Nopaste
App::cpanminus
App::perlbrew
AppConfig
Archive::Any
Archive::Extract
Archive::Tar
Archive::Zip
Array::Diff
Array::Iterator
Array::RefElem
Async
```
0

perl -MExtUtils::Installed -E 'say for ExtUtils::Installed->new()->modules()'

kimmel · 2011-11-16 17:26:47 4
convert unixtime to human-readable

convert a unix timestamp to a human readable format. Show Sample Output
This is sample output - yours may be different.
```
Fri Feb 13 23:31:30 2009
```
0

perl -le 'print scalar gmtime shift' 1234567890

kimmel · 2011-11-16 18:37:11 5
clean up syntax and de-obfuscate perl script

This will create a new file with proper code formatting and all comments removed.
This is sample output - yours may be different.
0

perl -MO=Deparse filename.pl | perltidy > new.pl

kimmel · 2011-11-16 18:54:30 4
Converts Character Set of Files in a Folder
This is sample output - yours may be different.
0

find . -iregex ".+\.$c\|cpp\|h$" | xargs -I{} perl -e "system(\"iconv -f SHIFT_JIS -t UTF-8 {} > temp; mv temp {} \");" ;

inomas · 2011-12-02 18:03:27 3

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

cvs -Q status | perl -ne 'print if m/^File.+Status: (?!Up-to-date)/ .. m/^=/;'

dexterp · 2011-12-07 00:33:49 4

Decode \x{ABCD}-style Unicode escape sequences

This is especially useful to get crazy stuff like space characters copied to your pasteboard correctly. Source: https://github.com/mathiasbynens/dotfiles/blob/master/.functions Show Sample Output
This is sample output - yours may be different.
```
$ unidecode "\x{1D306}"
&#119558;
$ unidecode "\x{00A9}\x{2122}\x{00AE}"
???
```
0

perl -e "binmode(STDOUT, ':utf8'); print \"$@\""; echo # newline

mathias · 2012-01-02 10:34:51 6
Delimiter Hunting

Here's a perl version that only considers printable characters. Change the regex /[[:print:]]/ to look for different sets of delimiter characters.
This is sample output - yours may be different.
0

perl -e '$f = join("", <>); for (0..127) {$_ = chr($_); if (/[[:print:]]/) {print if index($f, $_) < 0}} print "\n"'

putnamhill · 2012-01-05 23:38:06 25
‹ First < 8 9 10 11 12 > Last ›

What's this?

commandlinefu.com is the place to record those command-line gems that you return to again and again. 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.

Share Your Commands

Check These Out

set wallpaper on windowmaker in one line

set directly the wallpaper on windowmaker , use this command with display of imagemagick :)

Give to anyone a command to immediatly find a particular part of a man.

Example : $ LC_ALL=C man less | less +/ppattern

Unlock your KDE4 session remotely (for boxes locked by KDE lock utility)

Do the unlock KDE screen saver locked session with lightdm display manager used in Kubuntu 12.10 +

Decrypt passwords from Google Chrome and Chromium.

Read this before you down voting and comment that it is not working -> Wont work on latest versions ~75> since database file is locked and has to be decrypted. This is useful if you have an old hdd with a chrome installation and want to decrypt your old passwords fast.

Simultaneously running different Firefox profiles

After running $ firefox -ProfileManager and creating several different profiles, use this command to run multiple Firefox profiles simultaneously.

Prints new content of files

Useful to e.g. keep an eye on several logfiles.

Shorten any Url using bit.ly API, using your API Key which enables you to Track Clicks

Shorten any Url using bit.ly API, using your API Key which enables you to Track Clicks I have it as a Function in my .bash_aliases [code] shorten () { longUrl=$1; curl "http://api.bit.ly/shorten?version=2.0.1&longUrl=LONG_URL_YOU_WANT_SHORTENED&login=rungss&apiKey=" } [/code] Here is an Output showing the Function Detail.. [konsole] bijay@bijay:$ type shorten shorten is a function shorten () { longUrl=$1; curl "http://api.bit.ly/shorten?version=2.0.1&longUrl=$longUrl&login=rungss&apiKey=R_48d7e0b40835b09e3861bd455f7abec7" } [/konsole]

scping files with streamlines compression (tar gzip)

it compresses the files and folders to stdout, secure copies it to the server's stdin and runs tar there to extract the input and output to whatever destination using -C. if you emit "-C /destination", it will extract it to the home folder of the user, much like `scp file user@server:`. the "v" in the tar command can be removed for no verbosity.

cd up a number of levels

Instead of typing "cd ../../.." you can type ".. 3". For extremely lazy typists, you can add this alias: alias ...=".. 2" ....=".. 3" - so now you can write just .... !!! NB the .. function needs to be "source"d or included in your startup scripts, perhaps .bashrc.

Get your external IP address ( 10 characters long )

Shortest url to a external IP-service, 10 characters.

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

Commands using perl (369) the last day the last week the last month all time sorted by date votes

What's this?

Check These Out

Stay in the loop…

Commands using perl (369)

sorted by