Documentación

Operaciones básicas sobre cadenas
•Ejemplo 10:
%finds = ();
$linea = 0;
print "\n Introduzca la palabra a buscar: \n";
$palabra = ;
chop ($palabra);
Indica el número del error
que se ha producido
print "Introduzca el fichero donde buscar:\n";
$anombre = ;
chop($anombre);
open(IFILE, $anombre) or die "No se puede abrir $anombre $!\n";
while () {
$posicion = index($_, $palabra);
if ($posicion >= 0) {
$finds{"$linea"} = $posicion;
}
$linea++;
}
close IFILE;
while (($clave,$valor) = each (%finds)) {
print "Linea $clave : $valor \n";
}
Imprime la cadena y aborta el programa