• The code needs to be modified if the hash keys contain any digits
• The sort algorithm can be changed as per the requirement, by default I’m sorting by hash values which are digits

print grep {s/\d//g} grep {/1/} map { $i+=1 , $_.=$i , “\n”} sort {$hash{$a} <=> $hash{$b}} keys %hash;

Download the module from CPAN or elsewhere. Place it in any directory, where you have permissions. Preferably, create a directory called

lib

in the application directory and place your module there. Untar it, you will see a few files and folders – Makefile.pl (to install the module, we don’t need this) , Readme.txt (this either), Examples (not required), lib directory – this is the only thing we are concerned with. It contains the main module files. Go inside the lib directory, and copy all the folders (if any) and all .pm files and place them directly inside the lib directory you just created. Remove all other files and folders.

The next thing which you need to do is go to the Perl code where you want to use that module and write the following:

BEGIN { unshift @INC, "./lib"; }

use Module::Name;

And voila!! Your code works like a charm with all the functionalities of the module included.

How it works? - When you use a module in a program, like

use CGI::Ajax;

perl searches for it in a predefined library search path on the system. You can determine which directories are in the path by executing

perl -e 'print for @INC;'

Any module in order to be usable in the program needs to be in any of the directories above, which is where the modules get installed if installed via

cpan or ppm

command or using Makefile.pl.

But in the situation discussed, it is not the case, as we cannot install a module as it should be. Instead what we do is place the modules in a directory of our choice (lib) and then insert the path of that directory in the

@INC

so that later when the perl interpreter tries to do

use Module::Name;

it finds its path in

@INC

Why BEGIN { } ? -

use Module::Name

happens at compile time, when the interpreter reads the program while

unshift @INC, "./lib"

happens at run-time, after the compilation, i.e, attempt to load the module, even if the latter is placed above the former in the program. So in order to force the program to modify

@INC

before trying to use the module, we use

BEGIN { }

block. Any code which is written within

BEGIN { }

block is executed at compile-time as opposed to other code which is executed at run-time.

Note: Remember that many modules have further dependencies, i.e. modules which are required for the former to work. And if these dependencies are not on the system, the code won’t work. You need to perform the above operations for each of those dependencies as well. For example, if CGI::Ajax requires Class::Accessor to work, you need to

a) create the directory CGI and place Ajax.pm within it

b) create the directory Class and place Accessor.pm and the directory Accessor within it and

c) unshift/push the path of the directory which contains these 2 directories CGI and Class, into @INC.

I have used this method to use more than 30 odd modules and have faced no difficulty whatsoever. However it will not work if the module’s Makefile.pl does more than just copying the .pm files in the right place and do some other work such as using external C libraries etc.

Another method of extending

@INC

is setting the

PERL5LIB

environment variable on your system to include the path of the manually placed modules.

In Bourne Shell do something like-

PERL5LIB=/path/to/module/directory; export PERL5LIB

It is useful when you do no want to write the BEGIN blocks in all the files where you use the module. But only users who are setting the

PERL5LIB

environment variable can only use it and other users can’t.

@b=map +{keys %$_} , map +{chr}, grep {!/6[68]|7[0137]|81/} (65..85);

%hs1=(74,1,85,2,83,3,84,4);
%hs2=(65,1,78,2,79,3,84,4,72,5,69,6,82,7);
%hs3=(80,1,69,2,82,3,76,4);
%hs4=(72,1,65,2,67,3,75,4,69,5,82,6);

for $i(1..4) { $n=”h2″.$i;for (0..13) {@abc=keys %{$b[$_]};$k=pop @abc;map { ${$n}{$_}++ } keys %{$b[$_]} if ((($i==1) && ($k=~m![tsuj]!i)) || (($i==2) && ($k=~m![rehtona]!i)) || (($i==3) && ($k=~m![lrep]!i)) || (($i==4) && ($k=~m![rekcah]!i))); }}

for (1..4){$m=”h2″.$_;$ms=”hs”.$_; print sort {${$ms}{ord $a} <=> ${$ms}{ord $b}} keys %{$m}, ” “;}

I particularly don’t like two parts of the above code -

1) The 4 hashes at the top – they are used to sort the letters in the words (It took most of my time)

2) The big if ( ) { } block – it kinda gives the code a very amateurish look.

So while I work on improving myself, do give in some suggestions if you may please

And if you think that was smart, then have a look at http://www.cpan.org/misc/japh or http://en.wikipedia.org/wiki/JAPH for some of the most astonishing piece of coding across any language on this planet.

1. Go to Start —-> Run . Type regedit, then enter
2. Navigate to HKEY_CURRENT_USER ——–> Software —> Yahoo!  —–>pager—->Test
3. On the right pane , right-click and choose new Dword value
4. Rename it as Plural
5. Double click and assign a decimal value of 1
6. Now close registry and restart Yahoo! messenger .For signing in with new id open another messenger. Open as many messengers u need

The above has been tested on Windows XP and Yahoo! Messenger Version 8.1.

Cheers

Screenshots -

PS-Will soon be putting up a list of great FF Extensions I use, in the sidebar. Keep Watching