免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
› 论坛 › 程序设计 › Perl › Mojo UserAgent 上传文件，进度问题
12下一页
最近访问板块 发新帖
查看: 3592 | 回复: 10
打印 上一主题 下一主题

Mojo UserAgent 上传文件，进度问题 [复制链接]

maybenot

论坛徽章:
0
跳转到指定楼层
1楼 [收藏(0)] [报告]
发表于 2017-06-12 23:50 |只看该作者 |倒序浏览
本帖最后由 maybenot 于 2017-06-13 07:04 编辑

服务器端：(Cookbook上的例子)
  1. use Mojolicious::Lite;
  2. use Scalar::Util 'weaken';

  4. # Intercept multipart uploads and log each chunk received
  5. hook after_build_tx => sub {
  6.   my $tx = shift;

  8.   # Subscribe to "upgrade" event to identify multipart uploads
  9.   weaken $tx;
  10.   $tx->req->content->on(upgrade => sub {
  11.     my ($single, $multi) = @_;
  12.     return unless $tx->req->url->path->contains('/upload');

  14.     # Subscribe to "part" event to find the right one
  15.     $multi->on(part => sub {
  16.       my ($multi, $single) = @_;

  18.       # Subscribe to "body" event of part to make sure we have all headers
  19.       $single->on(body => sub {
  20.         my $single = shift;

  22.         # Make sure we have the right part and replace "read" event
  23.         return unless $single->headers->content_disposition =~ /example/;
  24.         $single->unsubscribe('read')->on(read => sub {
  25.           my ($single, $bytes) = @_;

  27.           # Log size of every chunk we receive
  28.           app->log->debug(length($bytes) . ' bytes uploaded');
  29.         });
  30.       });
  31.     });
  32.   });
  33. };

  35. # Upload form in DATA section
  36. get '/' => 'index';

  38. # Streaming multipart upload
  39. post '/upload' => sub {
  40.    my $c = shift;
  41.    my @files;
  42.    for my $file ($c->req->upload('example')) {
  43.        push @files, $file->filename;
  44.    }
  45.    $c->render(text => "file names:\n@files");
  46. };

  48. app->start;
  49. __DATA__

  51. @@ index.html.ep
  52. <!DOCTYPE html>
  53. <html>
  54.   <head><title>Streaming multipart upload</title></head>
  55.   <body>
  56.     %= form_for upload => (enctype => 'multipart/form-data') => begin
  57.       %= file_field 'example'
  58.       %= submit_button 'Upload'
  59.     % end
  60.   </body>
  61. </html>
复制代码

然后用UserAgent上传文件：
  1. use Mojo::UserAgent;

  3. my $url = "http://127.0.0.1:3000/upload";
  4. my $ua  = Mojo::UserAgent->new();
  5. my $tx  = $ua->build_tx(POST => $url=> form => {example => { file=>'D:/report_data2.txt' }});
  6. $tx->req->on(progress => sub {
  7.     my $msg = shift;
  8.     return unless my $len = $msg->headers->content_length;
  9.     my $size = $msg->content->progress;
  10.     say 'Progress: ', $size == $len ? 100 : int($size / ($len / 100)), '%';
  11. });
  12. $tx = $ua->start($tx);
  13. print $tx->res->body;
复制代码
UA端代码我是参照的这里http://www.yishuiyixu.com/article/115
仅仅把$tx->res改成了$tx->req，文件上传成功并返回文件名没问题，就是进度信息不对，打印出很多0%
还请指点！
quanpai

论坛徽章:
0
2楼 [报告]
发表于 2017-06-15 11:06 |只看该作者
你要的是不是这个:

https://metacpan.org/pod/distrib ... d#Streaming-request
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
quanpai

论坛徽章:
0
3楼 [报告]
发表于 2017-06-15 11:14 |只看该作者
你要的是不是这个啊，https://metacpan.org/pod/distrib ... d#Streaming-request
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
hztj2005

论坛徽章:
0
4楼 [报告]
发表于 2017-06-15 13:14 |只看该作者
请教一下perl服务器端代码要如何测试运行？ 本机Window中启动的IIS服务应该不能运行吧？
是否要linux系统？cygwin是否可以？
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
quanpai

论坛徽章:
0
5楼 [报告]
发表于 2017-06-15 15:35 |只看该作者
不用配置服务器. 直接morbo xxx.pl

https://metacpan.org/pod/distribution/Mojolicious/script/morbo
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
maybenot

论坛徽章:
0
6楼 [报告]
发表于 2017-06-15 21:55 |只看该作者
回复 4# hztj2005

安装Mojo之后自带的morbo命令就是服务端了，你看下文档
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
zhouzhen1

论坛徽章:
0
7楼 [报告]
发表于 2017-06-15 23:22 |只看该作者
看Mojo::Message的source https://metacpan.org/source/SRI/ ... ojo/Message.pm#L111

所以可以是这样
  1. $tx->req->on(
  2.     progress => sub {
  3.         my ( $msg, $type, $offset ) = @_;
  4.         return unless $type eq 'body';

  6.         return unless my $len = $msg->headers->content_length;

  8.         say "Progress: ",
  9.           $offset == $len ? 100 : int( $offset / ( $len / 100 ) ),
  10.           '%';
  11.     }
  12. );
复制代码

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
hztj2005

论坛徽章:
0
8楼 [报告]
发表于 2017-06-15 23:40 |只看该作者
maybenot 发表于 2017-06-15 21:55
回复 4# hztj2005

安装Mojo之后自带的morbo命令就是服务端了，你看下文档

谢谢！搜了一下网上，用下面行启动了你服务器端代码：
morbo -w ./lib -w ./templates ./mojosever.pl

然后另开一个DOS窗口，运行你客户端的代码，上传文件：

D:\Perl\perlandlwp\perllwp_examples\mojopl>perl uploadfile.pl
Progress: 0%
Progress: 0%
Progress: 0%
Progress: 0%
Progress: 0%
file names:
weblist.txt

似乎是成功了。

但是上传到服务器文件在硬盘什么地方呢？

我没有找到，继续请教。

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
maybenot

论坛徽章:
0
9楼 [报告]
发表于 2017-06-16 00:46 |只看该作者
回复 8# hztj2005

  •    for my $file ($c->req->upload('example')) {
  •        push @files, $file->filename;
  •        $file->move_to("E:/132.txt"); #这样试试
  •    }
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
maybenot

论坛徽章:
0
10楼 [报告]
发表于 2017-06-16 00:46 |只看该作者
回复 8# hztj2005

  •    for my $file ($c->req->upload('example')) {
  •        push @files, $file->filename;
  •        $file->move_to("E:/132.txt"); #这样试试
  •    }
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
12下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号：11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们：huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP