Introduction to Perl Part III By Cedric Notredame

Introduction to Perl Part III By: Cedric Notredame Adapted from (BT Mc. Innes)

Hashes n Hashes are like array, they store collections of scalars n. . . but unlike arrays, indexing is by name (just like ine real life!!!) n Two components to each hash entry: n Key example : name n Value example : phone number n Hashes denoted with % n Example : %phone. Directory n Elements are accessed using {} (like [] in arrays)

Hashes continued. . . n Adding a new key-value pair $phone. Directory{“Shirly”} = 7267975 n Note the $ to specify “scalar” context! n Each key can have only one value $phone. Directory{“Shirly”} = 7265797 # overwrites previous assignment n Multiple keys can have the same value n Accessing the value of a key $phone. Number =$phone. Directory{“Shirly”};

Hashes and Foreach n Foreach works in hashes as well! foreach $person (keys (%phone. Directory) ) { print “$person: $phone. Directory{$person}”; } n Never depend on the order you put key/values in the hash! Perl has its own magic to make hashes amazingly fast!!

Hashes and Sorting n The sort function works with hashes as well n Sorting on the keys foreach $person (sort keys %phone. Directory) { print “$person : $directory{$person}n”; } n This will print the phone. Directory hash table in alphabetical order based on the name of the person, i. e. the key.

Hash and Sorting cont. . . n Sorting by value foreach $person (sort {$phone. Directory{$a} <=> $phone. Directory{$b}} keys %phone. Directory) { print “$person : $phone. Directory{$person}n”; } n Prints the person and their phone number in the order of their respective phone numbers, i. e. the value.

Exercise n Chose your own test or use wget “http: //www. trinity. edu/~mkearl/family. html” n Identify the 100 most frequent words

Counting Words while ($l=<F>) { @w=split (/s+/, $l); foreach $word (@w) { $word=~s/[sx]$//; #plurial elimination $seen{$word}++; } } foreach $word (sort {$seen{$a}<=>$seen{$b}} keys %seen) { print “Word $word N: $seen{$word}n”; }

Command Line Arguments n Command line arguments in Perl are extremely easy. n @ARGV is the array that holds all arguments passed in from the command line. n Example: n n %. /prog. pl arg 1 arg 2 arg 3 @ARGV would contain ('arg 1', arg 2', 'arg 3) n $#ARGV returns the number of command line arguments that have been passed. n Remember $#array is the size of the array!

Quick Program with @ARGV n Simple program called log. pl that takes in a number and prints the log base 2 of that number; #!/usr/local/bin/perl -w $log = log($ARGV[0]) / log(2); print “The log base 2 of $ARGV[0] is $log. n”; n Run the program as follows: n % log. pl 8 n This will return the following: n The log base 2 of 8 is 3.

$_ n Perl default scalar value that is used when a variable is not explicitly specified. n Can be used in n For Loops File Handling Regular Expressions

$_ and For Loops n Example using $_ in a for loop @array = ( “Perl”, “C”, “Java” ); for(@array) { print $_. “is a language I known”; } n Output : Perl is a language I know. C is a language I know. Java is a language I know.

$_ and File Handlers n Example in using $_ when reading in a file; while( <> ) { chomp $_; # remove the newline char @array = split/ /, $_; # split the line on white space # and stores data in an array } n Note: n The line read in from the file is automatically store in the default scalar variable $_

$_ and File Handling cont. . Another example similar to the previous example: while(<>) { chomp; # removes trailing newline chars @array = split/ /; # splits the line on white # space and stores the data # in the array } n Notes: n The functions chomp and split automatically perform their respective operations on $_.

Example Program n Count the number of words in a text and display the top 10 most frequency words. #!/usr/local/bin/perl %vocab = (); $counter = 0; while(<>) { chomp; foreach $element (split/ /) { $vocab{$element}++; } } foreach $word (sort {$vocab{$b}<=>$vocab{$a}} %vocab) { print “$word $vocab{$word}n”; if($counter == 10) { last; } $counter++; }

$_ and Regular Expressions n Example in using $_ when using regular expressions while( <> ) { chomp; $_=~s/[. !, ; ]/ /; $_=~s/I am/Why are you/; print “$_? n”; } n Input line : n I am feeling down today. n Output : n Why are you feeling down today?

Perl Modules n What are Perl Modules? Batches of reusable code n Allow for object oriented Perl Programming n n Comprehensive Perl Archive Network (CPAN) Perl utilities n Perl Modules n Perl documentation n Perl distribution n

CPAN Organization n CPAN Material is organized by n n n n Modules Distributions Documentation Announcements Ports Scripts Authors n Distributions are ‘tar-gzipped’ n n tar gzip

Categories of Modules n by-author n Modules are organized by author’s registered CPAN name n by-category n Modules categorized by subject matter n by-module n Modules categorized by module name

Installing a Module n After you have gunziped and untared your module you have two options on installing your module depending upon if you have root privileges to the location where perl modules are installed or you don’t. n If you have root privileges or write access: n n perl Makefile. PL make test make install

Local Install n Need to specify where you would like the module to be installed by setting the PREFIX argument when generating a Makefile from Makfile. PL n n perl Makefile. PL PREFIX=/home/Perl/Modules make test make install

Local Install cont… n Perl usually looks in system wide areas for modules, therefore it will not find your local module unless you tell Perl where to find it. n In your perl program where you will be using your module #!/usr/local/bin/perl use lib ‘<module location>’ use Module. Name;

‘using’ a Perl Module n If we have a module called Test. Module that contains a function test_me(). To use this module we have two options: n Object Oriented use Test. Module; $test = Test. Module->new() $test->test_me() n Standard use Test. Module test_me();

Example Program #!/usr/local/bin/perl use lib ‘home/cs/bthomson/Perl. Modules/Suffix. pm’ use Suffix. pm $sarray->Array: : Suffix->new(); $sarray->create_files(“hamlet. txt”); $sarray->get_ngrams();

Module Documentation n Perl Module Documentation is provided by the module author and usually written in pod format n To view the documentation on the command line n %perldoc modulename n Convert the pod document to the format of your choice: pod 2 text n pod 2 html n pod 2 man n converts to a text file converts to an html file converts to a man page file

Thank you