How to send mail when Googlebot crawls a webpage of your website

How to send an email, as soon as Googlebot crawls a webpage of your website, in PHP? Many of us have always wished to get some kind of intimation as soon as Google (Googlebot to be specific) crawls our websites. Isn’t it? Don’t know if there are any tools available for the same but what […]

How to compare the execution time of PHP code blocks

How to compare the execution time of PHP code blocks? Sometimes we want to test our code for efficiency and execution time by comparing it with other code. Here’s how you can compare two code blocks in PHP and decide which one is faster (helps in optimization of code). $str = ‘1,2,3,4,’; //we will trim […]

Alter Regular Expression Match Position in Perl

How to alter the regular expression match position? The perl function pos() retrieves or modifies the position where the next match attempt is going to begin. The beginning of a string (first character) has a position zero. This position can be modified by using the function as the left side of an assignment, e.g., pos($string) […]

How to get elements from one array but not in another array in perl

How to get elements from one array but not in another array. Or, in other words, how to get elements from one array minus elements from another array. The task can be simplified and made efficient (less loops and less iterations) by creating a hash (associative array) from one array elements and then matching all […]

How to know if document exists on a URL in perl

Pinging a server doesn’t not actually tell if the web server is up and available or not. To check if a server is available and responding or a document exists on a URL, use this, use LWP::Simple; $URL=’http://www.expertsguide.info/'; if (head($URL)) { print ‘$URL exists’ ; } else { print ‘URL does not contain anything'; } […]

Greedy Search in Perl Regular Expressions

You might have come across the problem of .* capturing all the pattern it matches in the string, while you wanted only a part of it. E.g., $var = ‘some_url?id=1&number=2&name=Peter&address=someaddress'; In the above string if you only want to capture the value of “id” (i.e. 1) and you use this regex $var =~ /\?(.*)=(.*)\&/ ; […]

How to find all occurrences of a string in another string using Perl

How to find all occurrences of a string in another string using Perl? #!/usr/bin/perl use strict; use warnings; my $string = ‘needle in the haystack. needle again. needle'; my $find_me = ‘needle'; my $offset = 0; my $result = index($string, $find_me, $offset); while ($result != -1) { print “Found $find_me at $result\n”; $offset = $result […]