mencoder -oac copy -ovc copy 源文件1 源文件2 源文件3 ... -o 目标文件

 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 }

 Google 文件   
  
 坏消息是 Google 文件 遇到了错误。
 好消息是您帮助我们发现了错误，我们现在正对此进行调查。
 对于由此造成的不便，我们深表歉意
 很抱歉，同时也感谢您的帮助！
 - Google 文件团队
(report #nx4mlTzuCPQ5OwYz)