Everything set to begin looking into sqlite

1 files changed, 14 insertions, 1 deletions

diff --git a/main.plx b/main.plx
index 926fe75..b03d7ad 100755
--- a/main.plx
+++ b/main.plx
@@ -74,9 +74,22 @@ if (! -d $music_dir){
 	die "Error: \"$music_dir\" is not a directory\n";
 }
 
-# Look through files in $music_dir
+# Get a list of files in $music_dir
 print "Looking through files in $music_dir\n";
 my @file_list = get_files($music_dir, %extensions);
+# DEBUG
 for my $i (sort @file_list){
 	print "$i\n";
 }
+
+# Connect to sqlite database created in the base of $music_dir
+ 
+# Get tags for each file
+my $data;
+for my $file (sort @file_list){
+	$data = Audio::Scan->scan("$file");
+	$data = $data->{tags};
+	for my $i (keys %$data){
+		print "$i -> $data->{$i}\n";
+	}
+}