加了一个歌词显示的脚本。
代码: 全选
● 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}