Форум программистов [Powered by Invision Power Board]

Код


#!C:\WWW\perl\bin\perl.exe

use CGI qw(:standard);

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

print "<html>";
my $chek = writeUploadFile("C:/img.gif","new");
print (qq($chek));
print "</html>";
sub writeUploadFile {
 my $file = shift; #handle ôàéëà
 my $dir  = shift; #äèðåêòîðèÿ, êóäà ñîõðàíÿåì
  my ($filename, $file_ext) = $file =~m/^.*(?:\/|\\|^)(\w+)\.(\w+)$/;
  if (!$filename || !$file_ext) {return (0)}
  if (!grep{/^$file_ext$/}qw(gif jpg png)) {return (0)}
   open (SAVE, ">$dir/$filename.$file_ext") or die "Can\'t create file \"$dir/$filename.$file_ext\": $!";
   binmode SAVE;
   flock SAVE, 2;
   print SAVE while (<$file>);
   close(SAVE);
   close($file);
   chmod 0644, "$dir/$filename.$file_ext";
   return (1);
}

Код


my $chek = writeUploadFile("C:/img.gif","new");

Код


<form action="/cgi-bin/your_script.pl" enctype="multipart/form-data" method="POST">
<input type="file" name="myfile"/>
<input type="submit" value="Отправить">
</form>

Код


use CGI qw(:standard);

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

print "<html>";
print (qq(<form action="test1.cgi" enctype="multipart/form-data" method="POST">
<input type="file" name="myfile"/>
<input type="submit" value="Îòïðàâèòü">
</form>)); 
print "</html>";

Код


use CGI qw(:standard);

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

print "<html>";
my $query=new CGI;
my $myfile=$query->param('myfile');
my $chek = "hello";
print (qq($chek));
print "</html>";

Код


use CGI;

Код


use CGI qw(:standard);

Код


#!/usr/bin/perl -w
use strict;
use CGI::Carp qw(fatalsToBrowser);
use CGI;
$CGI::POST_MAX = 1024 ** 2; # Файлы размером больше 1 мегобайта не грузить.
# Создаём объект CGI
my $cgi = new CGI();

# Подпрограмма выводит форму
sub show_form {
    my $ms = shift || "";
    print
        $cgi->header(-charset => "Windows-1251"),
        $cgi->start_html(-title => "Форма"),
        $cgi->start_multipart_form(-action => $cgi->url(-relative=>1)),
        $cgi->p($cgi->b("Укажите путь к изображению, которое хотите загрузить на сервер"));

    # Если в подпрограмму была передана строка, то это говорит о том, что произошла ошибка
    # Выводим её пользователю
    if ($ms) {
        # Определяем стили сообщения об ошибке, вообше-то лучше передавать их в подпрограмму
        # Тогда появится возможность применять и другие стили для вывода сообщений. Например:
        # Warnings - синим цветом, а Fatal errors - красным, Success operation - зелёным.
        my $style = "background-color: #cc0000;color: #ffffff;padding: 5px; font-weight: bold; width: 300px;";
           $style .= "border-color: #000000; border-style: solid; border-width: 1px; font-size: 14px";
        print
           $cgi->div({-style => $style},$ms),
           $cgi->br();
    }

    print
        $cgi->filefield(-name => "myfile"),
        $cgi->br(), $cgi->br(),
        $cgi->submit(-name => "send",-value => "Отправить"),
        $cgi->end_form(),
        $cgi->end_html();
    exit 0;
}

# Подпрограмма выводит изображение
sub show_file {
    my $file = $cgi->param('myfile');
    my $type = $cgi->uploadInfo($file)->{'Content-Type'};
    &show_form("Недопустимый тип файла '$type'.Принимаются только файлы jpg, png, gif.") unless ($type =~ /(?:p?jpe?g|png|gif)$/i);
    print $cgi->header(-type => $type);
    binmode STDOUT;
    print <$file>;
}

# Условия программы
if (defined $cgi->param('myfile') && !$cgi->param('myfile')) {
    &show_form("Вы забыли указать путь к файлу.");
} elsif (defined $cgi->param('myfile') && $cgi->param('myfile')) {
    &show_file();
} else {
    &show_form();
}

Код


my $cgi = new CGI();

Код


use CGI;

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

print "<html>";
print "<body>";
my $query = new CGI(); 
my $chek = "hello";
print (qq($chek));
print "</body>";
print "</html>";

Код


use CGI::Carp qw(fatalsToBrowser);