Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
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 making s'mores by the fire in the courtyard of the Monastery: (6)
As of 2014-09-24 02:46 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (244 votes), past polls