Hola, explorer. Te quería pedir ayuda en algo.
Mira: yo estoy leyendo desde un txt que pasé con pdftotext. En una parte del archivo txt que se genera tengo lo siguiente:
Using text Syntax Highlighting
inicio
parte no.
dirección uno,
dirección dos
telefono
CLAVE001
final
Coloreado en 0.000 segundos, usando
GeSHi 1.0.8.4
Entonces de esa sección me interesa obtener el valor
CLAVE001. Lo realizo con el siguiente
script:
Using perl Syntax Highlighting
### OBTENGO LA CLAVE
open (DATA, @ARGV[0]) || die "No pude abrir el archivo @ARGV[0]\n";
my $i=0;
my $VALOR;
while(<DATA>){
if (/inicio/ .. /final/)
{
chomp($_);
foreach($_)
{
$i++;
if($i==9)
{
$VALOR = $_;
}
}
}
}
Coloreado en 0.004 segundos, usando
GeSHi 1.0.8.4
El tema es que a veces la misma sección, en otro PDF, puede contener menos líneas, entonces el valor para CLAVE no se encontraría en la línea 9 sino por ejemplo en la línea 7. Entonces, ¿cómo podría decirle a mi
script que cuando encuentre un valor vacío en la línea 9 tome el valor de '$_' ubicado en la línea 7?
Desde ya, muchas gracias.