#!/usr/bin/perl

use 5.14.0;

use strict;

use warnings;

#use File::Find qw(finddepth);

use File::Copy qw(move);

use File::Basename qw(basename dirname);

use File::Path qw(make_path);

#my $library = "/home/sir/Music/Songbird Music";

my $library = "/home/sir/Music/Songbird Music";

my (%files, @files, @dirs);

getdirs($library);

foreach my $dn (sort(@dirs)) {

		chomp(my $ls = `ls "$dn"/*.flac 2> /dev/null | head -n 1`);

		if (-f $ls) {

	#		my @stat = stat($dn);

	#		my $ino = $stat[1];

	#		say "$dn has $ino";

			undef %files;

			undef @files;

			getfiles($dn);

			my $fc = scalar(@files);

			if ($fc > 0) {

				#replaygain($dn);

				for (my $n = 0; $n < $fc; $n++) {

					my $fn = $files[$n];

	#				empty($fn);

	#				duplicate($fn);

					discnum($fn, $n, $fc);

				}

			}

		}

}

# Make this subroutine and the whole script so that each file name is stored in a hash and that each member contains an anonymous hash with the tags (the alltags hash).

# This means it won't have to look up the tags again for the albumartist subroutine.

sub gettags {

	my $fn = quotemeta(shift);

	my (%alltags, @mflac);

	chomp(@mflac = (<OUTPUT>));

	foreach (@mflac) {

		} else {

		}