> thank you for the quick response. It helped.
> I had a look into mixer_samples.t and line 106 states, that quick_load_WAV
> is not (yet? Who do I have to bribe with what to get it?) implemented.

> Here is a working piece of code using temporary files. Of course, you need a
> database containing audio files.

> Best regards,
> Alex

> [code]
> #!perl

> use strict;
> use warnings;
> use utf8;
> use DBI;
> use SQL::Abstract::Limit;
> use File::Temp;
> use SDL;
> use SDL::Audio;
> use SDL::Mixer;
> use SDL::Mixer::Samples;
> use SDL::Mixer::Channels;
> use SDL::Mixer::Music;
> SDL::init(SDL_INIT_AUDIO);
> SDL::Mixer::init( MIX_INIT_MP3 | MUS_MP3 );

> unless( SDL::Mixer::open_audio( 44100, AUDIO_S16SYS, 2, 4096 ) == 0 ) {
>    Carp::croak "Cannot open audio: ".SDL::get_error();
> }

> my $buffer = get_audio_buffer();

> # -- write audio buffer to temp file
> my $fh = File::Temp->new( UNLINK => 1, SUFFIX => '.mp3' );
> $fh->unlink_on_destroy( 1 );
> print $fh $buffer;
> my $fname = $fh->filename;

> # close the handle or the temfile will have some sort of lock on it and
> cannot be read
> $fh->close();

> my $background_music = SDL::Mixer::Music::load_MUS( $fname );

> unless( $background_music ) {
>    Carp::croak "Cannot load music file [buffer from DB]: " .
> SDL::get_error();
> }

> SDL::Mixer::Music::play_music( $background_music,0 );

> sleep(6);

> SDL::Mixer::Music::halt_music();
> SDL::Mixer::close_audio;
> exit(0);

> sub get_audio_buffer {
>     my $sql = SQL::Abstract::Limit->new( limit_dialect => 'LimitXY' );;

>     my $table = 'audio_files';
>     my @fields = (qw/audio/);
>     my %where = (
>         id => 2,
>     );
>     my @order = ();
>     my $limit = 1;
>     my $offset = 0;
>     my ( $stmt, @bind ) = $sql->select( $table, \@fields, \%where, \@order,
> $limit, $offset );
>     my $database = 'database_name';
>     my $db_host = 'your_host';
>     my $db_port = '3306';
>     my $dsn = "DBI:mysql:database=$database;host=$db_host;port=$db_port";
>     my $username = 'username';
>     my $password = 'password';
>     my $dbh = DBI->connect($dsn, $username, $password) or die('Cannot
> connect to DB: ' . DBI->errstr());
>     my $sth = $dbh->prepare( $stmt );
>     $sth->execute( @bind );

>     my ($buffer) = $sth->fetchrow_array();

>     return $buffer;
> } # /get_audio_buffer
> [/code]

> -----Ursprüngliche Nachricht-----
> Von: breno [mailto:oainikus...@gmail.com]
> Gesendet: Dienstag, 29. November 2011 06:34
> An: Alexander Becker
> Cc: sdl-de...@perl.org
> Betreff: Re: How to play an mp3 file from a database

> On Mon, Nov 28, 2011 at 8:13 PM, Alexander Becker < > wrote:
>> Dear all!

> Hi there!

>> I just tried the example code of the SDL Manual where you play some music.
>> By the SDL manual, I refer to the one that is hidden at the bottom of
>> the sdl.perl.org page, so that you really have to search for it in
>> order to find it - and even then you have to get along with an ugly github
> interface.
> There's a new project website under way, but we're missing people to work in
> it. Please join #sdl in irc.perl.org if you want to help us get it right :)

>> So, in general: Is there a way to play mp3 files?
> Yup.

> If your libsdl was compiled with mp3 support, all you have to do
> (iirc) is set the MIX_INIT_MP3 (for effects) and MUS_MP3 (for audio) flags
> when you call SDL::Mixer::init():

>   SDL::Mixer::init( MIX_INIT_MP3 | MUS_MP3 );

> then use load_MUS() and play_music() from SDL::Mixer::Music to play
> mp3 files as background music, or load_WAV() from SDL::Mixer::Samples to
> play mp3 effects (yes, the function is named load_WAV() but plays different
> formats too if they're available).

> The documentation in SDL::Mixer, SDL::Mixer::Music and SDL::Mixer::Samples
> should be helpful, as some of the test files (t/mixer_music.t comes to
> mind).

>> And in particular: is there a way to play mp3 files that are in a
> variable?
>> Or do I have to work with temporary files?

> Not sure. I *think* SDL::Mixer::quick_load_WAV( $buffer ) might do the right
> thing. You'll have to test it though.

> Cheers,

> breno
> -----
> eMail ist virenfrei.
> Von AVG überprüft - www.avg.de
> Version: 10.0.1411 / Virendatenbank: 2092/4046 - Ausgabedatum: 29.11.2011

> thank you for the quick response. It helped.
> I had a look into mixer_samples.t and line 106 states, that
> quick_load_WAV is not (yet? Who do I have to bribe with what to get it?)
implemented.

> Here is a working piece of code using temporary files. Of course, you
> need a database containing audio files.

> Best regards,
> Alex

> [code]
> #!perl

> use strict;
> use warnings;
> use utf8;
> use DBI;
> use SQL::Abstract::Limit;
> use File::Temp;
> use SDL;
> use SDL::Audio;
> use SDL::Mixer;
> use SDL::Mixer::Samples;
> use SDL::Mixer::Channels;
> use SDL::Mixer::Music;
> SDL::init(SDL_INIT_AUDIO);
> SDL::Mixer::init( MIX_INIT_MP3 | MUS_MP3 );

> unless( SDL::Mixer::open_audio( 44100, AUDIO_S16SYS, 2, 4096 ) == 0 ) {
>    Carp::croak "Cannot open audio: ".SDL::get_error(); }

> my $buffer = get_audio_buffer();

> # -- write audio buffer to temp file
> my $fh = File::Temp->new( UNLINK => 1, SUFFIX => '.mp3' );
> $fh->unlink_on_destroy( 1 ); print $fh $buffer; my $fname =
> $fh->filename;

> # close the handle or the temfile will have some sort of lock on it
> and cannot be read $fh->close();

> my $background_music = SDL::Mixer::Music::load_MUS( $fname );

> unless( $background_music ) {
>    Carp::croak "Cannot load music file [buffer from DB]: " .
> SDL::get_error();
> }

> SDL::Mixer::Music::play_music( $background_music,0 );

> sleep(6);

> SDL::Mixer::Music::halt_music();
> SDL::Mixer::close_audio;
> exit(0);

> sub get_audio_buffer {
>     my $sql = SQL::Abstract::Limit->new( limit_dialect => 'LimitXY'
> );;

>     my $table = 'audio_files';
>     my @fields = (qw/audio/);
>     my %where = (
>         id => 2,
>     );
>     my @order = ();
>     my $limit = 1;
>     my $offset = 0;
>     my ( $stmt, @bind ) = $sql->select( $table, \@fields, \%where,
> \@order, $limit, $offset );
>     my $database = 'database_name';
>     my $db_host = 'your_host';
>     my $db_port = '3306';
>     my $dsn = "DBI:mysql:database=$database;host=$db_host;port=$db_port";
>     my $username = 'username';
>     my $password = 'password';
>     my $dbh = DBI->connect($dsn, $username, $password) or die('Cannot
> connect to DB: ' . DBI->errstr());
>     my $sth = $dbh->prepare( $stmt );
>     $sth->execute( @bind );

>     my ($buffer) = $sth->fetchrow_array();

>     return $buffer;
> } # /get_audio_buffer
> [/code]

> -----Ursprüngliche Nachricht-----
> Von: breno [mailto:oainikus...@gmail.com]
> Gesendet: Dienstag, 29. November 2011 06:34
> An: Alexander Becker
> Cc: sdl-de...@perl.org
> Betreff: Re: How to play an mp3 file from a database

> On Mon, Nov 28, 2011 at 8:13 PM, Alexander Becker < > wrote:
>> Dear all!

> Hi there!

>> I just tried the example code of the SDL Manual where you play some
music.
>> By the SDL manual, I refer to the one that is hidden at the bottom of
>> the sdl.perl.org page, so that you really have to search for it in
>> order to find it - and even then you have to get along with an ugly
>> github
> interface.
> There's a new project website under way, but we're missing people to
> work in it. Please join #sdl in irc.perl.org if you want to help us
> get it right :)

>> So, in general: Is there a way to play mp3 files?
> Yup.

> If your libsdl was compiled with mp3 support, all you have to do
> (iirc) is set the MIX_INIT_MP3 (for effects) and MUS_MP3 (for audio)
> flags when you call SDL::Mixer::init():

>   SDL::Mixer::init( MIX_INIT_MP3 | MUS_MP3 );

> then use load_MUS() and play_music() from SDL::Mixer::Music to play
> mp3 files as background music, or load_WAV() from SDL::Mixer::Samples
> to play mp3 effects (yes, the function is named load_WAV() but plays
> different formats too if they're available).

> The documentation in SDL::Mixer, SDL::Mixer::Music and
> SDL::Mixer::Samples should be helpful, as some of the test files
> (t/mixer_music.t comes to mind).

>> And in particular: is there a way to play mp3 files that are in a
> variable?
>> Or do I have to work with temporary files?

> Not sure. I *think* SDL::Mixer::quick_load_WAV( $buffer ) might do the
> right thing. You'll have to test it though.

> Cheers,

> breno
> -----
> eMail ist virenfrei.
> Von AVG überprüft - www.avg.de
> Version: 10.0.1411 / Virendatenbank: 2092/4046 - Ausgabedatum:
> 29.11.2011

> The example code in your link gives me version 1.2.11 on Win 7 x64 with
> strawberry perl 5.12.2 built for MSWin32-x64-multi-thread.

> HTH,
> Alex

> [code]
>  use SDL::Mixer;
>  use SDL::Version;

>  my $version = SDL::Mixer::linked_version();

>  printf("%d.%d.%d\n", $version->major, $version->minor, $version->patch); #
> prints "1.2.11" for me
> [/code]

> -----Ursprüngliche Nachricht-----
> Von: Tobias Leich [mailto:em...@froggs.de]
> Gesendet: Mittwoch, 30. November 2011 13:18
> An: Alexander Becker
> Cc: 'breno'; sdl-de...@perl.org
> Betreff: Re: How to play an mp3 file from a database

> Hi, can you please check what version of libSDL_mixer do you have installed?

> http://sdl.perl.org/SDL-Mixer.html#linked_version

> In case you have 1.2.7 or better we can add support for RWOps objects.
> So you dont need temp files.

> Cheers, FROGGS

> Am 29.11.2011 20:37, schrieb Alexander Becker:
>> Hi breno,

>> thank you for the quick response. It helped.
>> I had a look into mixer_samples.t and line 106 states, that
>> quick_load_WAV is not (yet? Who do I have to bribe with what to get it?)
> implemented.
>> Here is a working piece of code using temporary files. Of course, you
>> need a database containing audio files.

>> Best regards,
>> Alex

>> [code]
>> #!perl

>> use strict;
>> use warnings;
>> use utf8;
>> use DBI;
>> use SQL::Abstract::Limit;
>> use File::Temp;
>> use SDL;
>> use SDL::Audio;
>> use SDL::Mixer;
>> use SDL::Mixer::Samples;
>> use SDL::Mixer::Channels;
>> use SDL::Mixer::Music;
>> SDL::init(SDL_INIT_AUDIO);
>> SDL::Mixer::init( MIX_INIT_MP3 | MUS_MP3 );

>> unless( SDL::Mixer::open_audio( 44100, AUDIO_S16SYS, 2, 4096 ) == 0 ) {
>>        Carp::croak "Cannot open audio: ".SDL::get_error(); }

>> my $buffer = get_audio_buffer();

>> # -- write audio buffer to temp file
>> my $fh = File::Temp->new( UNLINK => 1, SUFFIX => '.mp3' );
>> $fh->unlink_on_destroy( 1 ); print $fh $buffer; my $fname =
>> $fh->filename;

>> # close the handle or the temfile will have some sort of lock on it
>> and cannot be read $fh->close();

>> my $background_music = SDL::Mixer::Music::load_MUS( $fname );

>> unless( $background_music ) {
>>        Carp::croak "Cannot load music file [buffer from DB]: " .
>> SDL::get_error();
>> }

>> SDL::Mixer::Music::play_music( $background_music,0 );

>> sleep(6);

>> SDL::Mixer::Music::halt_music();
>> SDL::Mixer::close_audio;
>> exit(0);

>> sub get_audio_buffer {
>>     my $sql = SQL::Abstract::Limit->new( limit_dialect => 'LimitXY'
>> );;

>>     my $table = 'audio_files';
>>     my @fields = (qw/audio/);
>>     my %where = (
>>         id => 2,
>>     );
>>     my @order = ();
>>     my $limit = 1;
>>     my $offset = 0;
>>     my ( $stmt, @bind ) = $sql->select( $table, \@fields, \%where,
>> \@order, $limit, $offset );
>>     my $database = 'database_name';
>>     my $db_host = 'your_host';
>>     my $db_port = '3306';
>>     my $dsn = "DBI:mysql:database=$database;host=$db_host;port=$db_port";
>>     my $username = 'username';
>>     my $password = 'password';
>>     my $dbh = DBI->connect($dsn, $username, $password) or die('Cannot
>> connect to DB: ' . DBI->errstr());
>>     my $sth = $dbh->prepare( $stmt );
>>     $sth->execute( @bind );

>>     my ($buffer) = $sth->fetchrow_array();

>>     return $buffer;
>> } # /get_audio_buffer
>> [/code]

>> -----Ursprüngliche Nachricht-----
>> Von: breno [mailto:oainikus...@gmail.com]
>> Gesendet: Dienstag, 29. November 2011 06:34
>> An: Alexander Becker
>> Cc: sdl-de...@perl.org
>> Betreff: Re: How to play an mp3 file from a database

>> On Mon, Nov 28, 2011 at 8:13 PM, Alexander Becker < > wrote:
>>> Dear all!

>> Hi there!

>>> I just tried the example code of the SDL Manual where you play some
> music.
>>> By the SDL manual, I refer to the one that is hidden at the bottom of
>>> the sdl.perl.org page, so that you really have to search for it in
>>> order to find it - and even then you have to get along with an ugly
>>> github
>> interface.
>> There's a new project website under way, but we're missing people to
>> work in it. Please join #sdl in irc.perl.org if you want to help us
>> get it right :)

>>> So, in general: Is there a way to play mp3 files?
>> Yup.

>> If your libsdl was compiled with mp3 support, all you have to do
>> (iirc) is set the MIX_INIT_MP3 (for effects) and MUS_MP3 (for audio)
>> flags when you call SDL::Mixer::init():

>>   SDL::Mixer::init( MIX_INIT_MP3 | MUS_MP3 );

>> then use load_MUS() and play_music() from SDL::Mixer::Music to play
>> mp3 files as background music, or load_WAV() from SDL::Mixer::Samples
>> to play mp3 effects (yes, the function is named load_WAV() but plays
>> different formats too if they're available).

>> The documentation in SDL::Mixer, SDL::Mixer::Music and
>> SDL::Mixer::Samples should be helpful, as some of the test files
>> (t/mixer_music.t comes to mind).

>>> And in particular: is there a way to play mp3 files that are in a
>> variable?
>>> Or do I have to work with temporary files?

>> Not sure. I *think* SDL::Mixer::quick_load_WAV( $buffer ) might do the
>> right thing. You'll have to test it though.

>> Cheers,

>> breno
>> -----
>> eMail ist virenfrei.
>> Von AVG überprüft - www.avg.de
>> Version: 10.0.1411 / Virendatenbank: 2092/4046 - Ausgabedatum:
>> 29.11.2011

> -----
> eMail ist virenfrei.
> Von AVG überprüft - www.avg.de
> Version: 10.0.1411 / Virendatenbank: 2102/4048 - Ausgabedatum: 30.11.2011

> So I will add RWOps support today, I'll drop you a note when its done.

> Cheers, FROGGS

> Am 30.11.2011 23:09, schrieb Alexander Becker:
>> Hi!

>> The example code in your link gives me version 1.2.11 on Win 7 x64 with
>> strawberry perl 5.12.2 built for MSWin32-x64-multi-thread.

>> HTH,
>> Alex

>> [code]
>> use SDL::Mixer;
>> use SDL::Version;

>> my $version = SDL::Mixer::linked_version();

>> printf("%d.%d.%d\n", $version->major, $version->minor, $version->patch); #
>> prints "1.2.11" for me
>> [/code]

>> -----Ursprüngliche Nachricht-----
>> Von: Tobias Leich [mailto:em...@froggs.de]
>> Gesendet: Mittwoch, 30. November 2011 13:18
>> An: Alexander Becker
>> Cc: 'breno'; sdl-de...@perl.org
>> Betreff: Re: How to play an mp3 file from a database

>> Hi, can you please check what version of libSDL_mixer do you have installed?

>> http://sdl.perl.org/SDL-Mixer.html#linked_version

>> In case you have 1.2.7 or better we can add support for RWOps objects.
>> So you dont need temp files.

>> Cheers, FROGGS

>> Am 29.11.2011 20:37, schrieb Alexander Becker:
>>> Hi breno,

>>> thank you for the quick response. It helped.
>>> I had a look into mixer_samples.t and line 106 states, that
>>> quick_load_WAV is not (yet? Who do I have to bribe with what to get it?)
>> implemented.
>>> Here is a working piece of code using temporary files. Of course, you
>>> need a database containing audio files.

>>> Best regards,
>>> Alex

>>> [code]
>>> #!perl

>>> use strict;
>>> use warnings;
>>> use utf8;
>>> use DBI;
>>> use SQL::Abstract::Limit;
>>> use File::Temp;
>>> use SDL;
>>> use SDL::Audio;
>>> use SDL::Mixer;
>>> use SDL::Mixer::Samples;
>>> use SDL::Mixer::Channels;
>>> use SDL::Mixer::Music;
>>> SDL::init(SDL_INIT_AUDIO);
>>> SDL::Mixer::init( MIX_INIT_MP3 | MUS_MP3 );

>>> unless( SDL::Mixer::open_audio( 44100, AUDIO_S16SYS, 2, 4096 ) == 0 ) {
>>>    Carp::croak "Cannot open audio: ".SDL::get_error(); }

>>> my $buffer = get_audio_buffer();

>>> # -- write audio buffer to temp file
>>> my $fh = File::Temp->new( UNLINK => 1, SUFFIX => '.mp3' );
>>> $fh->unlink_on_destroy( 1 ); print $fh $buffer; my $fname =
>>> $fh->filename;

>>> # close the handle or the temfile will have some sort of lock on it
>>> and cannot be read $fh->close();

>>> my $background_music = SDL::Mixer::Music::load_MUS( $fname );

>>> unless( $background_music ) {
>>>    Carp::croak "Cannot load music file [buffer from DB]: " .
>>> SDL::get_error();
>>> }

>>> SDL::Mixer::Music::play_music( $background_music,0 );

>>> sleep(6);

>>> SDL::Mixer::Music::halt_music();
>>> SDL::Mixer::close_audio;
>>> exit(0);

>>> sub get_audio_buffer {
>>>    my $sql = SQL::Abstract::Limit->new( limit_dialect => 'LimitXY'
>>> );;

>>>    my $table = 'audio_files';
>>>    my @fields = (qw/audio/);
>>>    my %where = (
>>>        id => 2,
>>>    );
>>>    my @order = ();
>>>    my $limit = 1;
>>>    my $offset = 0;
>>>    my ( $stmt, @bind ) = $sql->select( $table, \@fields, \%where,
>>> \@order, $limit, $offset );
>>>    my $database = 'database_name';
>>>    my $db_host = 'your_host';
>>>    my $db_port = '3306';
>>>    my $dsn = "DBI:mysql:database=$database;host=$db_host;port=$db_port";
>>>    my $username = 'username';
>>>    my $password = 'password';
>>>    my $dbh = DBI->connect($dsn, $username, $password) or die('Cannot
>>> connect to DB: ' . DBI->errstr());
>>>    my $sth = $dbh->prepare( $stmt );
>>>    $sth->execute( @bind );

>>>    my ($buffer) = $sth->fetchrow_array();

>>>    return $buffer;
>>> } # /get_audio_buffer
>>> [/code]

>>> -----Ursprüngliche Nachricht-----
>>> Von: breno [mailto:oainikus...@gmail.com]
>>> Gesendet: Dienstag, 29. November 2011 06:34
>>> An: Alexander Becker
>>> Cc: sdl-de...@perl.org
>>> Betreff: Re: How to play an mp3 file from a database

>>> On Mon, Nov 28, 2011 at 8:13 PM, Alexander Becker < > wrote:
>>>> Dear all!

>>> Hi there!

>>>> I just tried the example code of the SDL Manual where you play some
>> music.
>>>> By the SDL manual, I refer to the one that is hidden at the bottom of
>>>> the sdl.perl.org page, so that you really have to search for it in
>>>> order to find it - and even then you have to get along with an ugly
>>>> github
>>> interface.
>>> There's a new project website under way, but we're missing people to
>>> work in it. Please join #sdl in irc.perl.org if you want to help us
>>> get it right :)

>>>> So, in general: Is there a way to play mp3 files?
>>> Yup.

>>> If your libsdl was compiled with mp3 support, all you have to do
>>> (iirc) is set the MIX_INIT_MP3 (for effects) and MUS_MP3 (for audio)
>>> flags when you call SDL::Mixer::init():

>>>  SDL::Mixer::init( MIX_INIT_MP3 | MUS_MP3 );

>>> then use load_MUS() and play_music() from SDL::Mixer::Music to play
>>> mp3 files as background music, or load_WAV() from SDL::Mixer::Samples
>>> to play mp3 effects (yes, the function is named load_WAV() but plays
>>> different formats too if they're available).

>>> The documentation in SDL::Mixer, SDL::Mixer::Music and
>>> SDL::Mixer::Samples should be helpful, as some of the test files
>>> (t/mixer_music.t comes to mind).

>>>> And in particular: is there a way to play mp3 files that are in a
>>> variable?
>>>> Or do I have to work with temporary files?

>>> Not sure. I *think* SDL::Mixer::quick_load_WAV( $buffer ) might do the
>>> right thing. You'll have to test it though.

>>> Cheers,

>>> breno
>>> -----
>>> eMail ist virenfrei.
>>> Von AVG überprüft - www.avg.de
>>> Version: 10.0.1411 / Virendatenbank: 2092/4046 - Ausgabedatum:
>>> 29.11.2011

>> -----
>> eMail ist virenfrei.
>> Von AVG überprüft - www.avg.de
>> Version: 10.0.1411 / Virendatenbank: 2102/4048 - Ausgabedatum: 30.11.2011

> Wohoo! That's really great! Here is my current (OMG: it's SDL + Tk)
> proof-of-concept-script.

> It plays a file via start and stop buttons. In case anyone has
> suggestions, please don't hesitate to drop me an email.

> [code]

> #!perl

> use strict;

> use warnings;

> use utf8;

> use Tk;

> use DBI;

> use SQL::Abstract::Limit;

> use SDL;

> use SDL::Audio;

> use SDL::Mixer;

> use SDL::Mixer::Samples;

> use SDL::Mixer::Channels;

> use SDL::Mixer::Music;

> use SDL::RWOps;

> SDL::init(SDL_INIT_AUDIO);

> SDL::Mixer::init( MIX_INIT_MP3 | MUS_MP3 );

> my $mw = tkinit();

> unless( SDL::Mixer::open_audio( 44100, AUDIO_S16SYS, 2, 4096 ) == 0 ) {

>                 Carp::croak "Cannot open audio: ".SDL::get_error();

> }

> $mw->Button(

>                 -text => 'play',

>                 -command => sub{

>                                my $buffer = get_audio_buffer();

>                                my $rwops = SDL::RWOps->new_const_mem(
> $buffer );

>                                my $background_music =
> SDL::Mixer::Music::load_MUS_RW( $rwops );

>                                unless( $background_music ) {

>                                                Carp::croak "Cannot
> load music file [buffer from DB]: " . SDL::get_error();

>                                }

>                                SDL::Mixer::Music::play_music(
> $background_music, 20 );

>                 },

> )->pack();

> $mw->Button(

>                 -text => 'stop',

>                 -command => sub{

>                                SDL::Mixer::Music::halt_music();

>                 },

> )->pack();

> $mw->MainLoop();

> sub get_audio_buffer {

>     my $sql = SQL::Abstract::Limit->new( limit_dialect => 'LimitXY' );;

>     my $table = 'words';

>     my @fields = (qw/audio/);

>     my %where = (

>         id => 2,

>     );

>     my @order = ();

>     my $limit = 1;

>     my $offset = 0;

>     my ( $stmt, @bind ) = $sql->select( $table, \@fields, \%where,
> \@order, $limit, $offset );

>     my $database = 'test';

>     my $db_host = '127.0.0.1';

>     my $db_port = '3306';

>     my $dsn = "DBI:mysql:database=$database;host=$db_host;port=$db_port";

>     my $username = 'test';

>     my $password = 'test';

>     my $dbh = DBI->connect($dsn, $username, $password) or die('Cannot
> connect to DB: ' . DBI->errstr());

>     my $sth = $dbh->prepare( $stmt );

>     $sth->execute( @bind );

>     my ($buffer) = $sth->fetchrow_array();

>     return $buffer;

> } # /get_audio_buffer

> [/code]

> Here is the output of "perl Build.PL". There is an error for :
> execinfo.h, however, build, build test and build install runs fine.

> [snip]

> C:\zwischen\cpan\PerlGameDev-SDL-44c341f>perl Build.PL

> *************************** !!!WARNING!!! ********************************

> This Release breaks back compatibility support with versions 2.4x and
> below

> **************************************************************************

> Using 'My::Builder::Windows' class ...

> Detecting available libraries ...

> [Alien::SDL] Testing header(s): SDL.h

> [Alien::SDL] Testing header(s): SDL_mixer.h

> [Alien::SDL] Testing header(s): SDL_imageFilter.h

> [Alien::SDL] Testing header(s): SDL_image.h

> [Alien::SDL] Testing header(s): SDL_ttf.h

> [Alien::SDL] Testing header(s): SDL_framerate.h

> [Alien::SDL] Testing header(s): SDL_gfxBlitFunc.h

> [Alien::SDL] Testing header(s): SDL_gfxPrimitives.h

> [Alien::SDL] Testing header(s): SDL_rotozoom.h

> [Alien::SDL] Testing header(s): SDL_Pango.h

> Writing config_data ...

> Saving some info to 'notes' ...

> [Alien::SDL] Testing header(s): execinfo.h, signal.h NOK: (error:
> execinfo.h: No

> such file or directory)

> Can't find dist packages without a MANIFEST file

> Run 'Build manifest' to generate one

> WARNING: Possible missing or corrupt 'MANIFEST' file.

> Nothing to enter for 'provides' field in metafile.

> Created MYMETA.yml and MYMETA.json

> Creating new 'Build' script for 'SDL' version '2.535_01'

> C:\zwischen\cpan\PerlGameDev-SDL-44c341f>

> [/snip]

> Will this be in an official release of SDL? Because this would be a
> really nice feature, that could be advertised, e.g. via blogs entries
> etc.. I could write a german one.

> Best regards & thanks a lot,

> Alex

> *Von:*Tobias Leich [mailto:em...@froggs.de]
> *Gesendet:* Donnerstag, 1. Dezember 2011 18:37
> *An:* Alexander Becker
> *Betreff:* Re: How to play an mp3 file from a database

> Hi Alex,

> You can checkout the c-sdl-rwops branch at github or download the
> zipfile if you are not experienced with git by using this link:

> https://github.com/PerlGameDev/SDL/zipball/c-sdl-rwops

> Usage:

>  my $music = SDL::Mixer::Music::load_MUS_RW( $rwops );

> |load_MUS_RW| does the same like |load_MUS| except that it accepts an
> SDL::RWOps <http://search.cpan.org/perldoc?SDL%3A%3ARWOps>-object
> rather than a filename.

> Example for loading music from a variable:

>  use SDL;
>  use SDL::Mixer;
>  use SDL::Mixer::Music;
>  use SDL::RWOps;

>  [...]

>  my $rwops = SDL::RWOps->new_const_mem( $scalar_holding_music );
>  my $music = SDL::Mixer::Music::load_MUS( $rwops );

> Cheers

> Am 30.11.2011 23:09, schrieb Alexander Becker:

> Hi!

> The example code in your link gives me version 1.2.11 on Win 7 x64 with
> strawberry perl 5.12.2 built for MSWin32-x64-multi-thread.

> HTH,
> Alex

> [code]
>  use SDL::Mixer;
>  use SDL::Version;

>  my $version = SDL::Mixer::linked_version();

>  printf("%d.%d.%d\n", $version->major, $version->minor, $version->patch); #
> prints "1.2.11" for me
> [/code]

> -----Ursprüngliche Nachricht-----
> Von: Tobias Leich [mailto:em...@froggs.de]
> Gesendet: Mittwoch, 30. November 2011 13:18
> An: Alexander Becker
> Cc: 'breno'; sdl-de...@perl.org <mailto:sdl-de...@perl.org>
> Betreff: Re: How to play an mp3 file from a database

> Hi, can you please check what version of libSDL_mixer do you have installed?

> http://sdl.perl.org/SDL-Mixer.html#linked_version

> In case you have 1.2.7 or better we can add support for RWOps objects.
> So you dont need temp files.

> Cheers, FROGGS

> Am 29.11.2011 20:37, schrieb Alexander Becker:

>     Hi breno,

>     thank you for the quick response. It helped.

>     I had a look into mixer_samples.t and line 106 states, that

>     quick_load_WAV is not (yet? Who do I have to bribe with what to get it?)

> implemented.

>     Here is a working piece of code using temporary files. Of course, you

>     need a database containing audio files.

>     Best regards,

>     Alex

>     [code]

>     #!perl

>     use strict;

>     use warnings;

>     use utf8;

>     use DBI;

>     use SQL::Abstract::Limit;

>     use File::Temp;

>     use SDL;

>     use SDL::Audio;

>     use SDL::Mixer;

>     use SDL::Mixer::Samples;

>     use SDL::Mixer::Channels;

>     use SDL::Mixer::Music;

>     SDL::init(SDL_INIT_AUDIO);

>     SDL::Mixer::init( MIX_INIT_MP3 | MUS_MP3 );

>     unless( SDL::Mixer::open_audio( 44100, AUDIO_S16SYS, 2, 4096 ) == 0 ) {

>       Carp::croak "Cannot open audio: ".SDL::get_error(); }

>     my $buffer = get_audio_buffer();

>     # -- write audio buffer to temp file

>     my $fh = File::Temp->new( UNLINK => 1, SUFFIX => '.mp3' );

>     $fh->unlink_on_destroy( 1 ); print $fh $buffer; my $fname =

>     $fh->filename;

>     # close the handle or the temfile will have some sort of lock on it

>     and cannot be read $fh->close();

>     my $background_music = SDL::Mixer::Music::load_MUS( $fname );

>     unless( $background_music ) {

>       Carp::croak "Cannot load music file [buffer from DB]: " .

>     SDL::get_error();

>     }

>     SDL::Mixer::Music::play_music( $background_music,0 );

>     sleep(6);

>     SDL::Mixer::Music::halt_music();

>     SDL::Mixer::close_audio;

>     exit(0);

>     sub get_audio_buffer {

>         my $sql = SQL::Abstract::Limit->new( limit_dialect => 'LimitXY'

>     );;

>         my $table = 'audio_files';

>         my @fields = (qw/audio/);

>         my %where = (

>             id => 2,

>         );

>         my @order = ();

>         my $limit = 1;

>         my $offset = 0;

>         my ( $stmt, @bind ) = $sql->select( $table, \@fields, \%where,

>     \@order, $limit, $offset );

>         my $database = 'database_name';

>         my $db_host = 'your_host';

>         my $db_port = '3306';

>         my $dsn = "DBI:mysql:database=$database;host=$db_host;port=$db_port";

>         my $username = 'username';

>         my $password = 'password';

>         my $dbh = DBI->connect($dsn, $username, $password) or die('Cannot

>     connect to DB: ' . DBI->errstr());

>         my $sth = $dbh->prepare( $stmt );

> It took me quite some time, but I'm moving forward.
> Here are some screens from my vocabulary trainer:
> https://picasaweb.google.com/104129024313554475104/Vokabeltrainer?aut...
> &authkey=Gv1sRgCKLyn6SSwIvCgwE&feat=directlink

> Now I want to play  a vocable audio file (that is of course, stored in a
> database :)). I can't use SDL::Mixer::Music for that, because there is
> already some background music playing. AFAIK I need to use
> SDL::Mixer::Samples.
> I tried it, but there occurred an error when using mp3 files: "Cannot load
> music file [music/terminal.mp3]: Unrecognized sound file type at
> play_effect.pl line 34"

> Here is the script:
> [code]
> #!perl
> use strict;
> use warnings;
> use utf8;

> use SDL;
> use SDL::Event;
> use SDL::Events;
> use SDLx::App;
> use SDLx::Controller;
> use SDL::Mixer;
> use SDL::Mixer::Music;
> use SDL::RWOps;
> use SDL::Mixer::Samples;
> use SDL::Mixer::Channels;
> SDL::init(SDL_INIT_AUDIO);
> SDL::Mixer::init( MIX_INIT_MP3 | MUS_MP3 );

> my $app = SDLx::App->new(
>    title => 'play mp3 effect',
>    exit_on_quit => 1,
> );

> unless( SDL::Mixer::open_audio( 44100, AUDIO_S16SYS, 2, 4096 ) == 0 ) {
>    Carp::croak "Cannot open audio: ".SDL::get_error();
> }

> my $file = 'music/terminal.mp3';
> #my $file = 'music/br_crossing_bell_dop.r.wav';
> #my $file = 'music/Windows Logon Sound.wav';
> my $sample = SDL::Mixer::Samples::load_WAV( $file );

> unless( $sample ) {
>    Carp::croak "Cannot load music file [$file]: " . SDL::get_error();
> }

> my $playing_channel = SDL::Mixer::Channels::play_channel( -1, $sample, 0 );

> $app->run();

> SDL::Mixer::Music::halt_music();
> SDL::Mixer::close_audio;
> exit(0);
> [/code]

> There also occurred some other errors using .wav files:
> - Cannot load music file [music/br_crossing_bell_dop.r.wav]: Complex WAVE
> files not supported at play_effect.pl line 34
> - Cannot load music file [music/Windows Logon Sound.wav]: MPEG Layer 3 data
> not supported play_effect.pl line 34

> But, I only want to play mp3 files.

> Maybe you can hint me at the solution for this problem? How can I play an
> mp3 file once, e.g. on a button click event?

> Best regards,
> Alex

> -----Ursprüngliche Nachricht-----
> Von: breno [mailto:oainikus...@gmail.com]
> Gesendet: Dienstag, 29. November 2011 06:34
> An: Alexander Becker
> Cc: sdl-de...@perl.org
> Betreff: Re: How to play an mp3 file from a database

> On Mon, Nov 28, 2011 at 8:13 PM, Alexander Becker <AlexanderBec...@gmx.net>
> wrote:
>> Dear all!

> Hi there!

>> I just tried the example code of the SDL Manual where you play some music.
>> By the SDL manual, I refer to the one that is hidden at the bottom of
>> the sdl.perl.org page, so that you really have to search for it in
>> order to find it - and even then you have to get along with an ugly github
> interface.
> There's a new project website under way, but we're missing people to work in
> it. Please join #sdl in irc.perl.org if you want to help us get it right :)

>> So, in general: Is there a way to play mp3 files?
> Yup.

> If your libsdl was compiled with mp3 support, all you have to do
> (iirc) is set the MIX_INIT_MP3 (for effects) and MUS_MP3 (for audio) flags
> when you call SDL::Mixer::init():

>   SDL::Mixer::init( MIX_INIT_MP3 | MUS_MP3 );

> then use load_MUS() and play_music() from SDL::Mixer::Music to play
> mp3 files as background music, or load_WAV() from SDL::Mixer::Samples to
> play mp3 effects (yes, the function is named load_WAV() but plays different
> formats too if they're available).

> The documentation in SDL::Mixer, SDL::Mixer::Music and SDL::Mixer::Samples
> should be helpful, as some of the test files (t/mixer_music.t comes to
> mind).

>> And in particular: is there a way to play mp3 files that are in a
> variable?
>> Or do I have to work with temporary files?

> Not sure. I *think* SDL::Mixer::quick_load_WAV( $buffer ) might do the right
> thing. You'll have to test it though.

> Cheers,

> breno

> It took me quite some time, but I'm moving forward.
> Here are some screens from my vocabulary trainer:
> https://picasaweb.google.com/104129024313554475104/Vokabeltrainer?auth
> user=0 &authkey=Gv1sRgCKLyn6SSwIvCgwE&feat=directlink

> Now I want to play  a vocable audio file (that is of course, stored in
> a database :)). I can't use SDL::Mixer::Music for that, because there
> is already some background music playing. AFAIK I need to use
> SDL::Mixer::Samples.
> I tried it, but there occurred an error when using mp3 files: "Cannot
> load music file [music/terminal.mp3]: Unrecognized sound file type at
> play_effect.pl line 34"

> Here is the script:
> [code]
> #!perl
> use strict;
> use warnings;
> use utf8;

> use SDL;
> use SDL::Event;
> use SDL::Events;
> use SDLx::App;
> use SDLx::Controller;
> use SDL::Mixer;
> use SDL::Mixer::Music;
> use SDL::RWOps;
> use SDL::Mixer::Samples;
> use SDL::Mixer::Channels;
> SDL::init(SDL_INIT_AUDIO);
> SDL::Mixer::init( MIX_INIT_MP3 | MUS_MP3 );

> my $app = SDLx::App->new(
>    title => 'play mp3 effect',
>    exit_on_quit => 1,
> );

> unless( SDL::Mixer::open_audio( 44100, AUDIO_S16SYS, 2, 4096 ) == 0 ) {
>    Carp::croak "Cannot open audio: ".SDL::get_error(); }

> my $file = 'music/terminal.mp3';
> #my $file = 'music/br_crossing_bell_dop.r.wav';
> #my $file = 'music/Windows Logon Sound.wav'; my $sample =
> SDL::Mixer::Samples::load_WAV( $file );

> unless( $sample ) {
>    Carp::croak "Cannot load music file [$file]: " . SDL::get_error(); }

> my $playing_channel = SDL::Mixer::Channels::play_channel( -1, $sample,
> 0 );

> $app->run();

> SDL::Mixer::Music::halt_music();
> SDL::Mixer::close_audio;
> exit(0);
> [/code]

> There also occurred some other errors using .wav files:
> - Cannot load music file [music/br_crossing_bell_dop.r.wav]: Complex
> WAVE files not supported at play_effect.pl line 34
> - Cannot load music file [music/Windows Logon Sound.wav]: MPEG Layer 3
> data not supported play_effect.pl line 34

> But, I only want to play mp3 files.

> Maybe you can hint me at the solution for this problem? How can I play
> an
> mp3 file once, e.g. on a button click event?

> Best regards,
> Alex

> -----Ursprüngliche Nachricht-----
> Von: breno [mailto:oainikus...@gmail.com]
> Gesendet: Dienstag, 29. November 2011 06:34
> An: Alexander Becker
> Cc: sdl-de...@perl.org
> Betreff: Re: How to play an mp3 file from a database

> On Mon, Nov 28, 2011 at 8:13 PM, Alexander Becker
> <AlexanderBec...@gmx.net>
> wrote:
>> Dear all!

> Hi there!

>> I just tried the example code of the SDL Manual where you play some
music.
>> By the SDL manual, I refer to the one that is hidden at the bottom of
>> the sdl.perl.org page, so that you really have to search for it in
>> order to find it - and even then you have to get along with an ugly
>> github
> interface.
> There's a new project website under way, but we're missing people to
> work in it. Please join #sdl in irc.perl.org if you want to help us
> get it right :)

>> So, in general: Is there a way to play mp3 files?
> Yup.

> If your libsdl was compiled with mp3 support, all you have to do
> (iirc) is set the MIX_INIT_MP3 (for effects) and MUS_MP3 (for audio)
> flags when you call SDL::Mixer::init():

>   SDL::Mixer::init( MIX_INIT_MP3 | MUS_MP3 );

> then use load_MUS() and play_music() from SDL::Mixer::Music to play
> mp3 files as background music, or load_WAV() from SDL::Mixer::Samples
> to play mp3 effects (yes, the function is named load_WAV() but plays
> different formats too if they're available).

> The documentation in SDL::Mixer, SDL::Mixer::Music and
> SDL::Mixer::Samples should be helpful, as some of the test files
> (t/mixer_music.t comes to mind).

>> And in particular: is there a way to play mp3 files that are in a
> variable?
>> Or do I have to work with temporary files?

> Not sure. I *think* SDL::Mixer::quick_load_WAV( $buffer ) might do the
> right thing. You'll have to test it though.

> Cheers,

> breno