请问下Perl能实现下载进度条么?

QUOTE:

原帖由 SadEmperor 于 2008-11-10 16:57 发表
在网上查了些资料, 多数进度条例子中下载工具都是wget, 但是当前项目中用的是原始的xcopy~

测试发现只要下载开始，xcopy就在目的路径下建立一个和源文件一样大小的文件，而不是像有些工具一样随着下载的进行变化文件大小；另外看 perldoc的说明，在system运行外部命令的时候父进程是挂起的。由于这两个障碍的存在，是不是就不能用perl实现这种条件下的进度条了？

多谢各位！

CODE:

Let's look at the simple case of downloading a collection of pages from the web.

  #!/usr/bin/perl
  # turn on perl's safety features
  use strict;
  use warnings;
  # load the modules I need to know
  use Term::ProgressBar;
  use LWP::Simple qw(mirror);
  # work out what pages we're getting
  my @users = qw( 2shortplanks acme pudge torgox mschwern );
  # create a new progress bar
  my $no_pages = @users;
  my $progress = Term::ProgressBar->new({count => $no_pages});
  # get all the pages
  my $got = 0;
  foreach my $user (@users)
  {
    # work out the url
    my $url = "http://use.perl.org/~".$user."/journal/rss";
    # download the url and save it to disk
    mirror( $url, "${user}.rss" );
    # update the progress bar
    $progress->update(++$got);
  }
This creates a bar on the terminal that looks like this:

    0% [                                                            ]
Which slowly updates

   60% [====================================                        ]
Until it's done

  100% [============================================================]

QUOTE:

原帖由 lokchungk 于 2008-11-10 20:48 发表
阻礙就在於閣下不多看書

perldoc -f open
Win32::Shell