Audio-Play-MPG123
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
print <<EOF;
**************************************************************************
* *
* Audio::Play::MPG123 is now configured. *
* *
* Remember to compile the mpg123 binary that is included in the *
* distribution in the subdirectory mpg123/ *
* *
* Enter "look Audio::Play::MPG123" from the CPAN prompt to get to the *
* distribution directory. *
* *
**************************************************************************
EOF
mpg123/tools/Mp3play view on Meta::CPAN
right.
0 Move play list window's contents to the left
margin.
\$ Move play list window's contents to the right
margin.
- Delete Delete selected track from play list. Deleted
track stops playing immediatelly.
+ Insert Insert new track, tracks in a given directory or
in a play list file to play list. Entering file or
directory or play list name is done with the same
fashion as on command line. You are prompted to
to enter a file or directory name. If You want to
insert tracks from a play list file, You must
precede the filename with the "@" character. You
can use a TAB key while entering file name to
expand partially entered file name (just like it
is done in bash - Bourne Again Shell).
^W Save play list to a given file. You may use TAB
key to expand partial file name, as described
above.
END_LONG_HELP
}
} until vec($r, fileno($rlin), 1);
}
$player->statfreq(20);
print "\nmpg123sh, version $Audio::Play::MPG123::VERSION\n";
print "enter 'help' for a command list\n\n";
for(;;) {
my $prompt=fastcwd." ";
if ($player->state) {
$player->stat;
$prompt.=$player->title." ".$player->{frame}[2]."/".($player->{frame}[2]+$player->{frame}[3]);
} else {
$prompt.=$p_url;
}
$_=$rl->readline("$prompt> ");
if (/^l(?:oad)?\s*(.*?)\s*$/i) {
my $url = $player->canonicalize_url(uri_unesc $1);
load_url($url) or print "ERROR: ",$player->error,"\n";
mp3log("l", $url);
$player->stat;
} elsif (/^a(?:dd)?\s*(.*?)\s*$/i) {
for (mglob uri_unesc $1, GLOB_TILDE|GLOB_NOMAGIC) {
add_url $player->canonicalize_url($_);
}
} elsif (/^r(?:epeat)?\s*(\d+)\s*$/) {
( run in 1.084 second using v1.01-cache-2.11-cpan-0b5f733616e )