Hola de nuevo,
Estoy con un programa en Perl que me lee de un fichero en busca de una cadena de caracteres específica en cada una de las líneas. Si encuentra la cadena en el fichero realiza una acción y sino otra. Este es el código:
my $msg = "Cadena a buscar";
my $found = 0;
open (LOG_FILE, '<'.$output_file_path);
while (my $line = <LOG_FILE>) {
if ( $line=~ m/$msg/ ) {
$found = 1;
}; ...