Faq de Perl y CGI

[monoswim]

Tema: Scripts y Links
Pregunta: Como subir imágenes a mi servidor ?
Respuesta: Les mando este script para subir imágenes, funciona tanto en linux como en windows...Espero que les sirva...

Código:

#!/usr/bin/perl

###########   #!c:/perl/bin/perl.exe   en windows...

use strict;
use CGI;

my $cgi = new CGI;

my %input_data = $cgi->Vars;

print "Content-type: text/html\n\n";

if ($input_data{'action'} eq 'process'){
        my $file = $cgi->param('file');
        print "action: $input_data{'action'}<br>
               file: $file";

               #sacamos el nombte
               #my $file = $cgi->param('file');
               my $fileName =  "$file";
               $fileName =~ s/ /_/gi;
               $fileName =~ s!^.*(\\|\/)!!;

               #guardamos la imagen solamente si es .jpg
               if ($fileName =~ /.jpg/){
                  open (IMAGEN, ">fotos/$fileName") || die "No se pudo guardar la imagen";
                  binmode(IMAGEN);
                  while (my $bytesread = read($file, my $buffer, 1024)) {
                         print IMAGEN $buffer;
                  }
                  close (IMAGEN);
               }
               else {
                  print "Formato no permitido";
               }
               print '<br><a href="imagen.pl">Volver</a>';
}else{

print q~<form name="form1" enctype="multipart/form-data" method="post" action="imagen.pl">
<input type="hidden" name="action" value="process">
  <p>Formulario para subir imágenes al servidor...: <br></p>
  <p>Archivo: <br>
    <input type="file" name="file">
  </p>

  <input type="submit" name="Submit" value="Submit">
</form> ~;
}

exit(1);

Para más info lean este tutorial del cual me basé para hacerlo...
http://perlenespanol.baboonsoftware....ut/000082.html