贴图 paste-img.pl 这下终于爽了。最新最短的脚本更新。

[eexpress]

新脚本。做成列表了。统一的最简调用格式。使用了xsel libwww-mechanize-perl libnet-dbus-perl。

代码： 全选

● cat paste-img.pl
#!/usr/bin/perl -w

use utf8;
use strict;
use WWW::Mechanize;
use Net::DBus;

my $bus = Net::DBus->session->get_service('org.freedesktop.Notifications')
->get_object('/org/freedesktop/Notifications','org.freedesktop.Notifications');
my $mech = WWW::Mechanize->new();
my $web_select="imagebin";	#选择贴图网站的缩写短语，会在列表中自动匹配的。
my $add;
#======================
my %web=(	"http://www.cjb.net/"=>{"image"=>$ARGV[0]},
		"http://kimag.es/"=>{"userfile1"=>$ARGV[0]},
		"http://imagebin.org/index.php?page=add"=>{"nickname"=>"eexp","image" => $ARGV[0],"disclaimer_agree"=>"Y"},
		"http://paste.ubuntu.org.cn/"=>{"poster"=>"eexp","screenshot"=>$ARGV[0],"code2"=>join("\n",`xsel -o`)},
	);
foreach (keys %web){$add=$_,last if /$web_select/;}
if(!$add){$bus->Notify("paste-img", 0, "error", '无效网站地址', ':(', [], { }, -1);exit;}
print $web_select."\n";
#======================
$mech -> get($add);
$mech -> submit_form(with_fields => $web{$add});
#======================
if ($mech->success()) {
	my $rr=$mech->uri();
	print "贴图地址： $rr 。\n";
	`echo $rr|xsel -i`;
	$bus->Notify("paste-img", 0, "sunny", '贴图地址', $rr, [], { }, -1);
} else {
	$bus->Notify("paste-img", 0, "error", '贴图失败', ':(', [], { }, -1);
	print "ERROR:\t".$mech->status()."\n";
}
#======================

老脚本

代码： 全选

● cat paste-img.pl
#!/usr/bin/perl -w

use utf8;
use strict;
use WWW::Mechanize;
use Net::DBus;

my $mech = WWW::Mechanize->new();
my $web_select="cjb";
#my $web_select="kimag";
#my $web_select="ubuntu";
#======================
#----cjb----
if($web_select eq "cjb"){
$mech -> get("http://www.cjb.net/");
$mech -> submit_form(
	with_fields => {"image" => $ARGV[0]});
}
#http://www.cjb.net/images.html?d2bbe.jpg
#http://images.cjb.net/d2bbe.jpg
#======================
#----kimag----
if($web_select eq "kimag"){
$mech -> get("http://kimag.es/");
$mech -> submit_form(
	with_fields => {"userfile1" => $ARGV[0]});
#        form_number => 1,
#        fields => {"userfile1" => $ARGV[0]});
}
#http://kimag.es/view.php?i=55323637.jpg
#http://kimag.es/share/55323637.jpg
#======================
#----paste.ubuntu----
if($web_select eq "ubuntu"){
$mech -> get("http://paste.ubuntu.org.cn/");
$mech -> submit_form(
	form_name => "editor" ,
	fields => { 
	"screenshot" => $ARGV[0],
	"code2"	=> join("\n",`xsel -o`),
	"poster" => "eexp"
	} ,
	button => "paste");
}
#======================
my $bus = Net::DBus->session->get_service('org.freedesktop.Notifications')
->get_object('/org/freedesktop/Notifications','org.freedesktop.Notifications');
if ($mech->success()) {
	my $rr=$mech->uri();
	print "贴图地址： $rr 。\n";
	`echo $rr|xsel -i`;
	$bus->Notify("paste-img", 0, "sunny", '贴图地址', $rr, [], { }, -1);
} else {
	$bus->Notify("paste-img", 0, "error", '贴图失败', ':(', [], { }, -1);
	print "ERROR:\t".$mech->status()."\n";
}
#======================

[delectate]

不愧是神

但是也要等paste好了再上脚本吧……

[eexpress]

WWW::Mechanize 填表规则：
下载网站的html。
找到需要提交的 HTML::Form 结构。就是
<form action="http://upload.cjb.net/" enctype="multipart/form-data" method="post"><input name="images" type="hidden" value="1"><td colspan="2"><table cellpadding="0" cellspacing="0" width="100%"><td width="100%"><input name="image" style="font-size:10px;width:100%" type="file"></td><td><input style="font-size:10px" type="submit" value="Upload Image"></td></table></td></form>

$mech -> submit_form() 的写法：
指定form
1。form有name的。form_name => "editor" 这样写。
2。form没name的。form_number => 1 这样写。就是vim里面，gg/<form回车，n 一直按，数数字而已。
指定fields, ARGV就是你要贴的图片路径
fields => {"image" => $ARGV[0]});

智能判断的，这样写。自动判断带此name的第一个form。
with_fields => {"image" => $ARGV[0]});

[eexpress]

额。2楼。上面3个网站。可选的啊。

代码： 全选

my $web_select="cjb";
#my $web_select="kimag";
#my $web_select="ubuntu";

[delectate]

额。2楼。上面3个网站。可选的啊。

代码： 全选

my $web_select="cjb";
#my $web_select="kimag";
#my $web_select="ubuntu";

sorry,没仔细看代码

最近精神状态不好

[tenzu]

又见神码

[leeaman]

赞cat

[roylez]

这么点东西，到处显摆……

[delectate]

拜见神……参见主席……

[eexpress]

nnnd 我的代码和经验，都是共享的，给一切有需要的人。居然敢说是显摆。

[highwind]

不是吧，又没有注释。。。

[delectate]

nnnd 我的代码和经验，都是共享的，给一切有需要的人。居然敢说是显摆。

来晚了……

[eexpress]

增加一个网站。
#======================
#----imagebin----
if($web_select eq "imagebin"){
$mech -> get("http://imagebin.org/index.php?page=add");
$mech -> submit_form(
with_fields => {"nickname"=>"eexp","image" => $ARGV[0],"disclaimer_agree"=>"Y"});
}
#======================

[tenzu]

nnnd 我的代码和经验，都是共享的，给一切有需要的人。居然敢说是显摆。

神，把所有的码打个包上传吧

[wowoto]

年末还不忘水一次...这次见到的都是大牛~ 好好水一把~~话说没有论坛对我等菜鸟就是一个杯具呀~

祝楼上各位牛： 新年快乐！