及其龌龊的down-lrc.pl,会改的来试试。

Python/PHP/Perl 开发与设计
回复
头像
eexpress
帖子: 58428
注册时间: 2005-08-14 21:55
来自: 长沙
送出感谢: 4 次
接收感谢: 256 次

及其龌龊的down-lrc.pl,会改的来试试。

#1

帖子 eexpress » 2010-02-21 17:00

代码: 全选

● 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
● 鸣学
头像
leeaman
帖子: 30702
注册时间: 2007-02-02 18:14
系统: debian sid
送出感谢: 1 次
接收感谢: 23 次

Re: 及其龌龊的pl,会改的来试试。

#2

帖子 leeaman » 2010-02-21 17:08

把不是e的字母全部改成e估计就可以了 :em04
醉了星星,醉月亮●●●●●The Long Way To Go(*^_^*)
头像
tenzu
论坛版主
帖子: 36913
注册时间: 2008-11-21 20:26
送出感谢: 0
接收感谢: 21 次

Re: 及其龌龊的pl,会改的来试试。

#3

帖子 tenzu » 2010-02-21 17:13

还得改得快才行,不然就不是express了 :em04
头像
qkbeyond
帖子: 1486
注册时间: 2010-01-03 12:38
来自: 你他妈找死啊
送出感谢: 0
接收感谢: 0
联系:

Re: 及其龌龊的pl,会改的来试试。

#4

帖子 qkbeyond » 2010-02-21 17:17

额 拜神 虎年发财 :lol:
  • 我希望我的心上人也能理解这一点,这一切的开始并不是为了什么价值、责任、过去或是未来,这一切甚至不是为了现在,这一切只是源于passion。
JiangHui
论坛版主
帖子: 21303
注册时间: 2007-08-02 20:29
系统: 窓辺とうこ
送出感谢: 0
接收感谢: 13 次

Re: 及其龌龊的pl,会改的来试试。

#5

帖子 JiangHui » 2010-02-21 17:35

:em05
头像
ChenFengyuan
帖子: 770
注册时间: 2008-03-23 0:39
送出感谢: 0
接收感谢: 4 次

Re: 及其龌龊的pl,会改的来试试。

#6

帖子 ChenFengyuan » 2010-02-21 19:59

:em27 :em70
头像
eexpress
帖子: 58428
注册时间: 2005-08-14 21:55
来自: 长沙
送出感谢: 4 次
接收感谢: 256 次

Re: 及其龌龊的down-lrc.pl,会改的来试试。

#7

帖子 eexpress » 2011-09-05 19:10

今天看了下显示歌词的。居然都不下载歌词了。还是我自己的好用。
● 鸣学
回复

回到 “Python/Php/Perl”