Update ...and strangely enough there is also Winamp::Control

--
I'd like to be able to assign to an luser

Here's a (slightly trimmed) script I use to control Winamp:

#!c:/perl/bin/perl -w
use strict;
use Win32::API;

use constant WM_USER        => 1024;
use constant WM_COMMAND        => 273;

my %commands = (
    PREV                                => 40044,
    NEXT                                => 40048,
    PLAY                                => 40045,
    PAUSE                                => 40046,
    STOP                                => 40047,
    # Lots of other commands trimmed for space...
);

my $cmd = uc shift;
if (exists $commands{$cmd}){
    my $FindWindow = new Win32::API(
        'user32', 
        'FindWindow', 
        ['P', 'N'], 
        'I'
    );

    my $SendMessage = new Win32::API(
        'user32', 
        'SendMessage', 
        ['I', 'I', 'I', 'I'], 
        'I'
    );

    my $hwndWinamp = $FindWindow->Call('Winamp v1.x', 0);

    $SendMessage->Call(
        $hwndWinamp, 
        WM_COMMAND, 
        $commands{$cmd}, 
        0
    ) if $hwndWinamp;
} else {
    print "Invalid command.\n";
}
[download]

The most useful Winamp related script I have is the one that locks my computer and pauses Winamp. This snippet checks to see if Winamp is currently playing, and if so sends a "pause" command:

if ($hwndWinamp){
    if ($SendMessage->Call($hwndWinamp,WM_USER,0,104) == 1) {
        $SendMessage->Call($hwndWinamp,WM_COMMAND,40046,0);
    }
}
[download]

--grummerX

"It requires the httpQ winamp-plugin ". I can not find this on winamps offical site. Thats one thing, another thing is that requires winamp, which would take up a lot (relatively speaking) of extra resources for the gui and so forth. As opposed to just playing the bloody mp3.

#!/usr/bin/perl -w

use strict;
use Win32::API;

use vars qw($mci $retstring $stop);

#- Import mciSendStringA
$mci = new Win32::API("winmm", "mciSendStringA", 'PPNN', 'N')
    or die "No we have no bananas....";

#- Init $retstring
$retstring=" "x256;

#- Open mp3 file 
$mci->Call("open whatever.mp3 alias mysound",$retstring,256,0);

#- Play it
$mci->Call("play mysound from 1",$retstring,256,0);

#- Until...
print "press Enter to stop playing....";
$stop=<STDIN>;

#- Stop
$mci->Call("stop mysound",$retstring,256,0);

#- Close
$mci->Call("close mysound",$retstring,256,0);
[download]

One can play mp3 files using Perl & SDL, too. cf. http://reneeb-perlblog.blogspot.com/2012/01/mp3s-mit-perl-abspielen.html

I think Win32::OLE could probably help, though I have never used it. Most of Windows things have hooks that can be accessible via OLE (At least Windows Media Player had such ability last time I looked)

Unfortunately I can provide no further details of how to actually do the intefacing because I have no experience with this particular module. Hopefully this could lead on to the right track

It won't be perl/bash - the data in the mp3 will contain ansi escape characters or ^D (exit?), etc that will be harassing your poor terminal.

Redirect output to a file, and cksum the original/new files, they should match.