fig05_02.pl

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

#!/usr/bin/perl
# Fig. 5.2: fig05_02.pl
# Demonstrating different properties of the foreach structure.

# This structure loops 10 times, not requiring a control variable.
foreach ( 1 .. 10 ) {
   print "*";
}

print "\n";

# Standard foreach structure. Prints the letters A-G.
foreach $letter ( 'A' .. 'G' ) {
   print "$letter";
}

print "\n";

# Duplicate of the structure above, but with the for keyword.
# This structure will behave exactly the same way.
for $letter ( 'A' .. 'G' ) {
   print "$letter";
}

print "\n";

# Standard for structure.
# Loops 5 times, printing the multiples of 5 from 0-20.
for ( $number = 0; $number <= 20; $number += 5 ) {
   print "$number ";
}

print "\n";

# Duplicate of the structure above with the foreach keyword.
# Again, this structure will behave the same as the one above.
foreach ( $number = 0; $number <= 20; $number += 5 ) {
   print "$number ";
}

print "\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.                     #
###########################################################################