Opened by Gast at 2005-05-15 01:01
Servus
Ich habe ein sehr seltsames Problem:
In manchen Konstellationen wird bestimmter Code nicht ausgeführt.
Aktuell habe ich Folgendes kleine Skript, das mittels MP3::ID3v1Tag mp3-Dateien umbenennen soll. Hier der Problemcode:
Lasse ich mir den Inhalt von $files[$i] oder "$artist - $album -$1- $title" ausgeben, erhalte ich die richtigen Ausgaben.
Folgender Code z.B. funktioniert (hier den im Array stehenden Titeln der String in $start vorangesetzt):
Mir scheint es, als wird der Command rename im sub id3() einfach nicht ausgeführt.
Hat dafür jmd. eine Lösung??
Danke!
Ich habe ein sehr seltsames Problem:
In manchen Konstellationen wird bestimmter Code nicht ausgeführt.
Aktuell habe ich Folgendes kleine Skript, das mittels MP3::ID3v1Tag mp3-Dateien umbenennen soll. Hier der Problemcode:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
sub id3() {
$i = 0;
while ($i < $sizeOfFiles) {
$mp3_file = new MP3::ID3v1Tag($files[$i]);
$artist = $mp3_file->get_artist();
$album = $mp3_file->get_album();
$title = $mp3_file->get_title();
#Titelnummer suchen
$files[$i] =~ /(\d*)/;
rename $files[$i], "$artist - $album -$1- $title";
$i++;
}#while
}#end id3 Lasse ich mir den Inhalt von $files[$i] oder "$artist - $album -$1- $title" ausgeben, erhalte ich die richtigen Ausgaben.
Folgender Code z.B. funktioniert (hier den im Array stehenden Titeln der String in $start vorangesetzt):
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
sub startWith() {
while () {
print "The files should start with: ";
chomp($start = <STDIN>);
if ($start ne '') {
last;
}#if
}#while
$i = 0;
while ($i < $sizeOfFiles) {
rename $files[$i], "$start$files[$i]";
$i++;
}#while
}#end startWith Mir scheint es, als wird der Command rename im sub id3() einfach nicht ausgeführt.
Hat dafür jmd. eine Lösung??
Danke!