In order to find out a Google Pagerank of a webpage, we can use the WWW::Google::PageRank module in Perl.
Click WWW::Google::PageRank to download the Google Pagerank module. Here is a simple script that takes the Website URL as a command line argument and prints the Google PageRank.

#!/usr/bin/perl
 
$webpage = $ARGV[0];
 
use WWW::Google::PageRank;
my $pagerank = WWW::Google::PageRank->new;
print scalar($pagerank->get($webpage)), "\n";

In order to remove an element from the array or hash, we have to use the delete keyword on perl. Using the delete keyword on the key of the hash or array (numeric keyed hash), we can delete elements of a hash or array.

Example for deleting an element from a hash

The following code deletes the key 'a' from the hash

%hash

.

#!/usr/bin/perl
$, = "\n"; # Fields separator
my %hash = (
'a' => 'aaa', 
'b' => 'bbb',
'c' => 'ccc',
);
 
print %hash;
delete $hash{a}; #key value pair 'a' => 'aaa' would be deleted
print %hash;

Net::MySQL is a simple MySQL perl Client to connect to MySQL servers. But Net::MySQL hangs if your result set is having just one row.

Sample Net::MySQL code

#!/usr/bin/perl
 
use Net::MySQL;
 
$mysql = Net::MySQL->new(
	hostname => 'localhost',
	database => 'db',
	user     => 'user',
	password => 'password',
);
 
$gid = 1;
 
$mysql->query('SELECT * FROM table WHERE id = 1');
 
if ($mysql->has_selected_record) {
	my $record_set = $mysql->create_record_iterator;
	while(my $record = $record_set->each) {

unrecognized command line option "-fstack-protector" error usually comes on Cygwin when installing PERL modules.
For example when installing the DBI module or DBD::MySQL perl module, the following error comes on cygwin :

cp lib/DBI/Gofer/Serializer/Base.pm blib/lib/DBI/Gofer/Serializer/Base.pm
cp dbipport.h blib/arch/auto/DBI/dbipport.h
cp lib/DBI/Gofer/Execute.pm blib/lib/DBI/Gofer/Execute.pm
cp lib/DBI/DBD.pm blib/lib/DBI/DBD.pm
cp lib/Win32/DBIODBC.pm blib/lib/Win32/DBIODBC.pm
cp lib/DBI/PurePerl.pm blib/lib/DBI/PurePerl.pm

When using PERL and WWW::Mechanize, your script can stop if there is some error in GETing a URL (such as 404 Not Found, 403 Permission Denied). Instead of resuming, the script terminates. If you want the script to continue resuming, you have to pass

autocheck => 0

in the Mechanize class constructor as shown below

my $mech = WWW::Mechanize->new(autocheck => 0);

The code below is a perl script that fetches the PNR status from the indianrail.gov.in website and displays it on the command line.

Warning: No one is authorised to make any type of commercial usage like putting web advertisements or SMS service and Reproducing/Transmitting/Storing in its database, any content of www.indianrail.gov.in website, without prior written permission from Indian Railways. Violators will be severely prosecuted.

The following script sends SMS to any number in INDIA using the free service provided by Way2Sms.com
Requires WWW::Mechanize and Compress::Zlib libraries.

Please remember to fill the username and password in the fields that is mentioned in the script.

#!/usr/bin/perl
 
use WWW::Mechanize;
use Compress::Zlib;
 
my $mech = WWW::Mechanize->new();
 
my $username = ""; #fill in username here

This is the script for sandeep when he asked me how to delete a directory in perl. rmdir function only removes empty directories. So we need to remove the contents of the directory before removing the directory. So if the directory contains more directories / folders we would have to recursively delete all the directories under the directory. Well so here is the code just to do that.