>>>>> "arran" == arran ubels <Arran> writes:
arran> I cant get a sucessfull file upload in ActivePerl i have
arran> tried many ways,,, can someone send me a sucessfull example?
First up, I really hate your sig. ;-)
Second, use CGI::Upload from the CPAN. It has example uses in its own
documentation, reprinted here:
use CGI;
use CGI::Upload;
my $cgi = CGI->new;
my $upload = CGI::Upload->new( $cgi );
my $file_name = $upload->file_name( 'field_name' );
my $file_type = $upload->file_type( 'field_name' );
$upload->mime_magic( '/path/to/mime.types' );
my $mime_type = $upload->mime_type( 'field_name' );
my $file_handle = $upload->file_handle( 'field_name' );
If you have problems with this, see the module's documentation, or ask
us if you can't figure it out. Bear in mind that many problems may be
related to your webserver's CGI setup, and not to Perl itself at all.
- Chris.
--
$a="printf.net"; Chris Ball | chris@void.$a | www.$a | finger: chris@$a
chris@lexis:~$ perl -le'@a=($^O eq 'darwin')?qw(100453 81289 9159):qw
(23152 19246 2040);while(<>){chomp;push @b,$_ if grep {$.==$_}@a}push
@b,$^X;print ucfirst join(" ",@b[2,0,3,1]).","'</usr/share/dict/words
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
