当前时区为 UTC + 8 小时



发表新帖 回复这个主题  [ 7 篇帖子 ] 
作者 内容
1 楼 
 文章标题 : 及其龌龊的down-lrc.pl,会改的来试试。
帖子发表于 : 2010-02-21 17:00 
头像

注册: 2005-08-14 21:55
帖子: 58428
地址: 长沙
送出感谢: 4
接收感谢: 274
代码:
● dog down-lrc.pl
use WWW::Mechanize;
use File::Basename qw/basename dirname/;
chdir dirname $ARGV[0];
$file=basename $ARGV[0];
$file=~s/\.mp3//;
print $file;
die "无此mp3文件。" if ! -f "$file.mp3";
if($file=~/-/){($ar,$ti)=split /-/,$file;}else{$ar="";$ti=$file;}
print "$file =...$ar...$ti...\n";
$ar=`echo $ar|iconv -f utf8 -t gbk|uni2ascii -a J`;
$ti=`echo $ti|iconv -f utf8 -t gbk|uni2ascii -a J`;
chomp $ar; chomp $ti;
my $mech = WWW::Mechanize->new();
$mech -> get("http://lrc.aspxp.net/?ar=$ar&ti=$ti");
if ($mech->success()) {
        print $mech->uri();
        $mech->content(format =>'text');
        $mech->follow_link(text_regex=>qr/^LRC/, n=>1);
        print "\nlrc=>".$mech->uri()."\n";
        $_=$mech->content();
        /\[ti:.*$/m; $_=$&; s/<.*?>/\n/g; print;
        open OUT,">$file.lrc"; print OUT; close OUT;
}

这网站,不会提交。怎么改编码,都提交不了。用post算了。干脆use Encode都不用。nnnnnnnnd
返回的内容,因为没html头,follow_link取n=>2的时候,$mech->save_content("$file.lrc")都写成乱码。只好取网页n=>1,自己解析。

为了mp4播放器,规整当前目录的lrc。
代码:
● for i in *.mp3;do down-lrc.pl $i; done


_________________
● 鸣学


页首
 用户资料  
 
2 楼 
 文章标题 : Re: 及其龌龊的pl,会改的来试试。
帖子发表于 : 2010-02-21 17:08 
头像

注册: 2007-02-02 18:14
帖子: 30702
系统: debian sid
送出感谢: 1
接收感谢: 34
把不是e的字母全部改成e估计就可以了 :em04


_________________
醉了星星,醉月亮●●●●●The Long Way To Go(*^_^*)


页首
 用户资料  
 
3 楼 
 文章标题 : Re: 及其龌龊的pl,会改的来试试。
帖子发表于 : 2010-02-21 17:13 
头像

注册: 2008-11-21 20:26
帖子: 36913
送出感谢: 1
接收感谢: 36
还得改得快才行,不然就不是express了 :em04


_________________
讨厌我的人可以试着点一下
浏览全部ubuntu技巧


页首
 用户资料  
 
4 楼 
 文章标题 : Re: 及其龌龊的pl,会改的来试试。
帖子发表于 : 2010-02-21 17:17 
头像

注册: 2010-01-03 12:38
帖子: 1486
地址: 你他妈找死啊
送出感谢: 0 次
接收感谢: 0 次
额 拜神 虎年发财 :lol:


_________________
    我希望我的心上人也能理解这一点,这一切的开始并不是为了什么价值、责任、过去或是未来,这一切甚至不是为了现在,这一切只是源于passion。


页首
 用户资料  
 
5 楼 
 文章标题 : Re: 及其龌龊的pl,会改的来试试。
帖子发表于 : 2010-02-21 17:35 

注册: 2007-08-02 20:29
帖子: 21303
系统: 窓辺とうこ
送出感谢: 0 次
接收感谢: 22
:em05


页首
 用户资料  
 
6 楼 
 文章标题 : Re: 及其龌龊的pl,会改的来试试。
帖子发表于 : 2010-02-21 19:59 
头像

注册: 2008-03-23 0:39
帖子: 770
送出感谢: 0 次
接收感谢: 4
:em27 :em70


页首
 用户资料  
 
7 楼 
 文章标题 : Re: 及其龌龊的down-lrc.pl,会改的来试试。
帖子发表于 : 2011-09-05 19:10 
头像

注册: 2005-08-14 21:55
帖子: 58428
地址: 长沙
送出感谢: 4
接收感谢: 274
今天看了下显示歌词的。居然都不下载歌词了。还是我自己的好用。


_________________
● 鸣学


页首
 用户资料  
 
显示帖子 :  排序  
发表新帖 回复这个主题  [ 7 篇帖子 ] 

当前时区为 UTC + 8 小时


在线用户

正在浏览此版面的用户:没有注册用户 和 2 位游客


不能 在这个版面发表主题
不能 在这个版面回复主题
不能 在这个版面编辑帖子
不能 在这个版面删除帖子
不能 在这个版面提交附件

前往 :  
本站点为公益性站点,用于推广开源自由软件,由 DiaHosting VPSBudgetVM VPS 提供服务。
我们认为:软件应可免费取得,软件工具在各种语言环境下皆可使用,且不会有任何功能上的差异;
人们应有定制和修改软件的自由,且方式不受限制,只要他们自认为合适。

Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
简体中文语系由 王笑宇 翻译