Monday, April 5, 2010

Perl example: sort

#!/usr/bin/perl
@cars = qw/ mercedes bmw audi peugeot /;
@sorted = sort(@cars);
print "\n" . "@sorted" . "\n\n";


OUTPUT
audi bmw mercedes peugeot