From 7e7af8f294d6b8c49c341a560f6c4c34a583bd08 Mon Sep 17 00:00:00 2001 From: schodet Date: Sat, 8 Oct 2005 15:05:47 +0000 Subject: Ajout de la liste des membres. --- b/membres/dump.pl | 63 +++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 63 insertions(+) create mode 100755 b/membres/dump.pl (limited to 'b/membres/dump.pl') diff --git a/b/membres/dump.pl b/b/membres/dump.pl new file mode 100755 index 0000000..d6227b9 --- /dev/null +++ b/b/membres/dump.pl @@ -0,0 +1,63 @@ +#!/usr/bin/perl -w +# +# Liste des membres. +# +use strict; + +our %membres; +do 'membres.pl' or die; + + +if (scalar @ARGV != 1 && scalar @ARGV != 2) +{ + print <= 2006' 2006 + +Affiche la liste des développeurs : + $0 'print "\$role\\t\$nom\\n" if \$role' 2006 + +Affiche toutes les personnes qui on un jour participé au robot : + $0 'print "\$nom\\n"' + +À vous d'imaginer d'autre commandes ! +EOF + exit 1; +} + +my ($p, $year) = @ARGV; + +for (keys %membres) +{ + # 'Décompresse' le hash. + my $login = $_; + my $m = $membres{$_}; + next unless !defined $year || exists $$m{$year}; + my ($nom, $nick, $promo, $adresse, $tel, $telparents, $devise) = + ($$m{'nom'}, $$m{'nick'}, $$m{'promo'}, $$m{'adresse'}, $$m{'tel'}, + $$m{'telparents'}, $$m{'devise'}); + if (defined $year) + { + my $y = $$m{$year}; + my ($role, $taches, $bureau, $cotiz, $dispo) = + ($$y{'role'}, $$y{'taches'}, $$y{'bureau'}, $$y{'cotiz'}, + $$y{'dispo'}); + eval $p; + } + else + { + eval $p; + } +} -- cgit v1.2.3