#!/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; } }