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

Display 6 largest installed RPMs sorted by size (descending)

Low on disk space? Check the largest installed RPMs for delete canditates.

Shows picture exif GPS info if any and converts coords to a decimal degree number

This oneliner uses Imagemagic's identify utility to show the exif GPS information of an image an also converts Grad/MIn/Sec representation to a decimal degree number

load changes without logging in and out vim

src: daily vim blog

Quick calculator at the terminal

Useful for quick calculations at the command line. $math_expr is any arithmetic expression (see sample output): 4.5*16+3^2 s(3.1415926/2) More options in the bc man page.

Quickly get summary of sizes for files and folders

Use this as a quick and simple alternative to the slightly verbose "du -s --max-depth=1"

Get AWS temporary credentials ready to export based on a MFA virtual appliance

You might want to secure your AWS operations requiring to use a MFA token. But then to use API or tools, you need to pass credentials generated with a MFA token. This commands asks you for the MFA code and retrieves these credentials using AWS Cli. To print the exports, you can use: `awk '{ print "export AWS_ACCESS_KEY_ID=\"" $1 "\"\n" "export AWS_SECRET_ACCESS_KEY=\"" $2 "\"\n" "export AWS_SESSION_TOKEN=\"" $3 "\"" }'` You must adapt the command line to include: * $MFA_IDis ARN of the virtual MFA or serial number of the physical one * TTL for the credentials

Anti Syn Ddos

Ddos syn attack

Find C/C++ source files

Find C/C++ source files and headers in the current directory.

Generate a Random MAC address

Use the following variation for FreeBSD: $ openssl rand 6 | xxd -p | sed 's/$..$/\1:/g; s/:$//'

Set GIT_COMMITTER_DATE = GIT_AUTHOR_DATE for all the git commits

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