Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

Ryszard's scratchpad

by Ryszard (Priest)
on Jun 02, 2004 at 14:44 UTC ( #359468=scratchpad: print w/ replies, xml ) Need Help??

sub write_tag { my $self = shift; my %args = @_; my $mp3 = MP3::Mplib->new($args{mp3}) || return "Unable to update +$args{mp3}: $!"; print STDERR Dumper($mp3->header); print STDERR Dumper($mp3->get_v1tag); my @mp3ary = split('/', $args{mp3}); print STDERR "Setting tag\n"; print STDERR Dumper($mp3); $mp3->set_v1tag({ YEAR => $args{YEAR} , ARTIST => $args{ARTIST}, ALBUM => $args{ALBUM} , GENRE => $args{GENRE} , TITLE => pop @mp3ary , }, &ISO_8859_1); print STDERR "-------------------------------------------------\n"; print STDERR Dumper($mp3); print STDERR Dumper($mp3->error); print STDERR $args{album}."\n"; print STDERR Dumper(%args); print STDERR "\nFinished setting tag\n"; my $v1tag = $mp3->get_v1tag; #return Dumper( $mp3->error() ); return $v1tag; } =================================================== $VAR1 = bless( { '_mp_id3v1' => {}, '_mp_header' => { 'bitrate' => '192', 'mode_ext' => 2, 'mode' => 'Joint-Stereo', 'protbit' => 1, 'version' => 'MPEG 1', 'copyright' => 1, 'privbit' => 0, 'emphasis' => 0, 'originalhome' => 1, 'syncword' => 61695, 'layer' => 'Layer III', 'samplingfreq' => '44100 Hz', 'padbit' => 0 }, '_mp_v2header' => undef, '_mp_id3v2' => undef, '_mp_file' => '/depot/mp3/Offspring - Discography 7CD +s [16 Bonus Tracks]/2003 - Splinter/05 - Race Against Myself -bwp.mp +3' }, 'MP3::Mplib' ); [Sun Apr 25 18:27:51 2004] mp3_server.pl: Argument "ARTIST" isn't nume +ric in subroutine entry at /usr/lib/perl5/site_perl/5.8.0/i386-linux- +thread-multi/MP3/Mplib.pm line 78. ------------------------------------------------- $VAR1 = bless( { '_mp_id3v1' => undef, '_mp_header' => { 'bitrate' => '192', 'mode_ext' => 2, 'mode' => 'Joint-Stereo', 'protbit' => 1, 'version' => 'MPEG 1', 'copyright' => 1, 'privbit' => 0, 'emphasis' => 0, 'originalhome' => 1, 'syncword' => 61695, 'layer' => 'Layer III', 'samplingfreq' => '44100 Hz', 'padbit' => 0 }, '_mp_v2header' => undef, '_mp_id3v2' => undef, '_mp_file' => '/depot/mp3/Offspring - Discography 7CD +s [16 Bonus Tracks]/2003 - Splinter/05 - Race Against Myself -bwp.mp +3' }, 'MP3::Mplib' ); $VAR1 = {}; [Sun Apr 25 18:27:51 2004] mp3_server.pl: Use of uninitialized value i +n concatenation (.) or string at ../../lib//Infomgr/MP3.pm line 381. $VAR1 = 'mp3'; $VAR2 = '/depot/mp3/Offspring - Discography 7CDs [16 Bonus Tracks]/20 +03 - Splinter/05 - Race Against Myself -bwp.mp3'; $VAR3 = 'ALBUM'; $VAR4 = 'Splinter'; $VAR5 = 'GENRE'; $VAR6 = 'Punk'; $VAR7 = 'YEAR'; $VAR8 = '2003'; $VAR9 = 'ARTIST'; $VAR10 = 'The Offspring'; Finished setting tag
Log In?
Username:
Password:

What's my password?
Create A New User
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (7)
As of 2014-08-30 06:54 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (291 votes), past polls