programmation_perl
Différences
Ci-dessous, les différences entre deux révisions de la page.
Les deux révisions précédentesRévision précédenteProchaine révision | Révision précédenteProchaine révisionLes deux révisions suivantes | ||
programmation_perl [2010/01/13 16:42] – thierry | programmation_perl [2011/07/22 15:05] – thierry | ||
---|---|---|---|
Ligne 1: | Ligne 1: | ||
+ | ====== Crypt ====== | ||
+ | |||
+ | Liens: | ||
+ | *http:// | ||
+ | *http:// | ||
+ | *http:// | ||
+ | |||
+ | But: comparer et construire des clés " | ||
+ | |||
+ | |||
+ | |||
+ | ====== Random Quantum ====== | ||
+ | |||
+ | ===== Install ===== | ||
+ | Une vraie source aléatoire en ligne: http:// | ||
+ | |||
+ | Créer un compte par là: http:// | ||
+ | |||
+ | |||
+ | Récupérer les sources perl d'un module par là: http:// | ||
+ | |||
+ | Pré-requis: | ||
+ | # aptitude install libmoose-perl | ||
+ | |||
+ | | ||
+ | $ perl Makefile.PL | ||
+ | $ make | ||
+ | $ make test | ||
+ | # make install | ||
+ | Installing / | ||
+ | Installing / | ||
+ | Writing / | ||
+ | Appending installation info to / | ||
+ | |||
+ | |||
+ | ===== Test ===== | ||
+ | |||
+ | Petit test: | ||
+ | |||
+ | # | ||
+ | | ||
+ | use strict; | ||
+ | use warnings; | ||
+ | | ||
+ | use Random:: | ||
+ | | ||
+ | { | ||
+ | if ( my $cl = new Random:: | ||
+ | print $cl-> | ||
+ | print $cl-> | ||
+ | print $cl-> | ||
+ | print sprintf(" | ||
+ | my $h = unpack( " | ||
+ | print "At last: $h\n"; | ||
+ | } | ||
+ | } | ||
+ | Exemple: | ||
+ | $ ./ | ||
+ | 196 | ||
+ | 222 | ||
+ | 3806413886 | ||
+ | 2591528E | ||
+ | At last: 508757233b068245788774a4c94cfcdc5b74 | ||
+ | |||
+ | Ca " | ||
+ | |||
+ | ===== pwgen ===== | ||
+ | |||
====== Ftp SSL ====== | ====== Ftp SSL ====== | ||
Installer d' | Installer d' | ||
- | # apt-get install libnet-ssleay-perl | + | |
Et puis enfin: | Et puis enfin: | ||
- | # cpan -i IO:: | + | |
- | # cpan -i Net::FTPSSL | + | # cpan -i Net::FTPSSL |
Parce que ' | Parce que ' | ||
Ligne 14: | Ligne 82: | ||
Des dates a comparer... mais **'' | Des dates a comparer... mais **'' | ||
- | Il faut utiliser le formidable module **'' | + | Il faut utiliser le formidable module **'' |
+ | |||
+ | Liens | ||
+ | *http:// | ||
+ | *http:// | ||
==== module ==== | ==== module ==== | ||
Ligne 44: | Ligne 116: | ||
Donc: | Donc: | ||
* **'' | * **'' | ||
+ | * **'' | ||
- | Pour avoir le nombre de jours de " | + | Pour avoir le nombre de jours de " |
| :!: mais il faut l' | | :!: mais il faut l' | ||
Ligne 52: | Ligne 125: | ||
Oui, on est la veille de Noël ! | Oui, on est la veille de Noël ! | ||
- | ==== Tout est objet... ==== | + | | :!: | '' |
- | On peut simplifier l' | + | ==== Nombre de secondes... ==== |
- | | + | |
- | my $dt_loin = DateTime-> | + | my $dt_loin = DateTime-> |
- | + | my $nbsec = $dt_now-> | |
- | print " | + | |
+ | print " | ||
+ | print " | ||
+ | Resultat: | ||
+ | secondes: 3775448 | ||
+ | jours: 43 | ||
On peut aussi créer 2 dates avec un écart de 100 jours, comme cela: | On peut aussi créer 2 dates avec un écart de 100 jours, comme cela: | ||
my $dt_end = DateTime-> | my $dt_end = DateTime-> | ||
my $dt_start = $dt_end - DateTime:: | my $dt_start = $dt_end - DateTime:: | ||
- | |||
- | print ( $dt_end - $dt_start )-> | ||
- | |||
- | |||
===== en bref ===== | ===== en bref ===== |
programmation_perl.txt · Dernière modification : 2011/10/11 21:19 de thierry