# Process the form if there is a file name entered
if (my $file = param('filename')) {
    my %stats;
    my $tmpfile=tmpFileName($file);
    my $mimetype = uploadInfo($file)->{'Content-Type'} || '';
    print hr(),
          h2($file),
          h3($tmpfile),
          h4("MIME Type:",em($mimetype));

    my($lines,$words,$characters,@words) = (0,0,0,0);
    while (<$file>) {
        $lines++;
        $words += @words=split(/\s+/);
        $characters += length($_);
    }
    close $file;
    grep($stats{$_}++,param('count'));
    if (%stats) {
        print strong("Lines: "),$lines,br if $stats{'count lines'};
        print strong("Words: "),$words,br if $stats{'count words'};
        print strong("Characters: "),$characters,br if $stats{'count c
+haracters'};
    } else {
        print strong("No statistics selected.");
    }
}
[download]

 $filename = $query->param('uploaded_file');
 @stats=stat $filename;
 $size_of_file=$stats[7];
[download]

#!/usr/bin/perl -w

use strict;
use Net::FTP;

my ($server, $user, $pass, $file);
my $ftph;
my @files;
my @list;

$server = 'wookie.mcom.com';
$user = 'ukgaryc';
$pass = 'Radio105';

$ftph=Net::FTP->new($server)||die("No connection\n");
$ftph->login($user,$pass)||die("Can't login\n");

@files = $ftph->ls;

foreach $file (@files) {
    my $size;
    $size = $ftph->size($file);
    $size ? print "$file is $size bytes\n" : print "Cannot get size of
+ file $file\n";
}

$ftph->quit||die("Failed to disconnect\n");

exit(0);
[download]

The idea is ofcourse to upload files from a browser to a HTTP server and not from an HTTP server to an FTP server, but ofcourse credits for mentioning Net::FTP :))

Greetz
Beatnik
... Quidquid perl dictum sit, altum viditur.

You guys!!!! KISS

$size    = $ENV{CONTENT_LENGTH};
$too_big = 1024*1024;
die "This file is to big!" if $size > $too_big;
[download]

With CGI.pm you can set the max upload file size via the POST_MAX var ie:

CGI::POST_MAX=1024 # set max upload size to 1kB;
[download]

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print

--
Tatsuhiko Miyagawa
miyagawa@cpan.org

Actually $ENV{CONTENT_LENGTH} contains more than just the file data. If you upload multiple files, or have other form fields, using $ENV{CONTENT_LENGTH} is way off. My guess would be either with length or with -s/stat.

Update: Note that even tho you only send file data thru, the $ENV{CONTENT_LENGTH} still isn't the actual size of the file. Other data is send along, data which CGI novices don't need directly.

Greetz
Beatnik
... Quidquid perl dictum sit, altum viditur.