La voix du secrétaire (Jean)
Présents à la réunion, en fonction de la l'ordre d'arrivée :
Nous avons mangé de la salade aux lardons, de la salade de poulet au curry, de la saucisse au couteau avec de la purée ou des lentilles, du mignon de port et des profiterolles. Nous avons bu de la bière (Rince-Cochon, si je me souviens bien), de la vodka et un Ricard.
Nous avons parlé de Perl, Internet informatique et points divers.
We suck at marketing
puis enchaîne avec but...
pour exposer un point fort de Perl :
communauté, CPAN, arrivée enfin de Rakudo Star,
etc.
my $chaine = 'la banane à Nana'; my @captures = $chaine =~ /(\wa)/g; say $_ for @captures;
my %hash = qw/Al 13 Ar 18 B 5 Be 4 C 6 Cl 17 D 1 F 9 H 1 He 2 Hg 80 Li 3 Mg 12 N 7 Na 11 Ne 10 O 8 P 15 S 16 Si 14 U 92/; for (map { $_->[0] } sort { $a->[1] <=> $b->[1] } map { [ $_, $hash{$_} ] } keys %hash) { say "élément = ", $_, ", numéro atomique = ", $hash{$_}; }Pour moi, la solution est plus simple :
my %hash = qw/Al 13 Ar 18 B 5 Be 4 C 6 Cl 17 D 1 F 9 H 1 He 2 Hg 80 Li 3 Mg 12 N 7 Na 11 Ne 10 O 8 P 15 S 16 Si 14 U 92/; for (sort { $hash{$a} <=> $hash{$b} } keys %hash) { say "élément = ", $_, ", numéro atomique = ", $hash{$_}; }