Commands using perl sorted by votes

Commands using perl (369)

sorted by

Replace DOS character ^M with newline using perl inline replace.

Replace DOS character ^M with newline using perl inline replace.
This is sample output - yours may be different.
-1

perl -pi -e "s/\r/\n/g" <file>

din7 · 2010-07-29 16:07:36 4
calculate in commandline with perl
This is sample output - yours may be different.
-1

perl -e 'print 1+1 ."\n";'

stubby · 2010-08-08 23:19:10 3
Perl One Liner to Generate a Random IP Address

Show Sample Output
This is sample output - yours may be different.
```
108.134.80.236
```
-1

perl -e 'printf "%vd\n",pack "N",rand 256**4'

seungwon · 2011-01-18 06:10:18 3
Print just line 4 from a textfile

Perl version - just for completeness sake ;)
This is sample output - yours may be different.
-1

perl -ne '$. == 4 && print && exit'

bashrc · 2011-09-05 21:52:16 3
Remove color codes (special characters) with perl

Removes special characters (colors) in '^]]Xm' and '^]]X;Ym' format from file. Use pipe ('input | perl [...]') or stream ('perl [...] You can use 'cat -v infile' as 'input' to show special characters instead of interpreting (there is problem with non-ASCII chars, they are replaced by M-[char]).
This is sample output - yours may be different.
-1

perl -ne 's/\^.{1,7}?m//g;print'

Tracerneo · 2012-01-02 01:32:33 6
Remove a line from a file using sed (useful for updating known SSH server keys when they change)

Easily removes line #2 in ~/.ssh/known_hosts. Show Sample Output
This is sample output - yours may be different.
-1

perl -p -i -e 's/.*\n//g if $.==2' ~/.ssh/known_hosts

meappy · 2012-01-17 14:11:03 3
Generate Random Text based on Length

If you don't have seq, you can use perl.
This is sample output - yours may be different.
-1

genRandomText() { perl -e '$n=shift; print chr(int(rand(26)) + 97) for 1..$n; print "\n"' $1;}

putnamhill · 2012-01-21 00:21:20 3
Per country GET report, based on access log. Easy to transform to unique IP

Per country GET report, based on access log. Easy to transform to unique IP Show Sample Output
This is sample output - yours may be different.
```
     71 , Poland
    116 , France
    300 , United States
   2426 , Spain
```
-1

cat /var/log/nginx/access.log | grep -oe '^[0-9.]\+' | perl -ne 'system("geoiplookup $_")' | grep -v found | grep -oe ', [A-Za-z ]\+$' | sort | uniq -c | sort -n

theist · 2012-05-08 13:28:25 3
Print environment information.

Show Sample Output
This is sample output - yours may be different.
```
user@server:~$ perl -e 'print "$_=$ENV{$_}\n" for keys %ENV'
HOME=/home/user
LESS=-R
LC_ALL=de_DE.utf8
EDITOR=/usr/bin/vim
...
```
-1

perl -e 'print "$_=$ENV{$_}\n" for keys %ENV'

sgikas · 2012-11-12 13:14:28 4
Find out if a module is installed in perl

Will check if the given module is installed in the @INC. It will print the path and return 0 if found, or 1 otherwise. Based on script from SharpyWarpy in http://www.linuxquestions.org/questions/linux-general-1/how-to-list-all-installed-perl-modules-216603/ Show Sample Output
This is sample output - yours may be different.
```
/usr/local/share/perl5/Collectd/Plugins/Graphite.pm
```
-1

perl -MFile::Find=find -MFile::Spec::Functions -Tlwe '$found=1; find { wanted => sub { if (/$ARGV[0]\.pm\z/) { print canonpath $_; $found=0; } }, no_chdir => 1 }, @INC; exit $found;' Collectd/Plugins/Graphite

keymon · 2013-01-11 11:01:46 5

Find out if a module is installed in perl (and what version)

This attempts to load a Perl Module (-M flag) and use version 9999, since no module has a version this high, Perl exits either a) telling you the version of the module installed or b) tells you it can't find the module. Show Sample Output

-1

perl -MModule::Name\ 9999 -e 1

three18ti · 2013-01-15 22:51:39 4

Display Spinner while waiting for some process to finish

Replace 'sleep 10' with the command to wait for Show Sample Output
This is sample output - yours may be different.
```
\oOooo
```
-1

sleep 10 & perl -e '$|=@s=qw(-Ooooo \oOooo |ooOoo /oooOo -ooooO \oooOo |ooOoo /oOooo);while(kill 0,'$!'){ print "\r",$s[$t++%($#s+1)];select(undef,undef,undef,0.2);}'

unixmonkey74668 · 2015-05-09 10:00:35 9
shell function to create an 'invisible regex' that won't show up when grepping the output from 'ps'

Note that `grep "$(ir foo)"` really doesn't save any typing, but wrapping this inside a second shell function will: psg() { grep "$(ir \"$@\")" ;} Show Sample Output
This is sample output - yours may be different.
```
$ ir foo
[f]oo

$ ps aux | grep "$(ir foo)"
[returns nothing]
```
-1

ir() { perl -pne 's/(.)(.*)/\[\1]\2/' <<< "$@" ;}

bartonski · 2015-07-25 14:13:33 12
rename all images in folder with original date time from exif data

for filename multilingual (ex.japanese, chinese, ...etc)
This is sample output - yours may be different.
-1

c=1; for i in *; do identify -verbose $i | perl -ane 'if(/exif:DateTimeOriginal:/){print "@F[1,2] "}'; ls -i $i; done | sort | perl -ane 'print "@F[2]\n"' | while read j; do find -inum $j | xargs -iX cp X NEW_`printf %02d $c`.jpg; cnt=`expr $c + 1`; done

huzioka · 2015-09-22 19:06:43 11
Binary digits Matrix effect
This is sample output - yours may be different.
-1

perl -e 'use Term::ANSIColor;$|++; while (1) { print color("green")," " x (rand(35) + 1), int(rand(2)), color("reset") }'

mvrpl · 2017-04-26 14:05:48 20
Inserting a decimal every third digit

self explanatory see sample output Show Sample Output
This is sample output - yours may be different.
```
# echo "1234435324523443212343241" | perl -lpe'1 while s/^([-+]?\d+)(\d{3})/$1.$2/'
1.234.435.324.523.443.212.343.241
```
-2

perl -lpe'1 while s/^([-+]?\d+)(\d{3})/$1.$2/'

sil · 2009-02-18 21:54:22 6
Convert files with CR-terminated lines (as created by Mac OS X programs) into NL-terminated lines suitable for Unix programs

Many Mac OS X programs, especially those in Microsoft:Office, create ASCII files with lines terminated by CRs (carriage returns). Most Unix programs expect lines separated by NLs (newlines). This little command makes it trivial to convert them. Show Sample Output
This is sample output - yours may be different.
```
crtonl mymacfile.csv
```
-2

function crtonl { perl -i -ape 's/\r\n?/\n/g;' $* ; }

totoro · 2009-03-25 20:28:32 10
Not so simple countdown from a given date

An improved version of http://www.commandlinefu.com/commands/view/1772/simple-countdown-from-a-given-date that uses Perl to pretty-print the output. Note that the GNU-style '--no-title' option has been replaced by its one-letter counterpart '-t'. Show Sample Output
This is sample output - yours may be different.
```
4d 23:15:43
```
-2

watch -tn1 'bc<<<"`date -d'\''friday 21:00'\'' +%s`-`date +%s`"|perl -ne'\''@p=gmtime($_);printf("%dd %02d:%02d:%02d\n",@p[7,2,1,0]);'\'

penpen · 2009-03-29 19:53:36 8
Read just the IP address of a device

Found this useful for scripts where I needed to work with the machine's IP. If $DEVICE is not specified, this will return all IPs on the machine. If $DEVICE is set to a network adapter, it will return just that adapter's IP.
This is sample output - yours may be different.
-2

ifconfig $DEVICE | perl -lne '/inet addr:([\d.]+)/ and print $1'

jdob · 2009-07-21 13:48:19 6
Make perl crash

It is not easy to make perl give a segfault, but this does it. This is a known issue but apparently not easy to fix. This is completely useless except for showing people that perl is not bullet-proof. Show Sample Output
This is sample output - yours may be different.
```
Segmentation fault
```
-2

perl -e '$x = []; push @$x, eval { $x = 1; return $x = 1; }'

dstahlke · 2009-10-07 22:42:18 8
Transforms a file to all uppercase.

same, except it works on any OS with Perl installed. DOS, Windose, whatever
This is sample output - yours may be different.
-2

perl -pi -e 's/([[:lower:]]+)/uc $1/gsex' file

linuxrawkstar · 2009-10-08 14:18:50 3
Echo several blank lines

Perl variant of echo several blank lines command
This is sample output - yours may be different.
-2

perl -e 'print "\n"x100'

SunX · 2010-09-07 10:11:10 3
Bulk install

I used this to mass install a lot of perl stuff. Threw it together because I was feeling *especially* lazy. The 'perl' and the 'module' can be replaced with whatever you like.
This is sample output - yours may be different.
-2

apt-cache search perl | grep module | awk '{print $1;}' | xargs sudo apt-get install -y

captwheeto · 2010-11-26 14:00:39 3
Get DELL Warranty Information from support.dell.com

The dates in the output are Start Date, End Date, Days Remaining in warranty, respectively. This will only work if you are running it on a dell machine. You can substitute the dmidecode command with a service tag if you are not using a dell. Also, you have to either allow your user to run sudo dmidecode with no password or run this command as root. Show Sample Output
This is sample output - yours may be different.
```
Product Support for Latitude D820

Your Warranty
Next Business Day Support 4/16/2008 4/16/2010 0
```
-2

curl -Ls "http://support.dell.com/support/DPP/Index.aspx?c=us&cs=08W&l=en&s=biz&ServiceTag=$(dmidecode -s system-serial-number)"|egrep -i '>Your Warranty<|>Product Support for'|html2text -style pretty|egrep -v 'Request|View'|perl -pane 's/^(\s+|\})//g;'

din7 · 2011-02-18 22:29:05 3
Print sorted list of all installed packages (Debian)

A space-padded version: perl -m'AptPkg::Cache' -e '$c=AptPkg::Cache->new; for (keys %$c){ push @a, $_ if $c->{$_}->{'CurrentState'} eq 'Installed';} print "$_ " for sort @a;'
This is sample output - yours may be different.
-2

perl -m'AptPkg::Cache' -le '$c=AptPkg::Cache->new; for (keys %$c){ push @a, $_ if $c->{$_}->{'CurrentState'} eq 'Installed';} print for sort @a;'

dbbolton · 2011-03-14 23:56:43 3
‹ First < 12 13 14 15 >

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

Start a command on only one CPU core

This is useful if you have a program which doesn't work well with multicore CPUs. With taskset you can set its CPU affinity to run on only one core.

Print diagram of user/groups

Parses /etc/group to "dot" format and pases it to "display" (imagemagick) to show a usefull diagram of users and groups (don't show empty groups).

Reduce PDF size

quick integer CPU benchmark

This is a quick and dirty way to generate a (non-floating-point) CPU-bound task to benchmark. Adjust "20" to higher or lower values, as needed. As a benchmark this is probably a little less bogus than bogomips, and it will run anywhere 'bc' does.

Output sound when your computer is downloading something

Outputs pseudo-random sounds to speakers (stereo mode because of -c 2) when there are any kind of network activity.

which program is this port belongs to ?

Sometimes you need to use a port that is already opened by some program , and you don't know who to "kill" for it to release - so, now you do !

back ssh from firewalled hosts

host B (you) redirects a modem port (62220) to his local ssh. host A is a remote machine (the ones that issues the ssh cmd). once connected port 5497 is in listening mode on host B. host B just do a ssh 127.0.0.1 -p 5497 -l user and reaches the remote host'ssh. This can be used also for vnc and so on.

Copy a file from a remote server to your local box using on-the-fly compression

-P displays a progress meter -z tells rsync to use compression

Define a quick calculator function

POSIX compliant arithmetic evaluation. = 10*2+3

Rename files to be all in CAPITALS

Simple bash/ksh/sh command to rename all files from lower to upper case. If you want to do other stuff you can change the tr command to a sed or awk... and/or change mv to cp....

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