[console]
[TARDIS:~]$ mp32ogg --quality=6 *.mp3
mp32ogg v0.11
(c) 2000-2002 Nathan Walp
Released without warranty under the terms of the Artistic License
Not a GLOB reference at /usr/share/perl5/MP3/Info.pm line 526.
[/console]
Кто сталкивался и как решать проблему?
Кусок(с нумерацией) /usr/share/perl5/MP3/Info.pm
text
498 # See if a version number was passed. Make sure it's a 1 or a 2
499 $ver = !$ver ? 0 : ($ver == 2 || $ver == 1) ? $ver : 0;
500
501 if (!(defined $file && $file ne '')) {
502 $@ = "No file specified";
503 return undef;
504 }
505
506 my $filesize = -s $file;
507
508 if (!$filesize) {
509 $@ = "File is empty";
510 return undef;
511 }
512
513 # filehandle passed
514 if (ref $file) {
515
516 $fh = $file;
517
518 } else {
519
520 open($fh, $file) || do {
521 $@ = "Can't open $file: $!";
522 return undef;
523 };
524 }
525
526 binmode $fh;
527
528 # Try and find an APE Tag - this is where FooBar2k & others
529 # store ReplayGain information
530 if ($find_ape) {
531
532 $has_ape = _parse_ape_tag($fh, $filesize, \%info);
533 }
534
535 if ($ver < 2) {
536
537 $has_v1 = _get_v1tag($fh, \%info);
538
539 if ($ver == 1 && !$has_v1) {
540 _close($file, $fh);
541 $@ = "No ID3v1 tag found";
542 return undef;
543 }
544 }
545
546 if ($ver == 2 || $ver == 0) {
547 $has_v2 = _get_v2tag($fh, $ver, $raw, \%info);
548 }
549
550 if (!$has_v1 && !$has_v2 && !$has_ape) {
551 _close($file, $fh);
552 $@ = "No ID3 or APE tag found";
553 return undef;
554 }
555
556 unless ($raw && $ver == 2) {
557
И как дополнение:
Будут-ли интересны заметки о консольных утилитках для перегона звука из одних форматов в другие? В интернете найти легко, но что-бы все и в 1 месте пока не видел.
