que hago mal: Crear una imagen en fichero

[MandrakeXP]

Hola, tengo un script en perl, que crea una imagen de ciertas caracteristicas, pero ahora necesito guardar esa imagen del navegador en un fichero, cuyo nombre sea la union de las 3 variables que recibe el script:

Para resumir...:

al final del código tengo:

print $im->png; #en $im tengo la información de la imagen

hasta aqui todo bien, al ejecutarlo enviandole 3 variables: color, string y tamaño de fuente me crea una imagen, pero al intentar guardarla en un fichero hago esto:

$NombreFichero="$var1 - $var2 - $var3";

open (IMAGEN, “>$NombreFichero.png”);
print IMAGEN $im;
close(IMAGEN);

Internal Server Error


no sé en qué puedo estar equivocado

[MandrakeXP]

he solucionado algo... pero no el archivo

Código:

print $im->png;
  
#guardar la imagen en fichero

	$fileName = "$var1-$var2-$var3.png";
	open (IMAGEN, ">fotos/$fileName");

	print IMAGEN "$im";
	close (IMAGEN);

co esto me crea la imagen en el navegador (NO me da error) pero no encuentro la imagen creada ? donde la guarda? hay algo mal?

[monoswim]

Hola, cuando usas open y close debes darle alguna otra salida alternativa si se ocurre un error como ser

open(...) || &error('no sepuede abrir...');

y creas una función

sub error {
print $_[1];
}

De esta manera sabemos si el error está en esa línea de código, puede que tu carpeta actual no permita que se creen los archivos o algo así...

Otro problema que veo es que debes especificar que el archivo es BINARIO esto lo haces colocando

binmode(IMAGEN);

justo luego de abrir el archivo...

open...
binmode(IMAGEN);
print...
close...

Esa sería la lógica...

Espero que te sirva, probalo y luego contame...

Saludos