Re: How to handle null-chars

[Angerstein]

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

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>