MP3-tag überschreiben: Hilfe, überschreiben klappt nicht (Allgemeines zu Perl)

Gast Gast

2005-08-17 17:50

Hallo,
ich versuche gerade den "Genre" einer MP3-Datei mit einem Perl-Skript zu ändern. Leider werden die Änderungen NICHT in die Datei gespeichert, warum? Wie kann ich es machen, dass diese Änderung gespeichert wird???

Code: (dl )

use MP3::Info;
  
my $file = 'fisch.mp3';
my $tag = get_mp3tag($file) or die "No TAG info";
print "GENRE vorher: $tag->{GENRE}\n";
$tag->{GENRE} = 'Rock';
print "GENRE nachher: $tag->{GENRE}\n";
set_mp3tag($file, $tag);

Die Ausgabe liefert dann:

Code: (dl )

1
2

GENRE vorher: Other
GENRE nachher: Rock

Wenn ich nun bei den Eigenschaften dieser Datei nachsehe, ist leider immer noch "Other" bei GENRE eingetragen...

GwenDragon

2005-08-17 18:15

User since
2005-01-17
14532 Artikel
Admin1

Ist die Datei vielleicht schreibgeschützt?

die Drachin, Gwendolyn

Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel

Tugi2o

2005-08-17 18:20

User since
2005-08-17
3 Artikel
BenutzerIn
[default_avatar]

[quote=GwenDragon,17.08.2005, 16:15]Ist die Datei vielleicht schreibgeschützt?[/quote]
Leider ist die Datei nicht schreibgeschützt :(

GwenDragon

2005-08-17 18:55

User since
2005-01-17
14532 Artikel
Admin1

Ich habe das Modul gerade mal getestet.
Da klappt einiges nicht. :angry:

die Drachin, Gwendolyn

Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel

GwenDragon

2005-08-17 18:59

User since
2005-01-17
14532 Artikel
Admin1

Geht wenigstens CPAN:

MP3::ID3v1Tag?\n\n

die Drachin, Gwendolyn

Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel

GwenDragon

2005-08-17 19:13

User since
2005-01-17
14532 Artikel
Admin1

Sowas geht bei mir:

Code: (dl )

#!perl

use strict;

use MP3::ID3v1Tag;

my $file = "mein.mp3";

my $mp3_file = new MP3::ID3v1Tag($file);
$mp3_file->print_tag();

my $title = "Trulla-Luh! Haha.";
my $genre = "Opera";
my $artist = "Tatz Wurm";
my $comment = "Au weh - das ist ein Mist!!!";
if($mp3_file->got_tag()
) {
     $mp3_file->set_title($title);
     $mp3_file->set_genre($genre);
     $mp3_file->set_artist($artist);
     $mp3_file->set_comment($comment);
     $mp3_file->set_year(2005);
     my $save_status = $mp3_file->save();
}