docs:linuxeries:perl [Dok'aDlp¡¡¡¡ǝʇıs un 'uınoƃuıd un 'ǝsınbuɐq ǝu∩]

Cette page est en lecture seule. Vous pouvez afficher le texte source, mais pas le modifier. Contactez votre administrateur si vous pensez qu'il s'agit d'une erreur.

Cette page est plus a considerer comme un bloc notes sur des choses que je passe mon temps a oublier en perl, et j'en ai marre de regarder les memes man pages...


====== Les libs pour le code propre ======
<xtermrtf>
#!/usr/bin/perl

use strict;
use warnings;
</xtermrtf>

NB: le -w est 'deprecated'

====== L'exploitation des parametres ======
<xtermrtf>
use Getopt::Std;

my %opt;
getopts( "fdugU:G:R:c:", \%opt );
# fdug sont des flags
# UGRc attendent des parametres
</xtermrtf>
====== Parsage simple d'XML ======
<xtermrtf>
use XML::Simple;
my $xml ="";
my $i   =0;

open(FD,"<IN.txt");
while(<FD>) { $xml.=$_; }
close(FD);  

#XMLin doit recevoir tout le XML en un bloque
my $ref = XMLin($xml,suppressempty => '');

#Voila comment il est simple d'acceder a un range de données precis ;)
while(defined($ref->{'quotas'}{'quota'}[$i])) {
</xtermrtf>


STATUT DOCUMENT
Titre du document : Les libs pour le code propre
Date de Création : 13-03-2012 07:03
Date de dernière édition : 12-03-2013 02:03
Statut du document : VALIDE
Validation par : Antoine Delaporte
le : 12-03-2013 03:03