fig04_13.pl

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

#!/usr/bin/perl
# Fig. 4.13: fig04_13.pl
# Linear search of an array.

# populate @array with the even integers from 0 to 198
for ( $i = 0; $i < 100; ++$i ) {
   $array[ $i ] = 2 * $i;   
}

# prompt the user for a search key
print "Enter an integer search key: ";
chomp ( $searchKey = <STDIN> );

# a boolean value to help determine when to stop searching
$found = 0;   # $found is initially false

# use a loop to access every element of @array
for ( $i = 0; $i < @array && !$found; ++$i ) {

   # determine if the current element is the search key
   if ( $array[ $i ] == $searchKey ) {
      $index = $i;   # store index where it was found
      $found = 1;    # indicates we should stop looping
   }
}

if ( $found ) {      # $found == 1
   print "Found $searchKey at subscript $index \n";
}
else {               # $found == 0
   print "$searchKey not found \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.                     #
###########################################################################