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>
