Angerstein <mailto:[EMAIL PROTECTED]> wrote:
: @id3v1 contain 128 Byte Bincode. : to fix 0 Chars I do: : ################################### : $label = &cleanup(0,3); : : sub cleanup { : my $jn; : $start = shift; : $stop = shift; : $jn = join("", @id3v1[$start..$stop]); : $jn =~ s/\0//; : return $jn; : } : ################################### : : Anybody with something better? First, don't change the name of a thread when you reply to it. Second, a subroutine should never act on variables which were not passed into the sub. @id3v1 hasn't been passed in. my $label = id3v1_label( @id3v1[ 0 .. 3 ] ); sub id3v1_label { my $label = join '', @_; $label =~ s/\0//; return $label; } HTH, Charles K. Clarkson -- Mobile Homes Specialist 254 968-8328 -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>