Introduction à Perl
(Pratical Extraction and Report language) (pathologically Eclectic Rubbish Lister) |
 |
|||||||||||||||||||||||
En 1987, Larry Wall créé un logiciel réutilisable pour débuguer des programmes. Il met se logiciel à disposition pour les programmeurs connecté à Usenet. Son logiciel fait un tabac. Vue l'engouement générale, il décide de l'enrichir. C'est de là que vient Perl. Le syntaxe de Perl est inspiré de Awk, sed, sh et C. Aujourd'hui, Perl en est à la version 5. Les différents slogans de Perl résume bien ses capacités:
Les lignes suivantes sont les librairies utilisées, une librairie est appelé par le mot "use". Exemples de librairies:
Un tableau en perl commencent toujours par le caractère '@'. Comme les variables ne sont pas typé, un tableau peut posséder des variables des différents type. la longueur du tableau est $#nomdutableau.
Conditions La condition if en Perl est la même qu'en C. If ( expression ){}else{} La condition if inversé si ce n'est pas vrai .unless ( expression ){} affectation de true val ou falseval à val suivant l'expression. $val=(expression ? truevalue : falsevalue); boucles La boucle do, for et while en Perl est la même qu'en C: do{}while/until (expression ) for{exp_initiale;test_exp;increm_exp }() while(test_exp)() La boucle foreach permet de faire une action sur chaque valeur d'un tableau: foreach $i (@liste){} On peut faire des branchements en Perl: last : branchement après la boucle While(exp 1){ if( exp2 ){ last; }} #saut last ici next : branchement en fin de boucle. While(exp 1){ if( exp2 ){ next; } truc; #saut next ici} redo: branchement en début de boucle While(exp 1){#saut redo ici truc;if( exp2 ){redo; }} Les expressions rationnelles permettent de trouver des motifs dans une chaîne de caractère. Motifs . permet de reconnaître n ’importe quel lettre sauf \n \s Inversement \S permet de reconnaître les caractères qui ne sont pas des espaces . \d : permet de reconnaître les chiffres [0-9] l' inverse est \D [ ...] :permet de reconnaître tout les caractères du crochet. [^ ...] :permet de reconnaître tout les caractères qui ne sont pas dans le crochet . Ancrage ^ : permet de reconnaître un motif en début de ligne. Alternatif : "|" correspond à un ou. Multiplicatif * , reconnaît 0 ou n fois le motif précédent, + , reconnaît 1 ou n fois le motif précédent ?, reconnaît 0 ou 1 fois le motif précédent /i : ignorer la case . Utilisations /pattern/option if ( $a =~ /^bon/ i) vrai si $a commence par bon ou Bon s/pattern/replace/option $wi= ~ s/y/x/g : remplace toute les y dans wi par x. Split @tab= split(/:/,$v) : coupe la chaîne $v suivant le délimiteur « : » et le stocke dans tab.
Définition sous Fonctions sub mafonction{ $_[0]; # premier argument @_; # tableau d ’argument .. return $var; return $var1,var2; }Appel Sous Fonction $var / @tab = mafonction($first, $second); &myfunc (@list); Toutes les variables sont globales. Contournement my($variable_locale);
Le concept de classe sous Perl est appelé Package
Header
nheader();
<HEAD>
nstart_html(); <HTML>
nh1('some','contents'); <H1>some contents</H1>
nh1({-align=>left},'contents');
<H1ALIGN="LEFT">contents</H1>
nListe
nradio_group();
<INPUT TYPE="radio">
npopup_menu();
<SELECT NAME="toto" >
ncheckbox();
<INPUT TYPE="checkbox">
ntextarea();
<INPUT TYPE="text" >
nscrolling_list(
-name=> ’toto', -Values=>[England,France,]
,
-Labels=>{England=>"EN",France=>"FR",}
, -size=>1,
-multiple=>0);
<SELECT
NAME="toto" SIZE=1> <OPTION
VALUE="England">EN
<OPTION
VALUE="France">FR</SELECT>
print
p,"What's your favorite color?
";
print
popup_menu(-name=>'color',
-values=>['red','green','blue','chartreuse']),p;
print
$query->submit('Action','Send');
print
$query->endform;
print
hr;
if
(param()) {
print "Your name is: ",em(param('name')),p,
"The
keywords are: ",em(join(", ",param('words'))),p,
"Your
favorite color is: ",em(param('color')),
hr;
}
print
a({href=>'../cgi_docs.html'},'Go to the
documentation');
print
end_html;
Librairie
Socket
nTcp
Client
#!/usr/bin/perl
-w
use
Socket;
$remote='localhost';
$port=8011;
$iaddr=inet_aton($remote);
$paddr=sockaddr_in($port,$iaddr);
$proto=getprotobyname('tcp');
socket(SOCK,PF_INET,SOCK_STREAM,$proto);
connect(SOCK,$paddr);
while($ligne=<SOCK>)
{ print $ligne; }
close
(SOCK);
exit;
TCP
Serveur
#!/usr/bin/perl
-w
use
Socket;
$port=8011;
$proto=getprotobyname('tcp');
socket(Serveur,PF_INET,SOCK_STREAM,$proto);
setsockopt(Serveur,SOL_SOCKET,SO_REUSEADDR,pack("l",1));
bind(Serveur,sockaddr_in($port,INADDR_ANY));
listen(Serveur,SOMAXCONN);
for(;$paddr=accept(Client,Serveur);close
Client)
{
($portc,$iaddrcl)=sockaddr_in($paddr);
$nom=gethostbyaddr($iaddrcl,AF_INET);
print Client "Salut $nom
coucou\n"; }
>>Salut
localhost.localdomain coucou
"Perl permet la paresse l’impatience et la démesure. " Perl promotes laziness, impatience, and hubriss.
Introduction à Perl, RL.Schwartz & T.Christiansem, O ’reilly
Sites Picking up Perl » www.ebb.org |
Sommaire Installation | |||||||||||||||||||||||
