监视剪贴板，自动下载的脚本。支持很多种flash网站和很多种网盘。

[eexpress]

代码： 全选

☛ cat bin/clip.pl 
#!/usr/bin/perl

use Gtk2 "-init"; 
use Encode;
$SIG{CHLD} = 'IGNORE';
$last="";
my $clip = Gtk2::Clipboard -> get(Gtk2::Gdk::Atom -> intern("PRIMARY", 0));
$clip -> signal_connect("owner-change" => \&deal);

Gtk2 -> main;
exit 0;

#----------------------------------
sub deal{
$_= $clip -> wait_for_text,"primary";
@url=m"http://[^\s]*"g;
if($#url<0){print "none url\n";return 1;}
foreach(@url){
my $t;
s/\W+$//;
next if $last eq $_;
$last=$_;
#----------------------------------
if(/v.youku.com/ || /tudou.com\/playlist/ || /v.ku6.com/ || /6.cn\/watch/ || /tv.sohu.com/){
	$t="下载flash资源";
	if(fork()==0){`xterm -e ~/bin/flash-down.pl $_`;exit;}
}
if(m"http://u.115.com/file/\w+"){
	$t="下载115资源";
	if(fork()==0){`xterm -e ~/bin/115_client $&`;exit;}
}
if(/rapidshare.com/ || /hotfile.com.*html/){
	$t="保存slimrat资源";
	if(fork()==0){`xterm -e ~/bin/slimrat $_`;exit;}
}
#----------------------------------
if($t){
print "$t ===> $_\n";
$t=decode("utf8",$t);
`$ENV{HOME}/bin/msg elvis.png  $t $&`;
} else {print "unrecognized url\n"; return 1;}
}
}

准备好你们的xterm（最好有xterm4.pl和xterm的热键隐藏进制）。省得鼠标乱划，开出无数的窗口。

[ChenFengyuan]

SF

[eexpress]

胡说的药丸。我99%的脚本都是直接贴的。

[ChenFengyuan]

更新

[icyomik]

能监视剪贴板？真不错，可惜，不懂Perl，漂过。

[大宝]

[eexpress]

-@url=m"http://[^\s]*"g;
+@url=m"(?:http|mms|rtsp)://[^\s]*"g;


+if(/^mms/ || /^rtsp/){
+ if(fork()==0){`xterm -e mplayer $_`;exit;}
+}

增加了直接听电台的。

[风间星魂]

要xterm?

[eexpress]

代码： 全选

 $last="";
+$enable=1;
+use File::Basename qw/basename dirname/;
+chdir dirname (-l $0?readlink $0:$0);
 my $clip = Gtk2::Clipboard -> get(Gtk2::Gdk::Atom -> intern("PRIMARY", 0));
 $clip -> signal_connect("owner-change" => \&deal);
 
+my $status_icon = Gtk2::StatusIcon->new;
+$status_icon->signal_connect('button-press-event',\&tray);
+$status_icon->set_from_file("clip0.png");
+$status_icon->set_visible(1);
+
 Gtk2 -> main;
 exit 0;
+#----------------------------------
+sub tray{
+$enable=$enable?0:1;
+$status_icon->set_from_file($enable?"clip0.png":"clip1.png");
+}
 
 #----------------------------------
 sub deal{
+return 0 if ! $enable;
 $_= $clip -> wait_for_text,"primary";

加到tray了。点下可以切换监视与否。


xterm可以自己改成gnome-terminal或者其他的嘛。

[leeaman]

神,再努力,弄个迅雷出来

[风间星魂]

问下神，fork后的flash_down.pl在那？还是我理解有问题？

[eexpress]

http://git.ubuntu.org.cn/?a=blob&p=eexp ... sh-down.pl
or
http://code.google.com/p/flash-down/
在论坛有，可咋搜索不到了呢。

改了2个图标。

[leeaman]

晕,ee牌奶嘴

[eexpress]

死黑脸

重作2个。

[eexpress]

内嵌图片版本