source:
trunk/tp-perl/exercice02.pl
@
340
Last change on this file since 340 was 265, checked in by nanardon, 13 years ago | |
---|---|
File size: 213 bytes |
Line | |
---|---|
1 | #!/bin/env perl |
2 | |
3 | use strict; |
4 | use warnings; |
5 | |
6 | my @tab = |
7 | qw(Afficher les mots de cet |
8 | ennoncé par ordre décroissant); |
9 | my @trie = sort { $b cmp $a } @tab; |
10 | foreach my $elem (@trie) { |
11 | print "$elem\n"; |
12 | } |
Note: See TracBrowser
for help on using the repository browser.