Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
PerlMonks  

Web Browser File Upload Progress Bar in Perl w/AJAX

by skazat (Chaplain)
on Dec 11, 2006 at 02:07 UTC ( [id://588964] : perlmeditation . print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
     
     $q = CGI->new(\&hook [,$data [,$use_tempfile]]);
    
    ...
            my ($filename, $buffer, $bytes_read, $data) = @_;
            print  "Read $bytes_read bytes of $filename\n";         
     }
    
  2. or download this
    #!/usr/bin/perl -w
    
    ...
    
    =cut