Red de conocimientos turísticos - Información de alquiler - Al programar en Perl, ¿hay alguna forma de cambiar rápidamente el valor de la variable de una determinada línea en un archivo txt mientras se ejecuta el script?
Al programar en Perl, ¿hay alguna forma de cambiar rápidamente el valor de la variable de una determinada línea en un archivo txt mientras se ejecuta el script?
open($f,'a.txt');
$e=0;
mientras(lt;$fgt;){
if(/ cccc =\d /){}
elsif(/bbbb =\d ){$e=1;}
else{if($e){$d.=$ _;}else{$p.=$_;}}
}
cerrar $f;
seek($f, 0, 0);
@c=(15,10,8);
@b=(12,9,20);
para(1..3) {
print "prueba el $_ veces\n";
lt; STDINgt;;
open($f,'a.txt');
imprimir $f $d;
imprimir $f "cccc = ", $c[$_-1], "\ nbbbb = ", $b[$_-1 ], "\n";
imprimir $f $p;
cerrar $f
}