Ubuntu中文论坛

代码： 全选

● cat mocp-lrc.pl 
#!/usr/bin/perl

use utf8;
@info=`mocp -i`;
%hinfo=map{split /: /} @info;

print $hinfo{Title};
$_=$hinfo{State}; print,exit if ! /PLAY/;       #不是播放状态
$_=$hinfo{File}; s/(ogg|mp3)$/lrc/; chomp;
if(! -s){print "==无歌词文件==";exit 0;}        #无歌词文件
#print "==无歌词文件==",exit if ! -s; ????? why

$_=`grep \'$hinfo{CurrentTime}\' $_`;
if (! $_)               #无新歌词，不更新输出
{
open (OUT, "/tmp/mocp-last-lrc");
print <OUT>;close OUT;exit;
}
s/\xd//; s/\[.*\]//g;
print;
open (OUT, ">/tmp/mocp-last-lrc"); print OUT; close OUT;

代码： 全选

● g mocp .conkyrc 
${if_running mocp}${color0}moc${color} ${alignr}${exec ~/应用/脚本/mocp-lrc.pl}${endif}