Re: how to get the sizes of a file when i use CGI.PM to upload it~~?

[Wookie]

Net::FTP can allow you to read the size of remote files pretty easily.

Below is some nice sample code for this I prepared earlier :)

#!/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);

Hope this helps :)

---

game(Wookie,opponent) eq 'Wookie' ? undef $problem : remove_limbs(arms,opponent);

[Beatnik]

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.