[perl] abrir archivo remoto

[Victor Ramon Aguilar Ocampo]

Aqui sugiero un bloque de codigo para manipular el archivo del lado del
CGI y averiguar de que tipo de archivo se trata para guardarlo en disco.
Solo decide si es texto o si es binario y estoy seguro que habran
sugerencias mejores en la lista.

Saludos

		Victor.

#### Inicia ejemplo que se sugiere.

  $file = $query->param('file'); # <-- Este es solo el nombre del archivo
  $tipo = $query->uploadInfo($file)->{'Content-Type'}; # <-- El tipo de
 						       #     archivo
  $destino="/usr/users/www/archivos/$file";
  #Decidir si es archivo binario o de texto
  if($tipo eq "text/plain" || $tipo eq "text/html")
    {
      open (OUTFILE,"> $destino");
      while(<$file>)
       {
         print OUTFILE $_;
       }
       close(OUTFILE);
    }
    else
     {
      open (OUTFILE,"> $destino");
      while ($bytesread=read($file,$buffer,1024)) 
      {
        print OUTFILE $buffer;
      }
      close(OUTFILE);
    }



#####  Fin ejemplo sugerido




----------------------------------------------------------------
	Direccion General de Servicios de Computo Academico
                  Academic Computing Services      
	    UNIVERSIDAD NACIONAL AUTONOMA DE MEXICO

   Victor Ramon Aguilar Ocampo   <aguilar@servidor.unam.mx>

   " Solo tienes dos cosas en tu hacer, las Razones y 
     los Resultados. Las Razones no cuentan  ".

----------------------------------------------------------------


--------- Pie de mensaje --------------------------------
Visite: http://tlali.iztacala.unam.mx/~randrade/perl.shtml
Cancelar inscripcion:
mail to: majordomo@tlali.iztacala.unam.mx
text   : cancelacion perl