add tags script
Posted by Anonymous on Mon 10th Sep 2012 06:34
raw | new post

#!/usr/bin/perl

use 5.14.0;
use strict;
use warnings;

use File::Spec qw(splitdir);
use Cwd qw(abs_path);
use File::Basename qw(basename);

if (!$ARGV[0]) { exit; }

my $arg = abs_path($ARGV[0]);

sub getdirs {

        my $dn = shift;
        my @dirs;

        open(FIND, '-|', qq(find -L "$dn" -name "*" -type d))
        or die "Can't run 'find': $!";
        push(@dirs, (<FIND>));
        chomp(@dirs);
        close(FIND) or die "Can't close 'find': $!";
        return(@dirs);
}

sub getfiles {
        my $dn = shift;
        my @files;
        opendir(my $dh, $dn) or die "Can't open directory '$dn': $!";
        foreach (sort(readdir $dh)) {
                my $fn = "$dn/$_";
                if (/.mp3$/ && -f $fn) {
                        push(@files, $fn);
                }
        }
        closedir $dh or die "Can't close directory '$dn': $!";
        return @files;
}

foreach my $dn (getdirs($arg)) {
        my @dirs = File::Spec->splitdir( $dn );
        my $el = scalar(@dirs);
        my @tags;
        my @write;
        foreach (1..2) {
                push(@tags, $dirs[--$el]);
        }
        my @files = getfiles($dn);
        foreach my $fn (@files) {
                my $temp = basename($fn);
                $temp =~ s/^1-0*//;
                $temp =~ s/.mp3$//;
                my @split = split('\. ', $temp);
                push(@tags, $split[0]);
                push(@tags, $split[1]);
                #@write = ( '--artist', "\"$tags[1]\"", '--album', "\"$tags[0]\"", '--song', "\"$split[1]\"", '--track', "\"$split[0]\"" );
                @write = ( "--artist=\"$tags[1]\"", "--album=\"$tags[0]\"", "--song=\"$split[1]\"", "--track=\"$split[0]\"" );
                system(qq{mid3v2 @write "$fn"});
                if ($? != 0) {
                        say "Something went wrong with 'mid3v2': $!";
                        exit;
                }
        }
}