Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Tk and FTP with progress bars.

by jdtoronto (Prior)
on Sep 30, 2005 at 20:11 UTC ( #496506=perlquestion: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
      my $progress = $mw->Toplevel();
      $progress->title("Download progress");
    ...
      $percent_done = ( $block_count / $file_size ) * 100;
      $mw->update();
    }
    
  2. or download this
    sub hash {
        my $ftp = shift;        # self
    ...
        $b = 512 if $b < 512;
        ${*$ftp}{'net_ftp_hash'} = [$h, $b, $p];
    }
    
  3. or download this
        # call the subroutine with the number of #'s notionally.
        &$hashh ( int($count / $hashb), $hashp);
    
  4. or download this
    package InContact::FTP;
    #
    ...
    =cut
    
    1;
    

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: perlquestion [id://496506]
Approved by talexb
Front-paged by planetscape
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (2)
As of 2023-02-07 02:34 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    I prefer not to run the latest version of Perl because:







    Results (38 votes). Check out past polls.

    Notices?