Ciao a tutti,
mi scuso se la domanda potrà essere banale, ma non ho molta esperienza con il perl. Ho un file di testo e devo fare in modo di scrivere la parte successiva ad una data riga (il cui valore ho in una stringa) in un altro file di testo.
La soluzione che mi è venuta in mente è banalmente quella di scorrere tutto il file comparando ogni riga con la stringa e dal punto in cui trovo la corrispondenza scrivere riga per riga nel secondo file di testo:
open POINT_FILE, "<$pointer_file";
open INP_FILE, "<$input_file";
open APP_FILE, ">$app_file";
$puntatore = <POINT_FILE>;
@righe_log = <INP_FILE>;
$nr_rec = scalar(@righe_log);
$start = "ko";
foreach $linea(@righe_log)
{
if ($start eq "ok"){
print APP_FILE $linea;
}
if ($linea eq $puntatore){
$start = "ok";
}
}
So che il perl è famoso per la manipolazione delle stringhe, per cui mi chiedevo se magari esisteva un metodo più furbo ed elegante.
Grazie!