| Home |
|---|
Pratical Extration and Report Language : langage pratique d'extraction et rapport.
Fournir un langage pour le Web, les petits scripts et le prototypage.
PERL est un langage interprété.
PERL n'offre pas de typage fort. Tous les types scalaires sont codés sur 32 bits et un caractère peut être converti en chaîne facilement, et vice versa. Il propose des types listes (tableaux de scalaires), tables de hâchage (clé->valeur), des routines (sub), expressions régulières (recherche, remplacement)
| Version | 1 | 2 | 3 | 4 | 5 | Commentaire | ||
|---|---|---|---|---|---|---|---|---|
| Release | 0 | |||||||
| Fixpack | 0 | |||||||
| Couche | Technologie | Maintenance | 4 | |||||
| Paramètres | -e | Exécute | ||||||
| -c | Check : vérifie la syntaxe | |||||||
| -w | Warning : exécute avec des avertissements | |||||||
| -V | Version : affiche la version et les paramètres d'installation | |||||||
Un exemple de ligne de commande PERL est :
> perl -e 'print "hello
world\n" '
hello world
>
Des exemples de code PERL sont :
#!/usr/bin/perl
print "hello world\n";
ou
opendir(DIR, $dir) ||
print "Repertoire $dir introuvable:$!\n";
while(readdir(DIR))
{
$filename = $_;
# On passe les fichiers caches
if( $filename =~ /^\.|^\#|~$/ )
{next;}
}
closedir(DIR);
my $l;
open(DESCR,$fichier) ||
die "Erreur lecture $fichier:$!\n";
while (defined(my $l=<DESCR>)) {$buf.= $l;}
close(DESCR);
Exemple d'un programme CGI d'envoi de la page Web courante par mail en Perl :
#!/usr/bin/perl -w
# # Appellez ce script comme cela :
# # script.cgi?email=myfriend@isp.com&url=http://www.go.com
use strict;
use CGI qw/:standard/;
use CGI::Carp qw/fatalsToBrowser/;
use MIME::Lite::HTML;
my $mailHTML = new MIME::Lite::HTML
From => 'javarome@javarome.net',
To => param('email'),
Subject => 'Your url: '.param('url'),
Debug => 3;
my $MIMEmail = $mailHTML->parse(param('url'));
MIMEmail->send; # ou pour windows : $mail->send_by_smtp('smtp.fai.com');
print header,"Mail envoye (", param('url'), "
to ", param('email'),")<br>\n";
| Home |
|---|