ru.linux
- RU.LINUX ---------------------------------------------------------------------
From : Slava Gorbanev 2:5057/19.20 03 Apr 2001 20:50:23
To : Rebel
Subject : Re: MP3/WMA player
--------------------------------------------------------------------------------
On Tue, 03 Apr 01 11:31:48 +0500 Rebel wrote:
R> ps: как в mpg123 реализовать np?
===8<=== /home/rnd/perl/song.pl ===>8===
#!/usr/bin/perl
# print song name played by mpg123 (gqmpeg) now
$extract_song_name = 1;
$pid = `pidof -s mpg123`; chop $pid;
$cmdfile = "/proc/$pid/cmdline";
open CMDLINE, $cmdfile or die "playing nothing\n";
$song = (reverse split "\0", <CMDLINE>)[0];
if ($extract_song_name and $song =~ /.*\/(.*)\.mp3/) {
$song = $1;
$song =~ tr/_/ /;
}
print "now playing: $song\n";
===8<=== CUT ===>8===
--
RnD[.] [ Leonard Cohen - The Future ]
GCS d- s+:- a-- C++++ UBL+++ P+++ L+++ E(++) W+(++) N++@+ o? K-
w O M- V PS+ PE Y PGP- t- 5 X R- tv b+ DI-- D++ G++ e- h! r y**
--- tin/1.5.7-20010105 ("Laetitia") (UNIX) (Linux/2.2.16-3 (i586))
* Origin: just leave me alone (2:5057/19.20)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
