Linux下播放comic电视剧的方法

cnhnln

#!/usr/bin/perl -w
#To call: $0 url
#decode the url first, then call mplayer to play.
#From:
#http://gentoo.linuxsir.org/blog/?q=node/
use warnings;
use URI;
use URI::Escape;
use Encode qw(decode encode);
#use Encode::HanExtra;
#use strict;

my $mplayer = "realplay";

my $url=$ARGV[0];
my $argc=@ARGV;
if($argc != 1){
    die("Uage:$0 url\n");
}
my $uri = URI->new($url);
$url = uri_unescape($url);
if( $uri->scheme eq "rtsp" || $uri->scheme eq "mms"){
    $url = decode("utf8", $url);
    $url = encode("gbk", $url);
    system($mplayer, $url);
}elsif($uri->scheme eq "http"){
    system($mplayer, $url);
}else{
    print "unkown/unsupported protocol $uri->scheme\n";
}

exit(0);


※ 修改:·dipole 于 04月02日15:24:36 修改本文·[FROM: 202.120.52.45]
※ 来源:·饮水思源 bbs.sjtu.edu.cn·[FROM: 202.120.52.45]

cnhnln

: 印象中这个脚本是我写的，是在comicview解决编码问题之前吧？
: 有了现在的comicview，用不着这个了。

时间有点长了，2004年写的了，前面回答得不大准确。
发现这个脚本还是有点用的，但主要用途不是看comic的电视剧
看mms,rtsp流媒体的时候都可用到
http://gentoo.linuxsir.org/blog/?q=node/26