Christophe : 1 version

2012-05-28T20:31:58Z

1 version

← Version précédente	Version du 28 mai 2012 à 20:31
(Aucune différence)

192.168.10.1 : /* LWP */

2009-01-17T08:40:38Z

LWP

Nouvelle page

[[Category:prog]]

http://perldoc.perl.org/

=Variables=

:{|class=wikitable
!num!!alpha
|-
|==||eq
|-
|!=||ne
|}

<pre>
@ tableau
$ scalaire
#Les variables d'entrées sortie
$0 = nom du programme
@ARGV contient la liste des paramètres passés en ligne de commande.
$ARGV nom du fichier en cours de lecture
$ARGV[0] = premier argument
@ARGV=liste des arguments
$#ARGV nombre d'arguments -1
@_ contient les arguments passés au sous programme en cours (sub).
$/ séparateur d'enregistrements en entrée (par défaut: saut de ligne)
$\ séparateur d'enregistrement pour la fonction print (vide par défaut)
$, séparateur de champs pour la fonction print
$. numéro de ligne courant du dernier fichier lu
@INC: chemin des modules perls, pour rajouter un chemin : #!/usr/bin/perl -I /usr/local/monys
</pre>

==Les variables d'erreur==
$@ message d'erreur du dernier eval() (si vide OK)
$! erreur système courante (errno) - utilisé en numérique ou en texte
$^E informations d'erreur spécifiques à l'OS sinon $! (linux)
$? statut de sortie

==Les variables système==
$0 nom du programme en train de s'éxecuter
$$ n° de process en train de s'éxécuter
%ENV variables d'environnement
@INC: liste des répertoires où Perl va chercher des modules (do, require ou use)

==Les tableaux et hachages==
===Taille d'un tableau ===
scalar(@tableau)
$#tableau = indice du dernier élément du tableau, = scalar(@tableau)-1
scalar keys %hachage = taille d'une table de hachage
$var=undef pour supprimer une variable.

===Le hachage===
$hash{'nom'}=valeur;

:voir values, keys, sort,delete
* keys(%hachage) donne le tableau des clés du hachage
* values(%hachage) donne le tableau des valeurs du hachage
* delete

le module Tie::Hash permet de travailler sur un hachage lié.

===hachage de tableau===
utilisation @{ $self->{rrd} }

===hachage de hachage===
<pre>
my %FAI;
%FAI = (
tele2 =>
{
name => 'tele2',
ip => '192.168.1.64',
gw => '192.168.1.254',
iface => 'eth2',
smtp => 'smtp.tele2.fr',
},
);
</pre>

<pre>
foreach my $acces ( keys %FAI )
{
print "$acces :\n";
for my $elem ( keys %{ $FAI{$acces} })
{
print "$elem: $FAI{$acces}{$elem}\n"
}
print "------------\n";
}
</pre>

=Boucles et contrôles=

@text=("text1","text2");
foreach $line (@text){}

if{}
elsif{}
else{}
for($i=0;$i<n;$i++){}

=Manipulation de fichiers=
==Lire/Ecrire dans un fichier==

$file="test";
open(FILE,"$file") or die "$file: $!";
open(FILE,">$file") # ouverture en écriture
foreach(<FILE>)
{
....
}
close(FILE)

Le module File::Path donne la fonction mkpath (équivalent à mkdir -p)
mkpath (chemin,0,0777)
0:mkpath n'affiche pas les noms des répertoires de leur création
0777: droits sur le répertoire

==renommer un fichier==
rename ANCIENNOM, NOUVEAUNOM (détruit nveau nom s'il existe)

* #autoflush
$| si =1 autoflush sur un handle de fichier autre que stdout.
Mieux vaut utiliser IO::File et la fonction autoflush():
Mieux vaut utiliser IO::File et la fonction autoflush():

use IO::File;
perldoc IO::File
$fh = new IO::File;
$fh->open("> fichier") or die "Erreur: $!";
$fh->autoflush(1);

==Fonctions de traitement de texte==
* tr
* substr (EXPR, OFFSET, LONGUEUR)

==Expressions rationelles (regexp)==
if ($line =~ /regexp/) { do ;}
Metacaractères: \|()[]{}^$*+?.
| alternative
() regroupements
$ fin de ligne
^ début de ligne
* 0 ou +
+ 1 ou +
? 0 ou 1

\b limite de mot
\r retour chariot
\t tabulation
\f saut de page
\s [ \t\r\n\f] (espace)
\S un caractère autre qu'un espace
\e echappement
\W un caractère ailleurs que dans un mot
\w [0-9a-zA-Z_]
\w+ recherche de mot

$var =~ tr/A-Z/a-z/; #convertit $var en minuscule

=Gestion du temps=
($user,$system,$cuser,$csystem) = times;
my ($t0) = time; #initial time
my ($sec,$min,$hour,$mday,$month,$year,$wday,$yday,$isdst)=localtime(time);
if ($year < 100) { $year+=2000; } else { $year+=1900; }
$month++;

=Modules et objets=
==constructeur et destructeur==
* new()
* destroy()

==methodes==
my $self=shift;

* Exemples

<pre>
package lsi::group;

#note :ligne suivante (variable) obligatoire
$groupdel="/usr/bin/groupdel"

sub new
{
my ($class, $name, $gid, $users, $type)=@_;
my $fileopen=0;
my $self = {
name => $name,
gid => $gid,
users => $users,
type => $type,
fileopen => $fileopen,
};
bless $self;
return $self;
}

sub print
{
my $self=shift;
print "$self->{type}:",
"$self->{name}:",
"$self->{gid}:",
"$self->{users}:\n";
}
</pre>

=Modules perl=
==Options==

http://www.aplawrence.com/Unix/perlgetopts.htm

===options std===
use Getopt::Std;
my %opt=();
getopts('h:i',\%opt);
-h arg donne $opt{h}=arg;
-i donne $opt{i}=1;

===options long===
use Getopt::long

ex:
<pre>
&GetOptions("dvi!",
"debug!","help","h",
"char-size=i","doc-type=s");
</pre>

les options :
* --dvi donne $opt_dvi=1;
* --nodvi donne $opt_dvi=0;
* --help donne $opt_help=1;
* --char-size=11 donne $opt_char_size=11; (i=integer)
* --doc-type=report donne $opt_doc_type="report"; (s=string)

==Gestion du temps==
http://datetime.mongueurs.net/Perl/faq.html

==Syslog==
<pre>
use Sys::Syslog qw(:DEFAULT setlogsock);

sub log
{
setlogsock('unix');
openlog("check_system",'cons,pid','user');
syslog('notice',@_);
closelog();
}
</pre>

==Manipuler les bases de données==
DBI: http://search.cpan.org/~timb/DBI/DBI.pm
===CONNECT===
<pre>
$dbh = DBI->connect("DBI:$DB_TYPE:database=$db_database;host=$db_server",$db_usercode,$db_password) || die "\nCannot acces
s $DB_TYPE server!\n";
</pre>
===SELECT===
<pre>
$sth = $dbh->prepare(q{SELECT id FROM table_name WHERE a=? and b=? });
$rc = $sth->execute($a_value,$b_value)|| die ;
($id) = $sth->fetchrow_array;
while ( my @r = $sth->fetchrow_array ){print $r[0];}
</pre>
===INSERT===
<pre>
$sth = $dbh->prepare(q{INSERT INTO summary (year,month) VALUES (?,?)});
$rc = $sth->execute($year,$month);
</pre>
===DELETE===
<pre>
$dbh->prepare(q{DELETE from logs WHERE year=? AND month=? AND ltype=?});
$rc = $sth->execute($year, $month, $ltype) || die "can't delete in DB";
</pre>

==Créer un fichier temporaire sécurisé==
Permet de se prémunir des races conditions
http://www.perldoc.com/perl5.6/lib/File/Temp.html

use File::Temp qw/ tempfile tempdir /;
($fh, $filename) = tempfile($template);
my ($fh, $logtmp) = tempfile("/tmp/monys.XXXXXX");
`cat $file > $logtmp`

==Reverse DNS==
gethosbyaddr (avec inet_ntoa,inet_aton)
ou
NET::DNS

==Net::SNMP==
http://search.cpan.org/~dtown/Net-SNMP/lib/Net/SNMP.pm

http://search.cpan.org/~dtown/Net-SNMP-5.2.0/lib/Net/SNMP.pm
<pre>
my ($session, $error) = Net::SNMP->session(
-hostname => $host,
-community => $community,
);
$session->close;
</pre>
===get===
$result = $session->get_request(-varbindlist => [$oid]);
print $result->{$oid}, "\n";

===get_table===
$result = $session->get_table(-baseoid => $boid);
foreach my $ooid (keys(%{$session->var_bind_list}))
{
print "$ooid: $result->{$ooid}\n";
}

==rrdtool - RRDs==
RRDs::update ($rrdfile, $N);
my $ERR=RRDs::error; die "ERROR $ERR\n" if $ERR;

rrdtool::oo

* http://perlmeister.com/devel/RRDTool-OO/docs/html/RRDTool/OO.html

==LWP==
* http://articles.mongueurs.net/magazines/linuxmag56.html
* http://articles.mongueurs.net/magazines/linuxmag57.html
* http://articles.mongueurs.net/magazines/linuxmag58.html
* http://lwp.interglacial.com/index.html

{{copy|2007-2009|Christophe de Livois|FDL}}

Perl - Historique des versions

Christophe : 1 version

192.168.10.1 : /* LWP */

Christophe : 1 version

192.168.10.1 : /* LWP */