Mega Code Archive

 

Categories / Perl / Language Basics

 

A program that sorts input lines in reverse order

#!/usr/local/bin/perl  @input = <STDIN>;  @input = reverse (sort (@input));  print (@input);