Hey Tilly,

Please don't get me wrong, I WANT to learn! I'm just fed up because I can't seem to figure it out. I am a total newbie with no programming background, and the only way I know to solve these problems is to read about it and ask. I've been reading all I can get my paws on, but to no avail. That's why I asked. I'm not out here just asking everyone to do my work for me. I got the errors to display to the browser, and here's what I got: 

Couldn't open <UPLOAD>filecount</UPLOAD>: No such file or 
+directory at trythis.cgi line 17.

[download]
I went back and checked and sure enough, it's right at the open statement I wrote. I can't seem to figure out what's wrong with it though. I looked up the CGI module, but couldn't find out what the defined test was doing. Where do I look? I want to learn all I can here, I'm just really frustrated right now, because I don't know what to try next. I'm not asking you to complete it for me, I'm asking for you to help point me in the right direction when I'm totally stuck (as I am now). My main question is: What's wrong with my open statement? 
#!/usr/bin/perl -T
use strict;
use CGI qw(:standard upload);
use CGI::Carp 'fatalsToBrowser';
use HTML::Entities;

print header(), start_html('Upload Test'), h1('Upload Test'),
  start_multipart_form(), "Enter how many files to upload: ",
  textfield("filecount"), br();
for my $i (1..param('filecount')) {
  print "File $i: ", filefield(-name => "file$i"), br();
}
print submit();
for my $file (sort grep /file/, param()) {
  print p();
  my $handle = upload($file);
  open (IMAGE, ">$handle") || die "Couldn't open $handle: $!";
  my $buffer;
  while (read($handle, $buffer, 10240)) {
  print IMAGE $buffer; 
} 

  unless (defined($handle)) {
    if ($file =~ /(\d+)/) {
      print h3("File request $1 did not return a handle\n");
    }
    next;
  }
  print p(), h3("Uploaded $handle"), br(), "<pre>";
  print encode_entities($_) while <$handle>;
  print "</pre>";
}
close(IMAGE);

[download]
P.S. This is the code you sent me with only a couple changes.

In reply to Re: Re (tilly) 1: Uploads (again!) by Stamp_Guy
in thread Uploads (again!) by Stamp_Guy

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.