Commands using perl sorted by votes

Commands using perl (369)

sorted by

List apache2 virtualhosts

Lists virtualhosts currently enabled for apache2, showing the ServerName:port, conf file and DocumentRoot
This is sample output - yours may be different.
4

/usr/sbin/apache2ctl -S 2>&1 | perl -ne 'm@.*port\s+([0-9]+)\s+\w+\s+(\S+)\s+\((.+):.*@ && do { print "$2:$1\n\t$3\n"; $root = qx{grep DocumentRoot $3}; $root =~ s/^\s+//; print "\t$root\n" };'

lingo · 2009-07-21 10:51:30 3
disk space email alert

put it in crontab to get an alert when / is over 89% utilization.
This is sample output - yours may be different.
4

[ $(df / | perl -nle '/([0-9]+)%/ && print $1') -gt 90 ] && df -hP | mutt -s "Disk Space Alert -- $(hostname)" admin@example.com

grokskookum · 2009-10-15 21:11:54 8
Prints per-line contribution per author for a GIT repository

Figures out total line contribution per author for an entire GIT repo. Includes binary files, which kind of mess up the true count. If crashes or takes too long, mess with the ls-file option at the start: git ls-files -x "*pdf" -x "*psd" -x "*tif" to remove really random binary files git ls-files "*.py" "*.html" "*.css" to only include specific file types Based off my original SVN version: http://www.commandlinefu.com/commands/view/2787/prints-total-line-count-contribution-per-user-for-an-svn-repository Show Sample Output
This is sample output - yours may be different.
```
 217167 askedrelic
  11592 bob
   3975 alice
   1276 jim
    358 tom
     64 brad
     13 Not Committed Yet
```
4

git ls-files | xargs -n1 -d'\n' -i git-blame {} | perl -n -e '/\s\((.*?)\s[0-9]{4}/ && print "$1\n"' | sort -f | uniq -c -w3 | sort -r

askedrelic · 2009-10-25 01:44:03 11
Print a row of 50 hyphens

Perl is installed by default on most modern OS when jot is not. Show Sample Output
This is sample output - yours may be different.
```
--------------------------------------------------
```
4

perl -le'print"-"x50'

sputnick · 2010-01-06 17:06:07 4
most used commands in history (comprehensive)

Most of the "most used commands" approaches does not consider pipes and other complexities. This approach considers pipes, process substitution by backticks or $() and multiple commands separated by ; Perl regular expression breaks up each line using | or < ( or ; or ` or $( and picks the first word (excluding "do" in case of for loops) note: if you are using lots of perl one-liners, the perl commands will be counted as well in this approach, since semicolon is used as a separator Show Sample Output
This is sample output - yours may be different.
```
$ cat test
1  command file | command file | command | command
2  command <(command file) <(command file)
3  command file > file
4  for i in `command file`; do command file; command file; done | command
5  for i in $(command file); do command file; command file | command; done

$ cat test | perl -F"\||<\(|;|\`|\\$\(" -alne 'foreach (@F) { print $1 if /\b((?!do)[a-z]+)\b/i }' | sort | uniq -c | sort -nr | head

     16 command
      2 for
```
4

history | perl -F"\||<\(|;|\`|\\$\(" -alne 'foreach (@F) { print $1 if /\b((?!do)[a-z]+)\b/i }' | sort | uniq -c | sort -nr | head

alperyilmaz · 2010-04-08 13:46:09 4
convert ascii string to hex

just a bit simpler
This is sample output - yours may be different.
4

echo $ascii | perl -ne 'printf "%x", ord for split //'

linuxrawkstar · 2010-04-19 11:57:08 4
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.
This is sample output - yours may be different.
4

perl -ne 'print if !$a{$_}++'

doherty · 2011-02-17 02:18:44 7
Translate your terminal into Swedish Chef

Bork, bork, bork! To keep it short, the first terminal line doesn't show a prompt. Show Sample Output
This is sample output - yours may be different.
```
bork@bork:$ ps
  bork bork          bork bork
10640 bork/0    00:00:03 bork
12467 bork/0    00:00:00 bork
12469 bork/0    00:00:00 bork
12470 bork/0    00:00:00 bork
bork@bork:$ pwd 
/bork/bork/bork
bork@bork:$ whoami
bork
bork@bork:$
```
3

perl -e '$b="bork"; while(<STDIN>){$l=`$_ 2>&1`; $l=~s/[A-Za-z]+/$b/g; print "$l$b\@$b:\$ ";}'

fonik · 2009-02-05 18:33:40 28
How to pull out lines between two patterns

This command will display all lines between 2 patterns: word-a and word-b useful for grepping command outputs from file
This is sample output - yours may be different.
3

perl -0777 -ne 'print "$1\n" while /word-a(.*?)word-b/gs' filename.txt

eleffie · 2009-03-08 11:47:18 7
find the longest command in your history
This is sample output - yours may be different.
3

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

salparadise · 2009-03-19 02:52:30 6
Do quick arithmetic on numbers from STDIN with any formatting using a perl one liner.

Good for summing the numbers embedded in text - a food journal entry for example with calories listed per food where you want the total calories. Use this to monitor and keep a total on anything that ouputs numbers. Show Sample Output
This is sample output - yours may be different.
```
echo "I had 10 goats, then sam brought 5 more. \
Then we bought 4 more goats and 2 goats had babies. \
How many goats did we have?" | \
perl -ne '$sum += $_ for grep { /\d+/ } split /[^\d\-\.]+/; print "$sum\n"'
21

perl -ne '$sum += $_ for grep { /\d+/ } split /[^\d\-\.]+/; print "$sum\n"'
1, '2' | 3, (-2) -.5
3.5
```
3

perl -ne '$sum += $_ for grep { /\d+/ } split /[^\d\-\.]+/; print "$sum\n"'

obscurite · 2009-06-16 06:39:08 6
Do a search-and-replace in a file after making a backup
This is sample output - yours may be different.
3

perl -i'.bak' -pe 's/old/new/g' <filename>

unixmonkey5248 · 2009-08-25 17:37:59 4
Find and display most recent files using find and perl

This pipeline will find, sort and display all files based on mtime. This could be done with find | xargs, but the find | xargs pipeline will not produce correct results if the results of find are greater than xargs command line buffer. If the xargs buffer fills, xargs processes the find results in more than one batch which is not compatible with sorting. Note the "-print0" on find and "-0" switch for perl. This is the equivalent of using xargs. Don't you love perl? Note that this pipeline can be easily modified to any data produced by perl's stat operator. eg, you could sort on size, hard links, creation time, etc. Look at stat and just change the '9' to what you want. Changing the '9' to a '7' for example will sort by file size. A '3' sorts by number of links.... Use head and tail at the end of the pipeline to get oldest files or most recent. Use awk or perl -wnla for further processing. Since there is a tab between the two fields, it is very easy to process. Show Sample Output
This is sample output - yours may be different.
```
find $HOME -type f -print0 | perl -0 -wn -e '@f=<>; foreach $file (@f){ (@el)=(stat($file)); push @el, $file; push @files,[ @el ];} @o=sort{$a->[9]<=>$b->[9]} @files; for $i (0..$#o){print scalar localtime($o[$i][9]), "\t$o[$i][-1]\n";}'|tail
Mon Sep 21 19:24:47 2009	/Users/andrew/Library/Logs/Sync/mobilemesyncstats.plist
Mon Sep 21 19:24:47 2009	/Users/andrew/Library/Preferences/ByHost/com.apple.DotMacSync.0019e366823e.plist
Mon Sep 21 19:24:48 2009	/Users/andrew/Library/Preferences/ByHost/com.apple.AOSNotification.0019e366823e.plist
Mon Sep 21 19:24:54 2009	/Users/andrew/Library/Cookies/Cookies.plist
Mon Sep 21 19:25:03 2009	/Users/andrew/Library/Preferences/com.apple.Terminal.plist
Mon Sep 21 19:26:44 2009	/Users/andrew/Library/Mail/IMAP-andrew@x-fifteen.com@mail.x-fifteen.com/Sent Messages.imapmbox/Messages/311191.emlx
Mon Sep 21 19:26:47 2009	/Users/andrew/Library/Logs/Sync/syncservices.log
Mon Sep 21 19:26:55 2009	/Users/andrew/Library/Preferences/com.apple.mail.plist
Mon Sep 21 19:27:48 2009	/Users/andrew/Library/Mail/IMAP-andrew@x-fifteen.com@mail.x-fifteen.com/INBOX.imapmbox/Messages/311201.emlx
Mon Sep 21 19:27:49 2009	/Users/andrew/Library/Mail/Envelope Index
```
3

find $HOME -type f -print0 | perl -0 -wn -e '@f=<>; foreach $file (@f){ (@el)=(stat($file)); push @el, $file; push @files,[ @el ];} @o=sort{$a->[9]<=>$b->[9]} @files; for $i (0..$#o){print scalar localtime($o[$i][9]), "\t$o[$i][-1]\n";}'|tail

drewk · 2009-09-21 22:11:16 11
clean up syntax and de-obfuscate perl script

the command show can be run in vim, here is the same thing on the command line cat script.pl | perl -MO=Deparse | perltidy
This is sample output - yours may be different.
3

%! perl -MO=Deparse | perltidy

grokskookum · 2009-09-24 03:32:04 8
Perl one liner for epoch time conversion

Converts Unix epoch time to localtime. Useful for any logs that only display epoch time. Show Sample Output
This is sample output - yours may be different.
```
perl -pe's/([\d.]+)/localtime $1/e;' /var/nagios/nagios.log

[Tue Jan 19 09:48:00 2010] HOST EVENT HANDLER: winboxen.example.com;(null);(null);(null);notify-host-by-email
```
3

perl -pe's/([\d.]+)/localtime $1/e;'

tuxtutorials · 2010-01-19 18:47:58 3
Convert files from DOS line endings to UNIX line endings

This method will also convert mac line endings.
This is sample output - yours may be different.
3

perl -pi -e 's/\r\n?/\n/g'

putnamhill · 2010-03-18 17:48:16 6
Print a list of installed Perl modules

This version works on an AIX system on which I have very limited permissions. The other version fails with "Can't open file /usr/opt/perl588/lib/site_perl/5.8.8/aix/auto/DBI/.packlist".
This is sample output - yours may be different.
3

perl -MFile::Find=find -MFile::Spec::Functions -Tlwe 'find { wanted => sub { print canonpath $_ if /\.pm\z/ }, no_chdir => 1 }, @INC'

randy909 · 2010-08-02 15:18:51 3

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

perl -pe 'eof()||s/\n/<SOMETEXT>/g' file.txt

eightmillion · 2010-12-02 01:19:27 5

Remove duplicate rows of an un-sorted file based on a single column

F[0] filters using first word. $F[1] - 2nd, and so on.
This is sample output - yours may be different.
3

perl -ane 'print unless $x{$F[0]}++' infile > outfile

depesz · 2010-12-15 17:46:22 3
read squid logs with human-readable timestamp

Show Sample Output
This is sample output - yours may be different.
```
before:
1310045550.240 0 10.10.10.27 TCP_HIT/200 1344 GET http://somedomain.com/ (...)
after:
[Thu Jul  7 15:32:30 2011].240 0 10.10.10.27 TCP_HIT/200 1344 GET http://somedomain.com (...)
```
3

tail -f /var/log/squid/access.log | perl -p -e 's/^([0-9]*)/"[".localtime($1)."]"/e'

godzillante · 2011-07-06 08:55:27 7
Use Perl like grep

If you've ever tried "grep -P" you know how terrible it is. Even the man page describes it as "highly experimental". This function will let you 'grep' pipes and files using Perl syntax for regular expressions. The first argument is the pattern, e.g. '/foo/'. The second argument is a filename (optional). Show Sample Output
This is sample output - yours may be different.
```
% printf "some\nfake\ntext\n" | prep '/^\s?[Ff]ake\s?$/'
fake
 
% printf "some\nfake\ntext\n" > file.txt

% prep '/^\s?[Ff]ake\s?$/' file.txt
fake
```
3

prep () { perl -nle 'print if '"$1"';' $2 }

dbbolton · 2011-08-13 14:29:26 6
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
This is sample output - yours may be different.
3

perl -C -e 'print for sort { length $a <=> length $b or $a cmp $b } <>' < /usr/share/dict/words | tail

dbr · 2011-10-20 01:43:25 6
Print environment information.

Print environment (system) information using Perl.
This is sample output - yours may be different.
3

perl -e 'print map { $_ .= "$ENV{$_}\n" } (keys %ENV)'

MarxBro · 2012-10-13 23:38:28 6
FizzBuzz in Perl

Just another FizzBuzz in Perl. Show Sample Output
This is sample output - yours may be different.
```
1
2
Fizz
4
Buzz
Fizz
7
8
Fizz
Buzz
11
Fizz
13
14
Fizzbuzz
```
3

perl -E 'say$_%15?$_%3?$_%5?$_:Buzz:Fizz:Fizzbuzz for 1..100'

MarxBro · 2012-11-18 05:47:29 32
Show all available colors on your terminal.

Using perl and tput, show all the colors with numbers that your actual $TERM can handle. If want to remove the numbers at beginning of new line, it should be something like this: perl -E 'say `tput setb $_`," "x `tput cols`, `tput sgr0` for 0 .. (`tput colors` - 1)'
This is sample output - yours may be different.
3

perl -E 'say $_,`tput setb $_`," "x(`tput cols`-length("$_")),`tput sgr0` for 0..(`tput colors`-1)'

MarxBro · 2012-11-22 01:55:51 6
< 1 2 3 4 5 > 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

Which processes are listening on a specific port (e.g. port 80)

swap out "80" for your port of interest. Can use port number or named ports e.g. "http"

convert a mp4 video file to mp3 audio file (multiple files)

Get list of servers with a specific port open

Change the -p argument for the port number. See "man nmap" for different ways to specify address ranges.

MSDOS command to check existance of command and exit batch if failed

This is a command to be used inside of MS-DOS batch files to check existence of commands as preconditions before actual batch processing can be started. If the command is found, batch script continues execution. If not, a message is printed on screen, script then waits for user pressing a key and exits. An error message of the command itself is suppressed for clarity purpose.

Analyse writing style of writing style of a document

Style analyses the surface characteristics of the writing style of a document. It prints various readability grades, length of words, sentences and paragraphs. It can further locate sentences with certain characteristics. If no files are given, the document is read from standard input. style is part of "diction" package

RDP through SSH tunnel

This command will: 1. open an SSH tunnel to 2. go to background 3. wait for 10 seconds for the connection 4. during the 10 seconds wait it will localy run 'rdesktop' to connect to the remote host through the created SSH tunnel. Password-less log in can be achieved (when server allows it) by adding '-p ' to the 'rdesktop' command

Create executable, automountable filesystem in a file, with password!

This is just a proof of concept: A FILE WHICH CAN AUTOMOUNT ITSELF through a SIMPLY ENCODED script. It takes advantage of the OFFSET option of mount, and uses it as a password (see that 9191? just change it to something similar, around 9k). It works fine, mounts, gets modified, updated, and can be moved by just copying it. USAGE: SEE SAMPLE OUTPUT The file is composed of three parts: a) The legible script (about 242 bytes) b) A random text fill to reach the OFFSET size (equals PASSWORD minus 242) c) The actual filesystem Logically, (a)+(b) = PASSWORD, that means OFFSET, and mount uses that option. PLEASE NOTE: THIS IS NOT AN ENCRYPTED FILESYSTEM. To improve it, it can be mounted with a better encryption script and used with encfs or cryptfs. The idea was just to test the concept... with one line :) It applies the original idea of http://www.commandlinefu.com/commands/view/7382/command-for-john-cons for encrypting the file. The embedded bash script can be grown, of course, and the offset recalculation goes fine. I have my own version with bash --init-file to startup a bashrc with a well-defined environment, aliases, variables.

du and sort to find the biggest directories in defined filesystem

This command give a human readable result without messing up the sorting.

Convert seconds to [DD:][HH:]MM:SS

Converts any number of seconds into days, hours, minutes and seconds. sec2dhms() { declare -i SS="$1" D=$(( SS / 86400 )) H=$(( SS % 86400 / 3600 )) M=$(( SS % 3600 / 60 )) S=$(( SS % 60 )) [ "$D" -gt 0 ] && echo -n "${D}:" [ "$H" -gt 0 ] && printf "%02g:" "$H" printf "%02g:%02g\n" "$M" "$S" }

Create AUTH PLAIN string to test SMTP AUTH session

I use this as an alias: alias authplain "printf '\!:1\0\!:1\0\!:2' | mmencode | tr -d '\n' | sed 's/^/AUTH PLAIN /'" then.. # authplain someuser@somedomain.com secretpassword AUTH PLAIN c29tZXVzZXJAc29tZWRvbWFpbi5jb20Ac29tZXVzZXJAc29tZWRvbWFpbi5jb20Ac2VjcmV0cGFzc3dvcmQ= #

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