RE: How to handle null-chars

Angerstein 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//; : r

Re: How to handle null-chars

@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 somethi