Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
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 about the Monastery: (4)
As of 2015-01-30 05:01 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My top resolution in 2015 is:

















    Results (248 votes), past polls