hola gente
pues mi problemas es que tengo un script en perl para subir archivos a un servidor, al utilizarlo si me crea el archivo en la carrpeta correcta, pero no tiene contenido, es un archivo de 0 bytes, no me marca ningun error ni nada
este es el codigo qe utilizo
Código:
open (OUTFILE, ">$path1/$fileName") || forma_mensaje("Couldn't copy file to server, make sure directory is Chmoded 777.");
while (my $bytesread = read($file, my $buffer, 1024)) {
print OUTFILE $buffer;
}
close (OUTFILE);
y bueno pues hice una prueba con una variable dandole un valor antes de ejecuytar ese codigo, y cambiaba adentro del while, al imprimirla despues salio en valor que le habia definido asi que el problema es que no entra al while
bueno pues espero me puedan ayudar gracias