Veréis: desde un HTML, mando un parámetro (nombreusuario) a un archivo Perl, de este modo:
Using perl Syntax Highlighting
- my $query = new CGI;
- my %FORM = $query->Vars;
- my $nombreusuario = $FORM{Usuario};
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4
Después, necesito leer un fichero línea a línea, y en caso de que en ese fichero encuentre el parámetro que leí del HTML, pues escriba más datos. Para ello quiero recorrer el fichero línea a línea y voy metiendo las líneas en otro nuevo fichero auxiliar, para luego convertir ese fichero en el anterior, de este modo:
Using perl Syntax Highlighting
- $query->header,
- $query->start_html("Almacenando"),
- my $filename = '/etc/file';
- my $filename2 = '>/etc/file2';
- open INFILE,$filename;
- open INFILE2,$filename2;
- while($linea = <INFILE>){
- chomp($linea);
- if($linea =~ "$nombreusuario:"){
- print INFILE2 "$nombreusuario\n";
- }else{
- print INFILE2 "$linea\n";
- }
- }
- close INFILE2;
- close INFILE;
- move("/etc/file2","/etc/file");
- exit(1);
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
El caso es que es como si el fichero "file2" no lo crease, y no se por qué.
¡¡Un saludo!!
