fig04_12.pl

PERL语言资料 可以用于PERL程序设计

#!/usr/bin/perl
# Fig. 4.12: fig04_12.pl
# Reversing the elements of an array and 
# sorting arrays lexically and numerically.

# create @array with values from 1-10 and reverse the values
@array = ( 0 .. 9 );
@reversed = reverse( @array );
print "Original:    @array\n";
print "Reversed:    @reversed\n\n";

# create an unsorted array of numbers and sort it
@array2 = ( 100, 23, 9, 75, 5, 10, 2, 50, 7, 96, 1, 40 );
@sortedLexically = sort @array2;
@sortedNumerically = sort { $a <=> $b } @array2;
print "Unsorted:    @array2\n";
print "Lexically:   @sortedLexically\n";
print "Numerically: @sortedNumerically\n";


###########################################################################
#  (C) Copyright 2001 by Deitel & Associates, Inc. and Prentice Hall.     #
#  All Rights Reserved.                                                   #
#                                                                         #
#  DISCLAIMER: The authors and publisher of this book have used their     #
#  best efforts in preparing the book. These efforts include the          #
#  development, research, and testing of the theories and programs        #
#  to determine their effectiveness. The authors and publisher make       #
#  no warranty of any kind, expressed or implied, with regard to these    #
#  programs or to the documentation contained in these books. The authors #
#  and publisher shall not be liable in any event for incidental or       #
#  consequential damages in connection with, or arising out of, the       #
#  furnishing, performance, or use of these programs.                     #
###########################################################################