#1
  1. No Profile Picture
    Registered User
    Devshed Newbie (0 - 499 posts)

    Join Date
    Oct 2012
    Posts
    3
    Rep Power
    0

    File Download Progress Bar Help Needed, thanks!


    Dear Perl Hackers : )

    How can i add a progressbar to get this script below to show progress? What it does is you enter the url to the file you need to download, give a file name and click the download button and it gets the file for you. Adding a progress bar would make it more useful.

    I've started learning perl 2 days back and loving it however could not find a specific solution to this one on google. I'm sure someone here will share it with me

    Thanks in advance
    Speedo

    # script to download files from the internet

    use Tk;
    use LWP::Simple;

    $mw = new MainWindow;
    $url = $mw->Entry()->pack();
    $filename = $mw->Entry()->pack();
    $download = $mw->Button(-text=>"Download",-command=>\&download)->pack();

    sub download{
    getstore($url->get(),$filename->get());
    }
    MainLoop;
  2. #2
  3. No Profile Picture
    Contributing User
    Devshed Intermediate (1500 - 1999 posts)

    Join Date
    Apr 2009
    Posts
    1,923
    Rep Power
    1225
    Take a look at Tk::ProgressBar.
  4. #3
  5. No Profile Picture
    Registered User
    Devshed Newbie (0 - 499 posts)

    Join Date
    Oct 2012
    Posts
    3
    Rep Power
    0
    thanks! FishMonger, i'm experimenting with it and will post updates soon


IMN logo majestic logo threadwatch logo seochat tools logo