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

Simulate typing

this also generates errors (change 4 to higher number for more mistakes)

Run a command when a file is changed

Define words and phrases with google.

This function takes a word or a phrase as arguments and then fetches definitions using Google's "define" syntax. The "nl" and perl portion isn't strictly necessary. It just makes the output a bit more readable, but this also works: $define(){ local y="$@";curl -sA"Opera" "http://www.google.com/search?q=define:${y// /+}"|grep -Po '(?/dev/null;}

concat multiple videos into one (and add an audio track)

This is an extract from a larger script which formats the video for DVD. The videos I use have no audio track so I need to add one. Tweak as you like...

sorting file contents into individual files with awk

This command will sort the contents of FILENAME by redirecting the output to individual .txt files in which 3rd column will be used for sorting. If FILENAME contents are as follows: foo foo A foo bar bar B bar lorem ipsum A lorem Then two files called A.txt and B.txt will be created and their contents will be: A.txt foo foo A foo lorem ipsum A lorem and B.txt will be bar bar B bar

Install pip with Proxy

Installs pip packages defining a proxy

seq (argc=2) for FreeBSD

Print text string vertically, one character per line.

Define a function $ vert () { echo $1 | grep -o '.'; } Use it to print some column headers $ paste

quickly change all .html extensions on files in folder to .htm

wrap long lines of a text

wraps text lines at the specified width (90 here). -s option is to force to wrap on blank characters -b count bytes instead of columns

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