xlyrics-0.4(歌词秀)

阿蟾

FC4下的：

yum install bmp-devel才能装。

装后gedit /usr/share/applications/fedora-bmp.desktop

Exec=beep-media-player改为Exec=env LANG=zh_CN beep-media-player

这样，gb2312的歌名以及歌词都能正确显示了。^-^

Freesnake

纯支持，反正俺听的基本都不是中文歌……
有歌词也看不懂……

homesp

支持,回去试试,以前用了一些Xmms的歌词插件也不起什么作用希望这次能行

homesp

怎么 在Xmms下没有发现插件选项呢？？？
是在首选项里吧？

homesp

checking for stpcpy... yes
checking for strcasecmp... yes
checking for strdup... yes
checking for strtoul... yes
checking for tsearch... yes
checking for __argz_count... yes
checking for __argz_stringify... yes
checking for __argz_next... yes
checking for __fsetlocking... yes
checking for iconv... yes
checking for iconv declaration...
         extern size_t iconv (iconv_t cd, char * *inbuf, size_t *inbytesleft, char * *outbuf, size_t *outbytesleft);
checking for nl_langinfo and CODESET... yes
checking for LC_MESSAGES... yes
checking for bison... no
checking whether NLS is requested... yes
checking whether included gettext is requested... no
checking for GNU gettext in libc... yes
checking whether to use NLS... yes
checking where the gettext function comes from... libc
checking for pkg-config... /usr/bin/pkg-config
checking for gtk+-2.0 >= 2.4.0 gdk-2.0 >= 2.4.0  glib-2.0 >= 2.4.0... yes
checking GTK2_CFLAGS... -DXTHREADS -I/usr/include/gtk-2.0 -I/usr/lib/gtk-2.0/include -I/usr/X11R6/include -I/usr/include/atk-1.0 -I/usr/include/pango-1.0 -I/usr/include/freetype2 -I/usr/include/glib-2.0 -I/usr/lib/glib-2.0/include
checking GTK2_LIBS... -Wl,--export-dynamic -lgtk-x11-2.0 -latk-1.0 -lgdk-x11-2.0 -lgdk_pixbuf-2.0 -lm -lpangoxft-1.0 -lpangox-1.0 -lpango-1.0 -lgobject-2.0 -lgmodule-2.0 -ldl -lglib-2.0
checking for xmms-config... no
checking for XMMS - version >= 1.0.0... no

为什么这样？我的Xmms是1.2.10的啊

csyfek

楼上的要xmms的开发包。

homesp

刚刚发现了，已经装好了，谢谢了

homesp

怎么不能 自动从网上下载歌词？难道是网站的问题？

homesp

能 给提供个歌词下载地址吗？现在是http://bbs.hjqing.com/lrc/index.asp
好像不行

homesp

#!/usr/bin/perl -I/usr/lib/xlyrics
# parse arguments
@ARGV < 1 && print("Usage: downloadlyrics.pl music [download_dir] [more_lyrics?]

\n") && exit(-1);
$music = $ARGV[0];
if(@ARGV > 1){
        $lyrics_file = $ARGV[1];
}else{
        $lyrics_file = "$ARGV[0].lrc";
}

use HTTP:ite;
$http = new HTTP:ite;

# search lyrics in basic database
%vars = (
        "souqu" => "&#184;è&#195;&#251;",
        "souci" => $music,
        "ku" => "db",
        "B1" => "&#204;á&#189;&#187;"
);
$http->prepare_post(\%vars);
$http->request("http://bbs.hjqing.com/lrc/index.asp")
        or die "Unable to get document: $!";
if($http->body() =~ /&#195;&#187;&#211;&#208;&#196;&#227;&#207;&#235;&#213;&#210;&#181;&#196;&#184;è&#180;&#202;/){
# try the addtion database
        glob $http = new HTTP:ite;
        %vars = (
                "souqu" => "&#184;è&#195;&#251;",
                "souci" => $music,
                "ku" => "dbadd",
                "B1" => "&#204;á&#189;&#187;"
        );
        $http->prepare_post(\%vars);
        $http->request("http://bbs.hjqing.com/lrc/index.asp")
                or die "Unable to get documents $!";
        $http->body() =~ /&#195;&#187;&#211;&#208;&#196;&#227;&#207;&#235;&#213;&#210;&#181;&#196;&#184;è&#180;&#202;/ && die("find nothing");
}
@lines = split(/\n/, $http->body());
open(INFOFILE, ">/tmp/$music.lrc.info")
        or die "Can not open info file to wirte";
open(OUTFILE, ">$lyrics_file")
        or die "Can not open lyrics file to write";
$count = 0;
for($index = 0; $index < @lines; $index ++){
        if($lines[$index] =~ /^\[.*$/){
                # write the lyrics content to the file
                $lines[$index] =~ s/<\/textarea>//;
                print OUTFILE ("$lines[$index]\n");
        }elsif($lines[$index] =~ /&#189;&#248;&#210;&#187;&#178;&#189;&#203;&#209;&#203;÷/){
                $index ++;
                for(; $index < @lines; $index ++){
                        # add more infomation
                        if($lines[$index] =~ /<\/textarea>/){
                                last;
                        }else{
                                print INFOFILE ("$lines[$index]\n");
                                $count ++;
                        }
                }

                # just get lyrics list or first download and more than one file found
                if(@ARGV == 3
                        && ($ARGV[2] == "list" || ($ARGV[2] == "first" && $count > 1))){
                        close(OUTFILE);
                        unlink($lyrics_file);
                        exit;
                }

        }
}


downloadlyrics.pl里面怎么乱码？