Ola, preciso de uma ajuda aqui.
Estou escrevendo um programa perl que ira identificar certos padroes num arquivo de texto usando regex. Porem, quando o termo buscado nao estiver presente no texto, preciso que o programa informe isso ao usuario.
Eu abro o arquivo e salvo num array
e percorro ele com um laço for
. Uso if
para encontrar meu padrao e imprimi-lo. Quando adiciono elsif
ou else
, o programa imprime para cada linha que ele percorreu que nao encontrou o padrao. Precisava que ele imprimisse apenas ao chegar ao fim do documento se nao achar o padrao. alguem sabe como fazer isso? Talvez com while
. Valeu o/
for($i=0; $i<=$#report; $i++){
if($report[$i] =~ /target/){
chomp $report[$i];
print "$report[$i]";
}
else{
print "not found\t";
}
}