home *** CD-ROM | disk | FTP | other *** search
/ Chip: Windows 2000 Professional Resource Kit / W2KPRK.iso / apps / perl / ActivePerl.exe / data.z / file_upload.cgi < prev    next >
Encoding:
Text File  |  1999-10-14  |  2.0 KB  |  70 lines
  1. #!/usr/local/bin/perl -w
  2.  
  3. use lib '..';
  4. use CGI qw(:standard);
  5. use CGI::Carp qw/fatalsToBrowser/;
  6.  
  7. print header();
  8. print start_html("File Upload Example");
  9. print strong("Version "),$CGI::VERSION,p;
  10.  
  11. print h1("File Upload Example"),
  12.     'This example demonstrates how to prompt the remote user to
  13.     select a remote file for uploading. ',
  14.     strong("This feature only works with Netscape 2.0 browsers."),
  15.     p,
  16.     'Select the ',cite('browser'),' button to choose a text file
  17.     to upload.  When you press the submit button, this script
  18.     will count the number of lines, words, and characters in
  19.     the file.';
  20.  
  21. @types = ('count lines','count words','count characters');
  22.  
  23. # Start a multipart form.
  24. print start_multipart_form(),
  25.     "Enter the file to process:",
  26.     filefield('filename','',45),
  27.     br,
  28.     checkbox_group('count',\@types,\@types),
  29.     p,
  30.     reset,submit('submit','Process File'),
  31.     endform;
  32.  
  33. # Process the form if there is a file name entered
  34. if ($file = param('filename')) {
  35.     $tmpfile=tmpFileName($file);
  36.     $mimetype = uploadInfo($file)->{'Content-Type'} || '';
  37.     print hr(),
  38.           h2($file),
  39.           h3($tmpfile),
  40.           h4("MIME Type:",em($mimetype));
  41.  
  42.     my($lines,$words,$characters,@words) = (0,0,0,0);
  43.     while (<$file>) {
  44.     $lines++;
  45.     $words += @words=split(/\s+/);
  46.     $characters += length($_);
  47.     }
  48.     close $file;
  49.     grep($stats{$_}++,param('count'));
  50.     if (%stats) {
  51.     print strong("Lines: "),$lines,br if $stats{'count lines'};
  52.     print strong("Words: "),$words,br if $stats{'count words'};
  53.     print strong("Characters: "),$characters,br if $stats{'count characters'};
  54.     } else {
  55.     print strong("No statistics selected.");
  56.     }
  57. }
  58.  
  59. # print cite("URL parameters: "),url_param();
  60.  
  61. print hr(),
  62.     a({href=>"../cgi_docs.html"},"CGI documentation"),
  63.     hr,
  64.     address(
  65.         a({href=>'/~lstein'},"Lincoln D. Stein")),
  66.     br,
  67.     'Last modified July 17, 1996',
  68.     end_html;
  69.  
  70.