ru.linux

 
 - RU.LINUX ---------------------------------------------------------------------
 From : Slava Gorbanev                       2:5057/19.20   08 May 2002  02:57:06
 To :  l shooshp nov
 Subject : now playing для mpg123
 -------------------------------------------------------------------------------- 
 

 
 Tuesday May 07 2002 09:14, аl shooshpаnov writes:
 
  аs> Hарод, покажите, пожалуйста, свои способы выведения np для mpg123.
  аs> Я сделал это для себя, но немножко через задницу, поскольку
  аs> в программировании на C не силён.
 
 - - - 8< - - - w:/rnd/perl/song.pl - - - 8< - - -
 #!/usr/bin/perl
 # print song name played by mpg123 (gqmpeg) now
 
 $pid = `ps axwh OT|awk '/mpg123:/ {print \$1; exit}'`;
 
 die "playing nothing\n" if $?;
 
 chop $pid;
 $cmdfile = "/proc/$pid/cmdline";
 
 open CMDLINE, $cmdfile or die "playing nothing\n";
 
 $song = (reverse split "\0", <CMDLINE>)[0];
 
 if ($song =~ /(?:.*\/)?(.*)\.mp3/) {
     $song = $1;
     $song =~ tr/_/ /;
 }
 print "$song\n";
 - - - - - - - 8< - - - - - - -
 
 -- 
 rnd, hardcore necromancer: склепики, гробики, саркофагики...
 
 --- GoldED+/W32 snapshot-2001.5.29
  * Origin: FTS-0004 compliant system (2:5057/19.20)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    now playing для mpg123    l shooshp nov   07 May 2002 09:14:34   now playing для mpg123   Slava Gorbanev   08 May 2002 02:57:06   Re: now playing для mpg123   Vladimir Mosgalin   08 May 2002 10:37:34