Abrieno y escribiendo Archivos en Perl
Publicado por Patricia (6 intervenciones) el 31/03/2002 21:09:36
Hola a todos:
estoy tratando de abrir un archivo (/httpd)y grabar. Con este codigo luego que se ejecuta la linea 5 la graba al principio del archivo, lo que yo quiero hacer es que la linea que comienza con $i ( poque esto esta adentro de un foreach) se sustituya por lo que se ingreso en la linea 5( se entiende?) no se si se puede hacer eso
1- open(HTTPD,"+</httpd");
2- a=<HTTPD>
3- $aux=`cat /httpd | grep ^$i`;
4- print ("Actualmente esta asi: $aux ");
5- $opc=<STDIN>
6- chop($opc);
7- print HTTPD "$opc\n";
8- close (HTTPD);
estoy tratando de abrir un archivo (/httpd)y grabar. Con este codigo luego que se ejecuta la linea 5 la graba al principio del archivo, lo que yo quiero hacer es que la linea que comienza con $i ( poque esto esta adentro de un foreach) se sustituya por lo que se ingreso en la linea 5( se entiende?) no se si se puede hacer eso
1- open(HTTPD,"+</httpd");
2- a=<HTTPD>
3- $aux=`cat /httpd | grep ^$i`;
4- print ("Actualmente esta asi: $aux ");
5- $opc=<STDIN>
6- chop($opc);
7- print HTTPD "$opc\n";
8- close (HTTPD);
Valora esta pregunta


0