lHow to do a reverse word list in Perl

#!/usr/bin/perl -w

foreach $wort (sort {reverse($a) cmp reverse($b)} <STDIN>) {
	write;
}

format =
@>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
$wort
.
__END__

Found it at
<http://userpage.fu-berlin.de/~corff/perl/Beispiele/maketongoruu.pl>
and just found it beautiful! :-)
--


/BP 8^)>
--
Benct Philip Jonsson -- melroch at melroch dot se

    a shprakh iz a dialekt mit an armey un flot

                                 (Max Weinreich)

Reply