发个用mplayer看搜狐视频的脚本

[mjp123]

使用方法：
/path/sohu.pl http://tv.sohu.com/20120423/n341373708.shtml
最好是和浏览器关联，Firefox 可以用flashgot。opera就简单了，直接编辑菜单配置文件。

sohu.tar

(10 KiB) 已下载 212 次

[YeLee]

嘿嘿，又是flvcd。

[mjp123]

嘿嘿，又是flvcd。

直接flvcd是不能看sohu、奇艺＝

[zhyma]

如何和flashgot关联?
哈哈会用了,flashgot 选项--常规--下载管理器--新增 输入sohu.pl ---浏览中---找到sohu.pl的位置----参数模板中输入http://tv.sohu.com/20120509/n342722981.shtml 确定. 也可以用vlc 在sohu.pl中把mpayer换了.有一个问题,关播放器要关许多次. 还是要赞一个:em11

[bobby_winon]

感谢分享,下来试试。

[rapistor]

先mark下，和那个优酷是一样的吗？

[mjp123]

先mark下，和那个优酷是一样的吗？

这个是专门看搜狐的，那个优酷的看不成搜狐视频。

[funicorn]

好东西，可以解释一下原理吗？

[lulusee]

chrome呢 怎么用

[枫叶饭团]

这个必需啊，我喜欢

[枫叶饭团]

Can't locate LWP/Simple.pm in @INC (@INC contains: /usr/lib/perl5/site_perl /usr/share/perl5/site_perl /usr/lib/perl5/vendor_perl /usr/share/perl5/vendor_perl /usr/lib/perl5/core_perl /usr/share/perl5/core_perl .) at /home/maplebeats/Scripts/sohu.pl line 3.
BEGIN failed--compilation aborted at /home/maplebeats/Scripts/sohu.pl line 3.

求破，perl盲

[枫叶饭团]

已破，谢谢

[youzhiyili]

都是好心人啊

[fatevictor]

小白表示很困难。。。

用代码结果：

MPlayer svn r34540 (Ubuntu), built with gcc-4.6 (C) 2000-2012 MPlayer Team
mplayer: could not connect to socket
mplayer: No such file or directory
Failed to open LIRC support. You will not be able to use your remote control.

Playing /home/ny/下载/sohu.pl.
libavformat version 53.21.0 (external)
Mismatching header version 53.19.0


Playing http://tv.sohu.com/20120630/n346958043.shtml.
Resolving tv.sohu.com for AF_INET6...

Couldn't resolve name for AF_INET6: tv.sohu.com
Resolving tv.sohu.com for AF_INET...
Connecting to server tv.sohu.com[221.236.12.156]: 80...

Cache size set to 320 KBytes
Cache fill: 0.00% (0 bytes)



Exiting... (End of file)

Flashgot关联然后要怎么用？

[funicorn]

嘿嘿，又是flvcd。

直接flvcd是不能看sohu、奇艺＝

稍微改了一下。这个http://newflv.sohu.ccgslb.net是搜狐自己的服务器，还是第三方hack的啊？

[bash]
#!/usr/bin/perl
use strict;
use LWP::Simple;

my $arg=$ARGV[0];
#$arg = "http://tv.sohu.com/20120423/n341373708.shtml";
my $url="http://www.flvcd.com/parse.php?format=high&kw=$arg";
#(如果有的话)
#format=high 高清版解析
#format=super 超清版解析
#format=real 原画版解析

(my @flvurls)=get($url)=~/<U>(.*)/g;
# 生成播放列表
open (OUTFILE,">>/tmp/temp");
foreach my $flvurl (@flvurls){
my($tmp ,$url) = split(/=/,$flvurl);
print OUTFILE "http://newflv.sohu.ccgslb.net$url \n";
}
close(OUTFILE);
system("mv /tmp/temp /tmp/play.m3u");
system("mplayer -playlist /tmp/play.m3u")
[/bash]