- Timestamp:
- 03/25/15 18:59:54 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/applymeta
r20 r35 29 29 30 30 my @track_numbers; 31 foreach (split /,/, $TRACKS) { 32 if (/^(\d+)$/) { 33 push @track_numbers, $1; 34 } elsif (/^(\d+)-(\d+)$/) { 35 push @track_numbers, ($1 .. $2); 36 } elsif (/^-(\d+)$/) { 37 push @track_numbers, (1 .. $1); 38 } elsif (/^(\d+)-$/) { 39 push @track_numbers, ($1 .. $track_count); 31 if ($TRACKS) { 32 foreach (split /,/, $TRACKS) { 33 if (/^(\d+)$/) { 34 push @track_numbers, $1; 35 } elsif (/^(\d+)-(\d+)$/) { 36 push @track_numbers, ($1 .. $2); 37 } elsif (/^-(\d+)$/) { 38 push @track_numbers, (1 .. $1); 39 } elsif (/^(\d+)-$/) { 40 push @track_numbers, ($1 .. $track_count); 41 } 40 42 } 43 } else { 44 @track_numbers = (1 .. $track_count); 41 45 } 42 46 … … 60 64 $mp3->year_set($year) if $year; 61 65 $mp3->track_set($i); 62 $mp3->select_id3v2_frame_by_descr('TPE2', $metadata->{ALBUMARTIST}) if $metadata->{ALBUMARTIST};63 66 $mp3->update_tags; 64 67 printf " Apply to %s\n", $audio_file;
Note: See TracChangeset
for help on using the changeset viewer.