Commands using perl sorted by votes

Commands using perl (369)

sorted by

Group page count in pmwiki data base

PmWiki stores wiki pages as Group.Name. Simply split the directory listing and count frequency of group occurances. Show Sample Output
This is sample output - yours may be different.
```
219	Tags
217	Main
212	Twiki
108	Recipes
25	Category
21	Site
13	Profiles
11	RonR
9	Garbage
7	Tam
6	Templates
5	SiteAdmin
4	PmWiki
```
-2

cd /path/to/pmwiki/wiki.d;/bin/ls -1 | perl -ne 'my ($group,$name)=split(/\./);$counts{$group}++;' -e 'END { foreach $group (sort keys %counts) {printf("%d\t%s\n",$counts{$group},$group);} }'|sort -rn

tamouse · 2011-09-14 19:33:39 4
find the biggest files recursively, no matter how many

A different approach to the problem - maintain a small sorted list, print the largest as we go, then the top 10 at the end. I often find that the find and sort take a long time, and the large file might appear near the start of the find. By printing as we go, I get better feedback. The sort used in this will be much slower on perls older than 5.8. Show Sample Output
This is sample output - yours may be different.
```
4833673216 ./Downloads/gnome-2.29.20091103-x86/gnome-2.29.20091103-x86.vmdk
```
-2

find . -type f|perl -lne '@x=sort {$b->[0]<=>$a->[0]}[(stat($_))[7],$_],@x;splice(@x,11);print "@{$x[0]}";END{for(@x){print "@$_"}'

bazzargh · 2012-01-08 14:43:43 3
Dump 389ds schema

Dump 389ds schema, putting "\n " on one line with perl. You have to specify the objectclasses, attributetypes operational attributes too, otherwise they won't be dumped!
This is sample output - yours may be different.
-2

ldapsearch -xLLL -b "cn=schema" "(objectclass=*)" \ \* objectclasses attributetypes | perl -p0e 's/\n //g'

ioggstream · 2012-04-04 13:31:31 4
Find out if a module is installed in perl

This version uses a bash function and does not print the path to the module. Show Sample Output
This is sample output - yours may be different.
```
$ module_exists diagnostics && echo yes || echo no
yes

$ module_exists beeblebrox && echo yes || echo no
no
```
-2

module_exists(){ perl -e 'use '$1 2>/dev/null; }

putnamhill · 2013-01-11 14:47:07 4
Sum some columns on one line in a csv file.

For all lines, sum the columns following the first one, and then print the first column plus the sum of all the other columns. example input: 1,2,3,4,5 2,2,3,4,5 becomes 1,14 2,14
This is sample output - yours may be different.
-2

perl -ne '@a=split(/,/); $b=0; foreach $r (1..$#a){ $b+=$a[$r] } print "$a[0],$b\n"' -f file.csv

miniker84 · 2015-09-04 21:05:56 20
Alternative size (human readable) of directories (biggest first)

Taken from http://www.earthinfo.org/linux-disk-usage-sorted-by-size-and-human-readable/
This is sample output - yours may be different.
-3

function duf { du -k $@ | sort -rn | perl -ne '($s,$f)=split(/\t/,$_,2);for(qw(K M G T)){if($s<1024){$x=($s<10?"%.1f":"%3d");printf("$x$_\t%s",$s,$f);last};$s/=1024}' }

illicium · 2009-06-30 19:20:30 15
perl one-liner to get the current week number
This is sample output - yours may be different.
-3

perl -e 'use Date::Calc qw(Today Week_Number); $weekn = Week_Number(Today); print "$weekn\n"'

imsaar · 2009-12-01 20:56:13 3
copy partition table from /dev/sda to /dev/sdb

*as long as the drives are exactly the same* then this command copies the partition table on /dev/sda to /dev/sdb
This is sample output - yours may be different.
-3

sfdisk /dev/sdb <(sfdisk -d /dev/sda| perl -pi -e 's/sda/sdb/g')

linuxrawkstar · 2009-12-22 22:45:41 3
Replace tabs with spaces in file

Replaces tabs in output with spaces. Uses perl since sed seems to work differently across platforms.
This is sample output - yours may be different.
-3

cat file_with_tabs.txt | perl -pe 's/\t/ /g'

nikc · 2010-07-11 13:01:22 38
list all file extensions in a directory

All with only one pipe. Should be much faster as well (sort is slow). Use find instead of ls for recursion or reliability. Edit: case insensitive Show Sample Output
This is sample output - yours may be different.
```
$ ls | perl -lne '++$x{lc $1} if /[.](.+)$/ }{ print for keys %x'
bash
py
txt
tar.gz

$ find . -maxdepth 1 -name "*.*" | perl -lne '++$x{lc $1} if /[.](.+)$/ }{ print for keys %x'
bash
py
txt
tar.gz
```
-3

ls | perl -lne '++$x{lc $1} if /[.](.+)$/ }{ print for keys %x'

recursiverse · 2010-08-13 20:05:15 4
count occurences of each word in novel David Copperfield

This command might not be useful for most of us, I just wanted to share it to show power of command line. Download simple text version of novel David Copperfield from Poject Gutenberg and then generate a single column of words after which occurences of each word is counted by sort | uniq -c combination. This command removes numbers and single characters from count. I'm sure you can write a shorter version. Show Sample Output
This is sample output - yours may be different.
```
aback	1
abandon	6
abandoned	13
abase	1
abased	1
abashed	7
abated	1
abatement	1
...
```
-4

wget -q -O- http://www.gutenberg.org/dirs/etext96/cprfd10.txt | sed '1,419d' | tr "\n" " " | tr " " "\n" | perl -lpe 's/\W//g;$_=lc($_)' | grep "^[a-z]" | awk 'length > 1' | sort | uniq -c | awk '{print $2"\t"$1}'

alperyilmaz · 2009-05-04 16:00:39 11
Replace text in several files

-p -> loop (same as -n in sed) -i -> edit files -e -> execute command replace Old with New in all *.html files
This is sample output - yours may be different.
-4

perl -p -i -e ?s/New/Old/g? *.html

chappado · 2009-11-16 13:40:13 5
yesterday
This is sample output - yours may be different.
-4

perl -lne 'use POSIX; print strftime("%Y-%m-%d", localtime(time() - 86400));'

unixmonkey7263 · 2009-12-01 22:31:34 14
Creating a pseudo-random password
This is sample output - yours may be different.
-4

perl -e 'print crypt("PASSWORD",int(rand(128))).$/;'

cicatriz · 2010-09-30 12:58:39 3
Replace square brackets to underscore in all filenames (current dir.)
This is sample output - yours may be different.
-5

perl -e 'map { $on=$_; s/\]/_/; rename($on, $_) or warn $!; } <*>;'

fo0 · 2009-06-11 10:09:54 6
Convert CSV to TSV
This is sample output - yours may be different.
-5

perl -pe 's/,/\t/g' < report.csv > report.tsv

viner · 2009-07-23 15:39:42 6
Checks your unread Gmail from the command line

notice what happens when there is more than one unread message in a thread... also people please dont hardcode the password when you use curl. Leave it out and curl will ask you when it runs. Please...?
This is sample output - yours may be different.
-6

curl -u username --silent "https://mail.google.com/mail/feed/atom" | perl -ne 'print "\t" if /<name>/; print "$2\n" if /<(title|name)>(.*)<\/\1>/;

suxer · 2009-09-09 23:25:05 8

Art of hacking on perl

Print "Art of hacking..." 100 times by perl or you can this tools : http://packetstormsecurity.org/shellcode/shellcodeencdec.py.txt Show Sample Output

This is sample output - yours may be different.

gunslinger@localhost:~/shellcode$ perl -e 'print "\x41\x72\x74\x20\x6f\x66\x20\x68\x61\x63\x6b\x69\x6e\x67\x2e\x2e\x2e\n" x 100'
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
Art of hacking...
gunslinger@localhost:~/shellcode$

-15

perl -e 'print "\x41\x72\x74\x20\x6f\x66\x20\x68\x61\x63\x6b\x69\x6e\x67\x2e\x2e\x2e\n" x 100'

gunslinger_ · 2010-07-11 16:32:00 7

hello Command-line-fu

hello
This is sample output - yours may be different.
-27

perl -e 'print "Hello World!", "\n";'

netp · 2009-03-24 14:58:01 9
‹ First < 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

remove audio trac from a video file

create a copy of a video file without the audio tracs

Currency Conversion

This works in Mac OS X (10.6.2) (natively comes with curl) usage: currency_convert $1(amount) $2(from_denomination) $3(to_denomination)

identify exported sonames in a path

This provides a list of shared object names (sonames) that are exported by a given tree. This is usually useful to make sure that a given required dependency (NEEDED entry) is present in a firmware image tree. The shorter (usable) version for it would be $ scanelf -RBSq -F "+S#f" But I used the verbose parameters in the command above, for explanation.

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

Show bash's function definitions you defined in .bash_profile or .bashrc

If you omit the function name, the command will display all definitions

Create the directoty recursively

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

How to secure delete a file

Instead, install apt-get install secure-delete and you can use: -- srm to delete file and directory on hard disk -- smem to delete file in RAM -- sfill to delete "free space" on hard disk -- sswap to delete all data from swap

Project your desktop using xrandr

HDMI-1 is the interface in the example, which can be obtained just by typing xrandr and surfing through the output. There are a hell lot of configurations that can be done but I prefer auto because it works in most cases. $ Lifesaver

Grep for regular expression globally, list files and positions.

Grep for expression globally, list files and positions. "Hirn" is a nice german crib meaning "Brain". :-) Afterwards you can edit the line you want with "vi ./p_common/common_main.pbt +1550"

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