[Perl] cambios en archivos

[Gunnar Wolf]

> Quiero hacer esto en un .cgi:
>
>         open (INDEX, $index) or die;
>         @archivo =3D <INDEX>;
>         close(INDEX);
>
>         open (INDEX_TEMP, ">$tempo") or die;
>         select INDEX_TEMP;
>             foreach $linea (@archivo) {
>                 if ($linea =3D~ /cadena1/) {
>                     print qq(cadena2\n);
>                 } else {
>                     print $linea;
>                 }
>             }
>         close(INDEX_TEMP);
>         system("mv $tempo $index");
>
> En s=ED, lo que quiero hacer es cambiar un archivo de configuraci=F3n con=
 el
> cgi. La linea que quiero cambiar tiene 'cadena1' y quiero poner en esa
> linea 'cadena2'.
>
> Si lo hago desde el cgi nunca entra en el cotejo =3D~//
> Si lo hago en un archivo .pl S=CD entra y lo hace.
>
> Por el momento lo solucione haciendo esta chamba en el .pl y llam=E1ndolo
> desde el cgi con un system(). Pero se me hace medio cochino.
> Se supone que es el mismo int=E9rprete, =BFno?

Ummm... Revisaste ya permisos? Intenta poner alg=FAn mensaje al die para ve=
r
cu=E1ndo se muere. As=F3mate a tu bit=E1cora de errores de Apache. =BFCon q=
u=E9
usuario corre tu servidor de Web? (t=EDpicamente nobody, www o www-data)

------------------------------------------------------------
Gunnar Wolf - gwolf@campus.iztacala.unam.mx - (+52)5623-1118
Desarrollo y Admon. de Sistemas en Red - FES Iztacala - UNAM
Departamento de Seguridad en Computo   -   DGSCA    -   UNAM
------------------------------------------------------------
Quidquid latine dictum sit, altum viditur.