Lineal
123456789101112131415161718192021222324
for ( $i = 0; $i < 100; ++$i ) {
$array[ $i ] = 2 * $i;
}
print "Escriba una llave de búsqueda entera ";
chomp ( $llave = <STDIN> );
$enc = 0;
for ( $i = 0; $i < @array && !$enc; ++$i ) {
if ( $array[ $i ] == $llave ) {
$index = $i;
$enc = 1;
}
}
if ( $enc ) {
print "Se encontró $llave en $index \n";
}
else {
print "$llave not found \n";
}
Perl
INFO