Notes » perl

Excel Deletes Leading 0s When Opening a CSV File

Alex — Thu, 01 Jul 2010 21:43:30 +0000

If you want Excel to keep a field’s leading zeros when opening a CSV file using Excel, you can change it to =”value”.

For example, if you have a row with 4 values that looks like this:

test,00016102,test,test

Just change it to:

test,="00016102",test,test

Check String for Non-ASCII Characters in Perl

Alex — Sat, 01 Nov 2008 20:19:21 +0000

if ( $string =~ /[[:^ascii:]]/ ) { print "String contains characters that are NOT pure ASCII"; } else { print "Everything is good, string/pure is valid ASCII."; }

E.G.: If it contains bytes > 127, it’s not valid ASCII.

Active Perl’s Package Manager: ppm

Alex — Thu, 07 Aug 2008 02:06:54 +0000

It allows you to get Perl pre-compiled packages. You can avoid installing a C compiler which is needed for some packages (KinoSearch for example).

http://aspn.activestate.com/ASPN/Downloads/ActivePerl/PPM/

Alternate packages repositories:
http://cpan.uwinnipeg.ca/PPMPackages/10xx/

Free Link Checker

Alex — Sun, 07 Oct 2007 02:01:04 +0000

Find bad links, dead links or 404s using churls_web.pl.

The script displays a “.” for each good link and displays the error code and message for each bad link.

Install a Perl Module on a Shared Host

Alex — Tue, 25 Sep 2007 21:16:26 +0000

Make a directory where you will install the modules, eg:

$ mkdir ~/perl

Get and Install the Module
- Manually
  1. Download, extract and change the current directory to the newly created module’s directory and than make and install the module using the following commands:
- Automatically
  1. $ cpan force install Module::Name
  2. $ perl -MCPAN -e 'install Module::Name'
Make sure Perl can find your modules

Add this line in each of your Perl scripts (change perl version accordingly):

use lib '/home/your_username/perl/lib/perl5/site_perl/5.8.7';

OR rather than editing all your Perl scripts, in your cgi-bin/.htaccess file:

SetEnvIf Request_URI "^/cgi-bin/" PERL5LIB=/home/user/perl/lib/perl5/site_perl/5.8.7:/home/user/perl/lib/perl5/site_perl/5.8.7/site_perl

OR in your .bash_profile:

export PERL5LIB=/home/user/perl/lib/perl5/site_perl/5.8.7:/home/user/perl/lib:/home/user/perl/lib/perl5:/home/user/perl/lib/perl5/site_perl

It won’t be effective until you log back in, if you want to make it effective in your current session, just type that line in your command prompt.

Extract Data From Wordnet

Alex — Tue, 25 Sep 2007 20:13:07 +0000

Get a word’s definition(s), synonyms and hyponyms (related words) using perl and WordNet. The word must be specified as a command line argument, but the script could easily be modified to use an html parameter.

What you need:

Download and Install WordNet
Download and Install this Perl interface by Jason Rennie
Download this Perl Script:
usage: perl wordnet.pl word

#!/usr/bin/perl -w

use strict; use warnings; use WordNet::QueryData; my $word = $ARGV[0] or exit(usage()); my $wn = WordNet::QueryData->new; my @senses = $wn->querySense("$word#n", "glos"); my $i = 1; foreach my $sense(@senses) { my $temp_sense = join(",", $wn->querySense($sense, "glos")); my $temp_synset = join(",", $wn->querySense($sense, "syns")); my $temp_hyponyms = join(",", $wn->querySense($sense, "hypo")); $temp_synset =~ s/#\w#\d+//g; $temp_hyponyms =~ s/#\w#\d+//g; $temp_synset =~ s/_/ /g; $temp_hyponyms =~ s/_/ /g; print $i.". ".$temp_sense."\n"; print "Synonyms: ".$temp_synset."\n"; print "Related: ".$temp_hyponyms."\n"; $i++; } sub usage{ print "\n\n\nUsage: ".$0." word\n\n\n\n"; }