注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

Nihui's Blog

nihui的私人空间和日志

 
 
 

日志

 
 

批量上传图片到 ImageShack  

2007-06-30 21:22:00|  分类: Opensource |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
 1 #!/usr/bin/perl -w
2 # 批量上传图片到 imageshack.us
3 # ~/bin/upload.pl
4 # 需要 libwww-mechanize-perl
5 # 玩 python 的朋友可以用 python-mechanize 改写
6 #
7 # 链接在:
8 # http://www.terminally-incoherent.com/blog/2007/06/27/batch-upload-images-to-imageshack-using-perl/
9 #
10 # 用法如 upload.pl ~/img/*.png
11 use strict;
12 use WWW::Mechanize;
13
14 # suppress warnings about malformed forms
15 $SIG{__WARN__} = sub {} ;
16
17 my $url = "http://www.imageshack.us/";
18
19 my $mech = WWW::Mechanize->new();
20
21 foreach (@ARGV)
22 {
23 $mech->get($url);
24
25 $mech->form_number(2);
26 $mech->field('fileupload' => $_);
27 $mech->submit();
28
29 # follow the link to see the image
30 $mech->follow_link( text => 'Show', n => 1 );
31 my @im = $mech->images();
32
33 # display the URL of the uploaded image
34 print $im[0]->url() . "\n";
35 }
  评论这张
 
阅读(467)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017