Utilizarea Perl in scrierea de programe CGI, Despartire in cuvinte parsing referat

Despartire in cuvinte (parsing).

38943tjd96bkn5j Cand se includ paranteze rotunde in sabloanele de cautare, secventele cu care se potrivesc acestea, pot fi accesate folosind variabilele $1,$2,$3, etc.. in ordine de la prima paranteza din stanga. Aceste secvente pot fi asignate ca si elemente succesive ale unui sir.

Exemplu:

38943tjd96bkn5j

38943tjd96bkn5j #! usr/bin/perl -w

38943tjd96bkn5j $s = 'Acest sir contine 1 subsir de tip data 10/10/99 undeva.';

38943tjd96bkn5j

38943tjd96bkn5j # sirul /d semnifica un sir de cifre

38943tjd96bkn5j $s =~ /(\d{1,2})\/(\d{1,2})\/(\d{2,4})/;

38943tjd96bkn5j

38943tjd96bkn5j # varianta 1:

38943tjd96bkn5j print "\$1 = $1, \$2 = $2, \$3 = $3\n";

38943tjd96bkn5j # varianta 2:

38943tjd96bkn5j {$ziua, $luna, $an} = ($s =~ /(\d{1,2})\/(\d{1,2})\/(\d{2,4})/);

38943tjd96bkn5j print "$ziua, $luna, $an\n";

38943tjd96bkn5j #varianta 3:

38943tjd96bkn5j {$data,$ziua, $luna, $an} = ($s =~ /(\d{1,2})\/(\d{1,2})\/(\d{2,4})/);

38943tjd96bkn5j print "$data, $ziua, $luna, $an\n";

14. Utilizarea Perl in scrierea de programe CGI.

38943tjd96bkn5j Limbajul Perl poate fi folosit cu succes in scrierea de aplicatii CGI (Common Gateway Interface), acestea fiind folosite pe serverele de Web. Un program CGI ruleaza pe platforma Web Serverului , astfel chiar daca WebServerul este o masina Unix si utilizatorul acceseaza programul CGI de pe o platforma Windows, aplicatia CGI se poate rula fara probleme pe masina Unix, iar rezultatele afisate de aceasta sunt afisate in browserul utilizatorului.

38943tjd96bkn5j Exemplu: Afisarea starii serverului:

38943tjd96bkn5j Aplicatia foloseste comenzile unix 'uptime', 'hostname', si 'w'.

38943tjd96bkn5j Pentru a vedea rezultatele acestui program, vizitati adresa:

38943tjd96bkn5j http://www.scs.ubbcluj.ro/~mr28602/serverstatus.cgi

38943tjd96bkn5j

Programul este: 38943tjd96bkn5j

38943tjd96bkn5j #! usr/bin/perl

38943tjd96bkn5j # Trimite mesajele de eroare catre utilizator, nu catre sistem

38943tjd96bkn5j open(STDERR,'<&STDOUT'); $| = 1;

38943tjd96bkn5j # Programul va furniza browserului, un fisier html

38943tjd96bkn5j print "Content-type: text/html\n\n";

38943tjd96bkn5j $host = `hostname`; chop $host;

38943tjd96bkn5j $uptime = `uptime`;

38943tjd96bkn5j $w = `w -s -h`;

38943tjd96bkn5j print <<BUNCHASTUFF;

38943tjd96bkn5j <Html><Head>

38943tjd96bkn5j <H1>Informatii despre serverul $host</H1>

38943tjd96bkn5j </Head><Body>

38943tjd96bkn5j $uptime

38943tjd96bkn5j <PRE>$w</PRE>

38943tjd96bkn5j <HR>

38943tjd96bkn5j </Body></Html>

38943tjd96bkn5j BUNCHASTUFF;

38943tjd96bkn5j exit;

38943tjd96bkn5j Pentru folosirea aplicatiei este necesar sa setam fisierului serverstatus.cgi, drepturi de acces, citire, si executi cu comanda Unix:

38943tjd96bkn5j chmod a+rx serverstatus.cgi