Commands using perl sorted by votes

Commands using perl (369)

sorted by

Execute a command with a timeout

Found it at http://www.cyberciti.biz/faq/shell-scripting-run-command-under-alarmclock/ Show Sample Output
This is sample output - yours may be different.
```
$ time alarm 5 telnet 10.10.10.10
Trying 10.10.10.10...
Alarm clock

real    0m5.004s
user    0m0.002s
sys     0m0.003s
$
```
0

alarm() { perl -e 'alarm shift; exec @ARGV' "$@"; }; alarm 20 foo arg1

fnds · 2013-08-26 19:40:55 6
Replace all environment variable references in files with environemnt variable values
This is sample output - yours may be different.
0

perl -p -e 's/\$(\w+)/$ENV{$1}/g;' <files...>

Kurposkano · 2013-09-11 20:57:07 7
Convert JSON to YAML
This is sample output - yours may be different.
0

perl -MYAML -MJSON -0777 -wnl -e 'print YAML::Dump(decode_json($_))' package.json

ishiduca · 2013-09-23 02:37:32 1068
Convert JSON to YAML
This is sample output - yours may be different.
0

perl -MYAML -MJSON -0777 -wnl -e 'print YAML::Dump(decode_json($_))' package.json

ishiduca · 2013-09-23 02:37:33 40
Find used fileextensions in a project

When trying to find an error in a hosted project it's interesting to find out how the source is organized: Are there .inc files? Or .php files only? Or .xml files that probably contain translated texts? Show Sample Output
This is sample output - yours may be different.
```
      1 ori
      1 swf
      1 ttf
      1 zip
      2 txt
      4 gz
      8 css
     10 ico
     27 tpl
     28 html
    169 js
    469 php
    590 gif
```
0

find . -type f | perl -ne 'chop(); $ext = substr($_, rindex($_, ".") + 1); print "$ext\n";' | sort | uniq --count | sort -n

t3o · 2013-09-26 07:45:19 7
IBM AIX: List directory size with max depth

Lists directory size up to a maximum traversal depth on systems like IBM AIX, where the du command doesn't have Linux's --max-depth option. AIX's du uses -g to display directory size on gigabytes, -m to use megabytes, and -k to use kilobytes. tr### is a Perl function that replaces characters and returns the amount of changed characters, so in this case it will return how many slashes there were in the full path name. Show Sample Output
This is sample output - yours may be different.
```
16.77   ./cognos-BI
6.78    ./cognos-transformer
5.51    ./cognos-TM1
3.66    ./websphere
```
0

du -g | perl -ne 'print if (tr#/#/# == <maximum depth>)'

RAKK · 2014-02-15 07:33:36 9
Search and replace multiple files with substitution

Does a search and replace across multiple files with a subgroup replacement.
This is sample output - yours may be different.
0

find . -name "*.txt" | xargs -n 1 perl -pi -w -e "s/text([0-9])/other\$1/g;"

kennethjor · 2014-02-28 06:38:38 6
find which lines in a file are longer than N characters

Note that in the command N is, for instance, 37. Show Sample Output
This is sample output - yours may be different.
```
This line has more than 37 characters.
```
0

perl -nle 'print length,"\t",$_ if length > 37' < /path/to/input/file

fibo · 2014-03-20 09:44:41 6
Copy timestamps to all lines in a log file

If you have a logfile where some lines start with timestamps like "2014-05-01 12:34:56,123" but other lines are missing the timestamp (like stack traces or object dumps), then use this script to copy the most recent timestamp to any lines that are missing it. This is useful for merging log files, since you can then safely sort by timestamp to merge the files. Show Sample Output
This is sample output - yours may be different.
```
$ cat input.txt
2014-05-01 12:34:56,123 line with ts
line without ts

$ perl -ne 'if (/^(\d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2},\d{3} )/ ) { $t=$1; print $_ } else { print $t . $_ }' input.txt
2014-05-01 12:34:56,123 line with ts
2014-05-01 12:34:56,123 line without ts
```
0

perl -ne 'if (/^(\d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2},\d{3} )/ ) { $t=$1; print $_ } else { print $t . $_ }'

unixmonkey76059 · 2014-05-21 08:54:27 9
Get the total length of all videos in the current dir in H:m:s

Use case insensitive regex to match files ending in popular video format extensions and calculate their total time. (traverses all files recursively starting from the current directory) Show Sample Output
This is sample output - yours may be different.
```
203:11:32
```
0

find -type f -iregex '.*\.$mkv\|mp4\|wmv\|flv\|webm\|mov\|dat\|flv$' -print0 | xargs -0 mplayer -vo dummy -ao dummy -identify 2>/dev/null | perl -nle '/ID_LENGTH=([0-9\.]+)/ && ($t +=$1) && printf "%02d:%02d:%02d\n",$t/3600,$t/60%60,$t%60' | tail -n 1

powerinside · 2014-06-07 15:50:41 6
urldecoding
This is sample output - yours may be different.
0

perl -M URI::Escape -lne 'print uri_unescape($_)'

johnlane · 2014-07-01 10:45:33 7
Convert epoch time to full date with Perl
This is sample output - yours may be different.
0

perl -MPOSIX -le 'print strftime "%F", localtime 1234567890'

lysergication · 2014-09-09 21:15:58 8

rename bunch of movie and srt files to all work with each other

I used this (along with a modified one replacing `mkv` with `srt`) to remove the slight differences in who the provider of the video / matching subtitle was (as they are the same contents and the subs match anyway). So now VLC (and other video players) can easily guess the subtitle file. Show Sample Output

This is sample output - yours may be different.

Parks.and.Recreation.S02E01.720p.HDTV.X264-CTU.mkv -> Parks.and.Recreation.S02E01.720p.mkv
Parks.and.Recreation.S02E02.720p.HDTV.x264-CTU.mkv -> Parks.and.Recreation.S02E02.720p.mkv
Parks.and.Recreation.S02E03.720p.HDTV.x264-CTU.mkv -> Parks.and.Recreation.S02E03.720p.mkv
Parks.and.Recreation.S02E04.720p.HDTV.x264-ORENJi.mkv -> Parks.and.Recreation.S02E04.720p.mkv
Parks.and.Recreation.S02E05.720p.HDTV.x264-CTU.mkv -> Parks.and.Recreation.S02E05.720p.mkv
Parks.and.Recreation.S02E06.720p.HDTV.x264-CTU.mkv -> Parks.and.Recreation.S02E06.720p.mkv
Parks.and.Recreation.S02E07.720p.HDTV.x264-IMMERSE.mkv -> Parks.and.Recreation.S02E07.720p.mkv
Parks.and.Recreation.S02E08.720p.HDTV.X264-DIMENSION.mkv -> Parks.and.Recreation.S02E08.720p.mkv
Parks.and.Recreation.S02E09.720p.HDTV.X264-DIMENSION.mkv -> Parks.and.Recreation.S02E09.720p.mkv
Parks.and.Recreation.S02E10.720p.HDTV.x264-CTU.mkv -> Parks.and.Recreation.S02E10.720p.mkv
Parks.and.Recreation.S02E11.720p.HDTV.X264-DIMENSION.mkv -> Parks.and.Recreation.S02E11.720p.mkv
Parks.and.Recreation.S02E12.720p.HDTV.X264-DIMENSION.mkv -> Parks.and.Recreation.S02E12.720p.mkv
Parks.and.Recreation.S02E13.720p.HDTV.X264-DIMENSION.mkv -> Parks.and.Recreation.S02E13.720p.mkv
Parks.and.Recreation.S02E14.720p.HDTV.X264-DIMENSION.mkv -> Parks.and.Recreation.S02E14.720p.mkv
Parks.and.Recreation.S02E15.720p.HDTV.X264-DIMENSION.mkv -> Parks.and.Recreation.S02E15.720p.mkv
Parks.and.Recreation.S02E16.720p.HDTV.X264-DIMENSION.mkv -> Parks.and.Recreation.S02E16.720p.mkv
Parks.and.Recreation.S02E17.720p.HDTV.X264-DIMENSION.mkv -> Parks.and.Recreation.S02E17.720p.mkv
Parks.and.Recreation.S02E18.720p.HDTV.X264-DIMENSION.mkv -> Parks.and.Recreation.S02E18.720p.mkv
Parks.and.Recreation.S02E19.720p.HDTV.X264-DIMENSION.mkv -> Parks.and.Recreation.S02E19.720p.mkv
Parks.and.Recreation.S02E20.720p.HDTV.X264-DIMENSION.mkv -> Parks.and.Recreation.S02E20.720p.mkv
Parks.and.Recreation.S02E21.720p.HDTV.X264-DIMENSION.mkv -> Parks.and.Recreation.S02E21.720p.mkv
Parks.and.Recreation.S02E22.720p.HDTV.X264-DIMENSION.mkv -> Parks.and.Recreation.S02E22.720p.mkv
Parks.and.Recreation.S02E23.720p.HDTV.X264-DIMENSION.mkv -> Parks.and.Recreation.S02E23.720p.mkv
Parks.and.Recreation.S02E24.720p.HDTV.X264-DIMENSION.mkv -> Parks.and.Recreation.S02E24.720p.mkv

perl-rename -v 's/720p.+mkv/720p\.mkv/' *.mkv

benkaiser · 2014-09-25 14:07:47 9

Get user's full name in Mac OS X
This is sample output - yours may be different.
0

finger $(whoami) | perl -ne '/Name: ([a-zA-Z0-9 ]{1,})/ && print "$1\n"'

zil0g · 2014-09-30 11:37:47 11
add POD stubs recursively to all Perl modules

This will add a perl POD stub above each method in all modules found recursively in your current directory. The stub will look like: =head2 method_name =cut sub method_name { ...
This is sample output - yours may be different.
0

find . -type file -name '*.pm' | xargs perl -p -i -e 'BEGIN{undef $/;} s/([;}])\s*\nsub (\w+)/$1\n\n=head2 $2\n\n=cut\n\nsub $2/g'

xevo · 2014-11-05 18:19:37 8
Read Squid logs with human-readable timestamp in Pfsense
This is sample output - yours may be different.
0

tail -f /var/squid/logs/access.log | perl -pe 's/(\d+)/localtime($1)/e'

carlosesteves · 2015-05-06 15:53:07 9
Print a row of characters across the terminal
This is sample output - yours may be different.
0

perl -E'say "#" x '$COLUMNS

pung96 · 2015-05-09 13:49:56 9
Wait for file to stop changing

perl version of "Wait for file to stop changing" When "FileName" has not been changed for last 10 seconds, then print "DONE" "10" in "(stat)[10]" means ctime. One have other options like atime, mtime and others. http://perldoc.perl.org/functions/stat.html
This is sample output - yours may be different.
0

echo FileName | perl -nlE'sleep 1 while time-(stat)[10]<10' && echo DONE

pung96 · 2015-05-09 14:58:41 9
drop first column of output by piping to this

drop first column with perl "$#F" means a index of last column(start from 0). One can easily handle range of columns like "[3..6]"
This is sample output - yours may be different.
0

perl -anE'say join "\t",@F[1..$#F]'

pung96 · 2015-05-09 15:11:23 9
Grep ip addresses from access attempts to a page and add them to an ipset referenced by an iptables rule
This is sample output - yours may be different.
0

grep page.php /var/log/httpd/access_log|awk '{print $1}'|sort|uniq|perl -e 'while (<STDIN>){chomp; $cmd=`ipset add banned -! -q $_`; }'

luchino7773 · 2015-05-13 07:08:59 10
Pipe to X11 clipboard

This sequence of pipes will strip the last newline and send the remainder to the X11 clipboard. I have it as: alias clipb='perl -pe "chomp if eof" | xclip -selection c' so I can just do "echo hello | clipb" Multi-line texts will keep their internal newlines, but the last newline will be removed. This usually makes most sense. Show Sample Output
This is sample output - yours may be different.
```
This will add the value of $MYFILE (without trailing newline) to the X11 clipboard
```
0

echo $MYFILE | perl -pe "chomp if eof" | xclip -selection c

magicus · 2015-09-18 10:50:12 8
Epoch from time protocol port 37

Time protocol serves up seconds since 1900 in a 32 bit binary number. Show Sample Output
This is sample output - yours may be different.
```
1443004481
```
0

telnet time.nist.gov 37 2>/dev/null |tail -1 | xxd | awk '{print $2 $3}'|tr -d '\n' | perl -nwe "print scalar(hex($1)-2208988800).\"\n\""

quesne · 2015-09-23 10:42:36 9
Sort your files

Sort your files in folders/chronological order Linux 4.1.6-1-ARCH Show Sample Output
This is sample output - yours may be different.
```
After ls :

2015-08-12          
2015-08-14           
2015-08-15           
2015-08-16
```
0

perl -MPOSIX=strftime -MFile::Path -e 'for(glob"*"){mkpath$d=strftime"%Y-%m-%d", localtime((stat)[9]);rename$_,"$d/$_"}'

olto · 2015-10-02 07:51:58 10
encode HTML entities

The only command-line version of this task I could come up with that properly handles UTF-8 input, too. (Yes, I know how crazy it is to have UTF-8 with HTML entity escapes, but that stuff exists... sadly...; Just check Twitter.)
This is sample output - yours may be different.
0

perl -C -MHTML::Entities -pe 'decode_entities($_);'

fnl · 2015-11-13 15:07:54 10
Print hex codes of a given string

Prints a string as a sequence of hexadecimal values. Output comes in space separated pairs, regardless of ASCII or Unicode characters Show Sample Output
This is sample output - yours may be different.
```
$ hexstring commandlinefu
63 6f 6d 6d 61 6e 64 6c 69 6e 65 66 75
```
0

hexstring () { perl -p -e 's/(.)/sprintf("%02x", ord($1))/eg' << $1 }

hellcode · 2016-05-03 22:44:24 10
‹ First < 10 11 12 13 14 > 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

Create an alias, store it in ~/.bash_aliases and source your new alias into the ~/.bashrc

This is useful if you use a shell with a lot of other users. You will be able to run "topu" to see your running processes instead of the complete 'top -u username'. Read more on alias: http://man.cx/alias

Add a line from 1 file after every line of another (shuffle files together)

After every line in targetfile (empty lines included) insert in a line from addfile. "Save" results to savefile. Addfile should be longer than targetfile since this doesn't loop back to the top of addfile. /^/R addfile -- says for every line that matches "has a start of line" output a line from the file addfile. > savefile (optional) -- redirect output to savefile file.

disk space email alert

put it in crontab to get an alert when / is over 89% utilization.

remove empty lines in place with backup

Modify file in place to remove empty lines and create a backup of the original with the extension .bak

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 CSV to JSON

Replace 'csv_file.csv' with your filename.

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

get the latest version

to download latest version of "util", maybe insert a sort if they wont be shown in right order. curl lists all files on mirror, grep your util, tail -1 will gets the one lists on the bottom and get it with wget

Get a Bulleted List of SVN Commits By a User for a Specifc Day (Daily Work Log)

* Replace USERNAME with the desired svn username * Replace the first YYYY-MM-DD with the date you want to get the log (this starts at the midnight event that starts this date) * Replace the second YYYY-MM-DD with the date after you want to get the log (this will end the log scan on midnight of the previous day) Example, if I want the log for December 10, 2010, I would put {2010-12-10}:{2010-12-11}

Convert CSV to JSON

Replace 'csv_file.csv' with your filename.

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