Let it spin!Iowa State UniversityComplex Computation LabIowa State UniversityLet it spin!

GoogleWebmail

 

Place Your Main Title Here

Vect

Installing Perl
-Mac
-Windows

-Unix

Download

Change Log

Documentation

-Reference Manual

-GenBank Data Extraction

-Statistical Data Extraction

-Numerical Data Extraction

- Patent Calculation

FAQ

Cookbook

 Part II <Calculation> (continued)

12. Click on user rule.


It will bring up a new window. There are already some simple Perl scripts written there. It looks very complicate, but don't worry! They are mostly comments and explanations of what the code written there actually does. (When you see # sign in front of sentence, it means the sentence is a comment, not Perl language.)


It would be very useful if you know some Perl language. If you do know, you may write your own script. However, because this tutorial is not to teach you how to write Perl language, we will give you an example of Perl script for counting the total number of each patent. You can copy and paste the Perl script shown below:


my %summary;

sub {

   my ($type, $count) = @_;

   return (%summary) if !defined($type);
   $count += 0;
   if (!defined($summary{$type})) {
     $summary{$type} = $count;
   } else {
     $summary{$type} += $count;
   }
   return;

}


Copy the Perl script above and paste it onto the Code Editing.

Click 'OK'.


The result should look like the image below (Total number of Utility:7001, Sir: 4, Reissue:12, Plant:26, and Design: 750):