Làm cách nào để thêm thanh tiến trình vào WWW :: Cơ chế hóa?

Question

Tôi có đoạn mã sau:

$mech->get($someurl, ":content_file" => "$i.flv"); 

Vì vậy, tôi nhận được nội dung của một url và lưu nó như một tập tin flv. Tôi muốn in ra mỗi giây hoặc lâu hơn bao nhiêu phần tải xuống còn lại. Có cách nào để thực hiện điều này trong WWW :: Cơ chế hóa?

Answer 1

Rất cám ơn đến Peter Kovacs' câu trả lời cho hàng đầu tôi đến câu trả lời đúng. Hóa ra nó phức tạp hơn một chút so với những gì tôi mong đợi, vì vậy tôi quyết định (kinh dị) trả lời câu hỏi của chính mình.

Như Peter cho thấy, tôi có thể thiết lập một callback như vậy:

$m->get($u, ":content_cb" => \&callback); 

Nhưng bây giờ tôi không thể lưu nội dung bằng cách sử dụng: Giá trị content_file, bởi vì tôi chỉ có thể chọn một trong hai. Hàm gọi lại được truyền dữ liệu và cuối cùng tôi đã ghi nó vào một tệp.

Tôi cũng nhận được đối tượng phản hồi chứa tổng kích thước của nội dung như đã được chỉ ra. Vì vậy, bằng cách giữ tổng số nội dung đang chạy nhận được cho đến thời điểm này và chia cho nội dung tổng cộng, tôi có thể tìm hiểu phần trăm nội dung đã được tải xuống. Đây là chức năng gọi lại đầy đủ:

open (VID,">$i.flv") or die "$!"; 
$total = 0; 
sub callback 
{ 
    my($data, $response, $proto) = @_; 
    print VID "$data"; # write data to file 
    $total+= length($data); 
    $size = $response->header('Content-Length'); 
    print floor(($total/$size)*100),"% downloaded\n"; # print percent downloaded 
} 

Tôi hy vọng sẽ giúp ai đó.

Answer 2

WWW::Mechanize nói rằng phương pháp get là quá tải "được xử lý tốt" của LWP :: UserAgent get. Nhìn vào các tài liệu cho LWP :: UserAgent, bạn có thể cung cấp một phím content_cb mà được gọi với mỗi đoạn của tập tin tải về:

$mech->get($someurl, ":content_cb" => \&callback); 
sub callback 
{ 
    my($data, $response, $proto) = @_; 
    # save $data to $i.flv 
    # print download notification 
}