From 5ac98e0de89f6fe7ff7a23a8ad5f99b360da0bcc Mon Sep 17 00:00:00 2001
From: lshprung <lshprung@yahoo.com>
Date: Tue, 7 Sep 2021 13:59:46 -0700
Subject: Everything set to begin looking into sqlite

---
 main.plx | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

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";
+	}
+}
-- 
cgit