Category: Perl

Replace one string by another in all file found by find. find . -name *whatyouwant* -exec perl -pi.bak -e ‘s/TEXT_TO_REPLACE/TEXT_TO_REPLACE_IT_WITH/g’…

Just a joke – no offense intended… perl -e ‘a=”etbjxntqrdke”;a=~s/(.)/chr(ord(1)+1)/eg;printa’

If you are getting a ‘Can’t locate CPAN.pm in @INC’ error while opening cpan, you have not installed Bundle::Cpan. You…

Remove comments and blank lines from example.pl sed ‘/ *#/d; /^$/d’ example.pl

A perl script to stop crond if mysqld is down #!/usr/bin/perl # See if MySQL server is alive or not…

Show the headers of an URL from the command line. This will need perl, lwp installed on the system. lwp-request…

Print a file until a regular expression is matched. cat file.txt | perl -pe “exit if(/Thats all/)”

Remove all empty directories within the current directory find . -type d -empty -exec rmdir {} \; perl -MFile::Find -e”finddepth(sub{rmdir},’.’)”…

The command to convert all \n in a file to another string – very useful for list code generation. perl…

This command will list all the files a folder without their extensions. Comes handy when doing shell scripting perl -e…