Lehekülje Perl lähteteksti vaatamine

===Sissejuhatus===

Perl (Practical Extraction and Report Language, praktiline väljavõtete ja raportite koostamise keel) http://www.perl.org/ on suhteliselt populaarne programmeerimiskeel, mille lõi Larry Wall http://en.wikipedia.org/wiki/Larry_Wall 1987 aastal ja millele peetakse iseloomulikuks

* kasutamise lihtsus, st kiiresti õpitav ja saab kiiresti jõuda kasutatavate tulemusteni
* keele küpsus
* sobib mitmekesiste ülesannete lahendamiseks, eriti tekstitöötlus (ingl. k. general purpose language)
* Perl on skriptimiskeel (ingl. k. scripted language) st programmid on koheselt käivitatavad ja ei vaja kompileerimist
* Perl on vaba tarkvara

2010 aastal on levinud kasutada Perl v. 5.x.

Mõned populaarsed vaba tarkvaralised Perli rakendused on näiteks

* Sympa - postiloendi server (ingl. k. listserver) tarkvara
* OTRS - probleemihalduse süsteem
* SpamAssassin - eposti spami analüüsivahend
* Bugzilla - veahaldussüsteem

Lisaks kasutatakse Perli ohtrasti kommertstarkvara koosseisus, nt Oracle ja VMware.

===Perli paigaldamine===

Debian Lenny paketihaldus sisaldab Perl v. 5.10 tarkvara.  Kasutaja saab Debiani pakettidest Perli baasfunktsionaalsusele juurde lisada spetsiaalseid võimalusi, nt andmebaasi kasutamiseks või HTTP päringute tegemiseks. Reeglina esinevad Perli moodulite pakettide nimed kujul libXXX-perl või libXXX-YYY-perl, nt

* libdbd-pg-perl - PostgreSQL andmebaasi kasutamiseks vajalik pakett
* libwww-perl - HTTP päringute kasutamiseks vajalik pakett

Lähteteksti kujul jagatavad Perli teegid on kogutud CPAN (Comprehensive Perl Archive Network) arhiivi aadressile http://www.cpan.org/. CPAN kasutamisel peab kasutaja ise jälgima, mida ta sealt kasutab, tundub, et seal on väga erineva kvaliteediga tarkvara.

===Programmeerimine Perlis===

TODO

===Perli skript===

Perli skript esineb tekstifaili kujul, selline skript kirjutab välja arvud ühest kolmeni

 for (1..3) {
   print "$_\n";
 }

kus

* TODO

Skripti käivitamiseks sobib öelda

 $ perl skript.pl
 1
 2
 3

Alternatiiviks on lisada faili algusse rida interpretaatori nimega

 #!/usr/bin/perl
 
 for (1..3) {
   print "$_\n";
 }

ning muuta fail käivitatavaks

 $ chmod 0755 skript.pl

ning käivitada

 $ ./skript.pl

Lisaks töötavatele ridadele võib skriptis esineda kommentaare, kõike # märgist paremale jäävat käsitletakse kommentaarina.

===Sõne-operatsioonid===

Sõnedega (ingl. k. string) saab teha nt selliseid operatsioone

* omistada muutujale ja esitada 

 $linn = "Tartu";
 print $linn;

* liita punkti abil

 $linn = "Tartu";
 print "Asukoht " . $linn;

===Andmestruktuurid===

====Sõne====

Sõne (ingl. k. string) on järgnevus tähti-numbreid-muid-sümboleid

 'abcdefgh'

====Arv====

Arv (ingl. k. number) võib olla nt täisarv või ujukomaarv

 15

Kuna Perl on nõrga tüübiskeemiga keel, siis saab nt liita arve ja sõnesid

 print "mina tulen kell " . 10 . "\n";

====Masiiv====

Massiiv (ingl. k. array) ...

====Sõnastik====

Sõnastik (ingl. k. associative array)

 %sonastik = ("Priit", 28 ,"Mart", 19, "Mari", 18, "Endel", 65);

Sõnastiku elemendi "Priit" poole saab pöörduda nii, elemendi väärtuseks on 28

 $sonastik{"Priit"};

===Failioperatsioonid===

Failioperatsioonid tegelevad failist lugemise ja faili kirjutamisega.

====Lugemine====

Tekstifailist lugemiseks sobib kasutada nt sellist järgnevust

 open (fh, 'urlid.txt');
 @read=<fh>;
 foreach $rida(@read) {
   print $rida;
 }

kus

* open (fh, 'urlid.txt') - avab tekstifaili
* @read täidab massiivi ridade väärtustega
* foreach-korduse abil esitatakse massiivi elementideks olevad read

====Kirjutamine====

Faili kirjutamist kirjeldab nt selline programmilõik

 @read = ("loomaaed.tartu.ee", "kuutorvaja.eenet.ee", "www.eesti.ee");
 open (fh, ">urlid.txt");
 foreach $rida(@read) {   
   print fh "$rida\n";
 }

kus

* @read - massiivi elemendid vastavad ridadele
* open - avab faili urlid.txt kirjutamiseks, kusjuures > tähendab, et igal skripti käivitamisel faili sisu kirjutatakse üle
* foreach korduse abil töötatakse @read massiivi elemendid läbi
* print kirjutab failiga urlid.txt seotud failipidemesse fh

===Tingimused===

Perlis saab kasutada selliseid tingimusi

* if-elsif-else tingimus 

 $x = 1;
 
 if ($x < 0) {
   print "Alla nulli\n"; }
 elsif ($x == 0) {
   print "Null\n"; }
 elsif ($x == 1) {
   print "Yks\n"; }
 else {
   print "Suurem yhest\n"; }

===Kordused===

====for-kordus====

 for ($i = 1; $i < 4; $i++) {
   print "$i\n";
 }

kus

* for-kordus väärtustab muutuja $i järjest suurenevalt väärtustega 1, 2, 3
* print esitab väärtus ja reavahetuse märgi
* lause lõpetab semikoolon

====foreach-kordus====

 @linnad=("Tartu", "Tallinn", "Voru", "Elva");
 foreach $linn(@linnad)
   {
     print "$linn\n";
   }

kus

* TODO

====while-kordus====

Tingimust kontrollitakse iga korduse alguses ja kui see on tõene, siis lause täidetakse

 $i = 0;
 while ($i < 3)
   {
     print "muutuja i vaartus on: $i\n";
     $i=$i+1;
   }

===Funktsioonid===

Funktsioonid võimaldavad üldiselt kahte asja

* korraldada programmi osade korduvkasutust
* jagada programmi loogilisteks osadeks

Funktsioon kireldatakse sub direktiivi abil, nt selliselt

 sub korrutamine {
   $result = $_[0] + $_[1];
   return $result;
 }

Toodud funktsiooni sobib välja kutsuda selliselt, kogu programm oleks

 sub korrutamine  {
   $result = $_[0] + $_[1];
   return $result;
 }
 
 $korrutis = korrutamine(4, 5);
 print $korrutis, "\n";

===HTTP===

LWP teek võimaldab teha Perlist http päringuid, paigaldamiseks sobib öelda

 # apt-get install libwww-perl

Kasulikud lisamaterjalid

* dpkg -L libwww-perl
* man LWP

====GET päring====

GET päringu tegemiseks sobib öelda

 use LWP;
 my $browser = LWP::UserAgent->new;
 my $url = 'http://ftp.aso.ee/README';
 my $response = $browser->get( $url );
 print $response->content;

====Perli CGI skript====

Lisaks peab CGI skript rahuldama järgmisi tingimusi: 
skript peab asuma kataloogistruktuuri html all 
skript peab kuuluma sellele kasutajale, kelle veebikohale vastavas kataloogistruktuuris ta asub 
skriptile ei tohi viidata absoluutse (/ee/edu/zoo/www/html/skript.cgi) teega 
skript peab olema kirjutatav vaid kasutajale endale 
skriptile peab olema antud käivitamisõigus, näiteks käsuga 'chmod 755 skript.cgi' 

Skripti esimesel real tuleb näidata Perli interpretaatori asukoht (/usr/bin/perl). Esimese asjana peab skript väljundisse kirjutama HTTP päise. Kui määratletakse Content-type, näiteks 'text/html', peab sellele järgnema kaks reavahetust. 

Näiteks selline Perlis kirjutatud CGI skript trükib brauseris ekraanile 'Tere rahvas!' 

 #!/usr/bin/perl
 print "Content-type: text/html\n\n";
 print "<HTML><BODY>";
 print "Tere rahvas!";
 print "</BODY></HTML>";

Näite vaatamiseks järgige viidet perl.cgi

Kui te kasutate CGI skripte veebivormidega tegelemisel, siis on tõenäoliselt neid tarvis töödelda. Selleks soovitame meie serveris, va erilisel vajadusel kasutada Perli CGI.pm moodulit. Näiteks töötleme CGI.pm mooduli vahenditega järgmist vormi 

 <HTML>
 <BODY>
 <FORM ACTION="plkontroll.cgi" METHOD="POST">
 nimi: <INPUT TYPE="text" NAME="nimi" ><br>
 linn: <INPUT TYPE="text" NAME="linn" ><br>
 koht: <INPUT TYPE="text" NAME="koht" ><br>
 <input type="reset" value="Puhasta väljad">
 <input type="submit" value="OK">
 </FORM>
 </BODY>
 </HTML>

Vormis sisalduv ACTION="plkontroll.cgi" kutsub välja sellise CGI skripti plkontroll.cgi 

 #!/usr/bin/perl
 use CGI;
 $q = new CGI;
 #
 # tekitatakse HTTP päis,
 # see on ekvivalentne käsuga
 # print "Content-type: text/html\n\n";
 #
 print $q->header('text/html');
 #
 # tekitatakse HTML-dokumendi algus,
 # see on ekvivalentne käsuga
 # print "<HTML><HEAD><TITLE>Dokumendi tiitel</TITLE></HEAD><BODY>";
 #
 print $q->start_html('Dokumendi tiitel');
 print "Vormilt saadi järgmised väärtused:<br>";
 print "nimi:", $q->param('nimi'), "<br>";
 print "linn:", $q->param('linn'), "<br>";
 print "koht:", $q->param('koht'), "<br>";
 #
 # väljastatakse HTML-dokumendi lõpp,
 # see on ekvivalentne käsuga
 # print "</BODY></HTML>";
 #
 print $q->end_html;

===PostgreSQL andmebaasi kasutamine===

DBD::Pg http://search.cpan.org/dist/DBD-Pg võimaldab Perlist kasutada PostgreSQL andmebaasi. Tarkvara paigaldamiseks Debian operatsioonisüsteemis sobib öelda

 # apt-get install libdbd-pg-perl

Kasulikud lisamaterjalid

* man DBD::Pg

====Andmete lugemine====

Skript küsib andmebaasi tabelist priit.priidutabel kahte väärtust

 use DBI;
 
 $dbh = DBI->connect("dbi:Pg:dbname=baasinimi;host=192.168.10.205;port=5432", 'kasutajanimi', 'parool', {AutoCommit => 0});
 
 $sth = $dbh->prepare( "SELECT nimi, vanus FROM priit.priidutabel where nimi = 'Priit Kask'");
 $sth->execute;
 
 while ( ($nimi, $vanus) = $sth->fetchrow()){
   print "nimi: $nimi, vanus: $vanus\n";
 }

kus

* DBI->connect moodustab andmebaasiga ühenduse
* $dbh->prepare valmistab ette päringu
* $sth->execute esitab päringu
* $sth->fetchrow() tagastab vastused rea kaupa
* while-kordus esitab vastuse rea kaupa kuni ridu on

====Andmete sisestamine====

Andmete baasi sisestamisel tuleb lisaks öelda commit

 use DBI;
 $dbh = DBI->connect("dbi:Pg:dbname=baasinimi;host=192.168.10.205;port=5432", 'kasutajanimi', 'parool', {AutoCommit => 0});
 
 $sth = $dbh->prepare( "insert into priit.priidutabel (nimi, vanus) values ('Marta', 54)");
 $sth->execute;
 $dbh->commit();

===MySQL andmebaasi kasutamine===

DBD::mysql http://search.cpan.org/dist/DBD-mysql/ võimaldab Perlist kasutada MySQL andmebaasi. Tarkvara paigaldamiseks Debian operatsioonisüsteemi sobib öelda 

 # apt-get install libdbd-mysql-perl

Kasulikud lisamaterjalid

* man DBD::mysql

====Andmete lugemine====

Skript küsib andmebaasi tabelist priidutabel kahte väärtust 

 use DBI;
 $dbh = DBI->connect("dbi:mysql:dbname=baasinimi;host=192.168.1.247;port=3306", 'kasutajanimi',\
   'parool',  {AutoCommit => 0});
 
 $sth = $dbh->prepare( "SELECT nimi, vanus FROM priidutabel where nimi='Priit Kask'");
 $sth->execute;
 
 while ( ($nimi, $vanus) = $sth->fetchrow()){
   print "nimi: $nimi, vanus: $vanus\n";
 }

kus

* DBI->connect moodustab andmebaasiga ühenduse
* $dbh->prepare valmistab ette päringu
* $sth->execute esitab päringu
* $sth->fetchrow() tagastab vastused rea kaupa
* while-kordus esitab vastuse rea kaupa kuni ridu on

====Andmete sisestamine====

Andmete baasi sisestamisel tuleb lisaks öelda commit 

 use DBI;
 $dbh = DBI->connect("dbi:mysql:dbname=baasinimi;host=192.168.1.247;port=3306", 'kasutajanimi', \
   'parool', {AutoCommit => 0});
 $sth = $dbh->prepare( "insert into priidutabel (nimi, vanus) values ('Marta', 'Magnusson')");
 $sth->execute;
 $dbh->commit();

===Oracle andmebaasi kasutamine===

DBD::Oracle http://search.cpan.org/~pythian/DBD-Oracle/ võimaldab Perlist kasutada MySQL andmebaasi, eelduseks on, et süsteemi on paigaldatud [[:Oracle Instant Client]] tarkvara

 oracle-instantclient11.2-basic-11.2.0.1.0-1.x86_64.zip
 oracle-instantclient11.2-sdk-11.2.0.1.0-1.x86_64.zip
 oracle-instantclient11.2-sqlplus-11.2.0.1.0-1.x86_64.zip

Lisaks peab olema paigaldatud libdbi-perl pakett

 # apt-get install libdbi-perl

ning tuleb kompileerida DBD-Oracle tarkvara aadressilt http://search.cpan.org/CPAN/authors/id/P/PY/PYTHIAN/DBD-Oracle-1.24a.tar.gz

 # export LD_LIBRARY_PATH=/opt/instantclient
 # export ORACLE_HOME=/opt/instantclient
 # export TNS_ADMIN=/opt/instantclient
 # tar zxf DBD-Oracle-1.24a.tar.gz
 # cd DBD-Oracle-1.24
 # perl Makefile.PL
 Using DBI 1.605 (for perl 5.010000 on x86_64-linux-gnu-thread-multi) installed in /usr/lib/perl5/auto/DBI/
 
 Configuring DBD::Oracle for perl 5.010000 on linux (x86_64-linux-gnu-thread-multi)
 
 Remember to actually *READ* the README file! Especially if you have any problems.
 
 Installing on a linux, Ver#2.6
 Using Oracle in /opt/instantclient
 DEFINE _SQLPLUS_RELEASE = "1102000100" (CHAR)
 Oracle version 11.2.0.1 (11.2)
 Looks like an Instant Client installation, okay
 You don't have a libclntsh.so file, only /opt/instantclient/libclntsh.so.11.1
 So I'm going to create a /opt/instantclient/libclntsh.so symlink to /opt/instantclient/libclntsh.so.11.1
 Your LD_LIBRARY_PATH env var is set to '/opt/instantclient'
 Oracle sysliblist: 
 Found header files in /opt/instantclient/sdk/include.
 
 Checking for functioning wait.ph
 
 System: perl5.010000 linux brahms 2.6.30.5-dsa-amd64 #1 smp mon aug 17 02:18:43 cest 2009 x86_64 gnulinux 
 Compiler:   cc -O2 -g -D_REENTRANT -D_GNU_SOURCE -DDEBIAN -fno-strict-aliasing -pipe -I/usr/local/include \
   -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64
 Linker:     /usr/bin/ld
 Sysliblist: 
 Linking with -lclntsh.
 
 Checking if your kit is complete...
 Looks good
 LD_RUN_PATH=/opt/instantclient
 Using DBD::Oracle 1.24.
 Using DBD::Oracle 1.24.
 Using DBI 1.605 (for perl 5.010000 on x86_64-linux-gnu-thread-multi) installed in /usr/lib/perl5/auto/DBI/
 Writing Makefile for DBD::Oracle
 
 ***  If you have problems...
      read all the log printed above, and the README and README.help.txt files.
      (Of course, you have read README by now anyway, haven't you?)
 # make
 # make install

Tulemusena paigaldatakse failisüsteemi

 /usr/local/lib/perl/5.10.0/auto/DBD/Oracle
 /usr/local/lib/perl/5.10.0/DBD/Oracle*

Kasulikud lisamaterjalid

* man DBD::Oracle

Nt selline skript kasutab Oracle andmebaasi

 use strict;
 use DBI;
 
 my $dbh = DBI->connect( 'dbi:Oracle:host=IP.AA.DRE.SS;sid=SID_VAARTUS', 'kasutajanimi', 'parool',
   {
     RaiseError => 1,
     AutoCommit => 0
   }   ) || die "Database connection not made: $DBI::errstr";
 
 my $sql = qq{ SELECT nimi, vanus from klassifikaator };
 my $sth = $dbh->prepare( $sql );
 $sth->execute();
 
 my ( $nimi, $vanus );
 $sth->bind_columns( undef, \$nimi, \$vanus );
 
 while( $sth->fetch() ) {
   print "$nimi, $vanus\n";
 }
 
 $sth->finish();
 $dbh->disconnect();

Korrektsem oleks kasutada /opt/instantclient/tnsnames.ora sisuga

 dbloom =
  (DESCRIPTION =
    (ADDRESS = (PROTOCOL = TCP)(HOST = db.loom)(PORT = 1521))
    (CONNECT_DATA =
      (SERVER = DEDICATED)
      (SERVICE_NAME = db.loom)
    )
  )

ja skriptis rida

 my $dbh = DBI->connect( 'dbi:Oracle:SID_VAARTUS', 'kasutajanimi', 'parool',

===SMTP===

Email::Sender http://search.cpan.org/dist/Email-Sender/ võimaldab Perlist saata SMTP serveri vahendusel välja kirju. Tarkvara paigaldamiseks sobib öelda

 # apt-get install libemail-sender-perl

Nt selline skript saadab välja kirja SMTP serveri vahendusel

 use strict;
 use Email::Sender::Simple qw(sendmail);
 use Email::Simple;
 use Email::Simple::Creator;
 use Email::Sender::Transport::SMTP;
 
 my $email = Email::Simple->create(
   header => [
      To      => '"Mart Kask" <mart@loomaaed.tartu.ee>',
      From    => '"Priit Kask" <priit@loomaaed.tartu.ee>',
      Subject => "Oluline teade",
   ],
   body => "See kiri on saadetud libemail-sender-perl abil.\n",
 );
 
 my $transport = Email::Sender::Transport::SMTP->new({
    host => '192.168.1.250',
    port => 25,
 });
 
 sendmail($email, { transport => $transport });

===DNS===

Net::DNS http://www.net-dns.org/ võimaldab Perlist esitada DNS päringuid. Tarkvara paigaldamiseks tuleb öelda

 # apt-get install libnet-dns-perl

Kasulikud lisamaterjalid

* man Net::DNS

Skript esitab domeeninimele vastavate MX kirjete ip aadressid

 use Net::DNS;
 my $res = Net::DNS::Resolver->new;
 my  @mx = mx($res, "loomaaed.tartu.ee");
 
 foreach $rr (@mx) {
   print $rr->preference, " ", $rr->exchange, "\n";
 }

===LDAP===

Net::LDAP http://ldap.perl.org/ võimaldab Perlist kasutada LDAP kataloogi. Tarkvara paigaldamiseks Debian operatsioonisüsteemis sobib öelda

 # apt-get install libnet-ldap-perl

Skript LDAP kataloogist päringu tegemiseks, esitatakse filtriga klappivate sissekannete cn ja loginShell väärtused

 use Net::LDAP;
 
 $ldap = Net::LDAP->new('192.168.1.247') or die "$@";
 $mesg = $ldap->search(
   base   => "dc=loomaaed,dc=tartu,dc=ee",
   filter => "uid=mart",
 );
 
 my $max = $mesg->count;
 
 for (my $index = 0 ; $index < $max ; $index++) {
   my $entry = $mesg->entry($index);
   print $entry->get_value(('cn')), " ", $entry->get_value(('loginShell')), "\n";
 }

===Käsurea argumentide kasutamine skriptis===

Argumentide programmi sees kasutamiseks sobib kasutada vaikimisi moodustatud massiivi ARGV, nt sellised

  #!/usr/bin/perl
  print "$ARGV[0]\n";
  print "$ARGV[1]\n";

ja käivitades

  $ perl argv.pl tere mart
  tere
  mart

===Standard-sisendi kasutamine skriptis===

Standardsisendi (ingl. k. standard input) kasutamist kirjeldab näiteks selline programmilõik

  #!/usr/bin/perl
  @read=<STDIN>;
  
  foreach $rida (@read) {
    print $rida;
  }

===Kasulikud lisamaterjalid===

* http://en.wikipedia.org/wiki/Perl