summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorlshprung <lshprung@yahoo.com>2021-09-06 18:10:13 -0700
committerlshprung <lshprung@yahoo.com>2021-09-06 18:10:13 -0700
commit716d79e10a37613423abd572d229d4123e05b790 (patch)
treef7f121ccf3c47059db61d5bc10e49dd7869bbb44
First commit
-rwxr-xr-xmain.plx70
1 files changed, 70 insertions, 0 deletions
diff --git a/main.plx b/main.plx
new file mode 100755
index 0000000..7a40a4b
--- /dev/null
+++ b/main.plx
@@ -0,0 +1,70 @@
+#!/usr/bin/perl
+
+use warnings;
+use strict;
+use utf8;
+use Audio::Scan;
+use File::HomeDir;
+
+
+# Keep track of columns that need to be created in the database
+our %columns = (
+ ID => '1'
+);
+
+# Variables to be set by user (TODO)
+our $music_dir = File::HomeDir->my_home . "/Music/";
+
+
+# Scan a directory recursively, return an array of files (optionally, matching a certain file extension or extensions TODO)
+sub scan_dir {
+ my @file_list;
+
+ # Remove extra /'s from the end of $_[0]
+ $_[0] =~ s/\/+$//g;
+ my $dir_path = $_[0];
+ my @extensions = $_[1]; #TODO
+
+ opendir my $dh, "$dir_path" or die "$!";
+ while (my $file = readdir($dh)) {
+ # Skip . and .. directories
+ if ($file eq "." or $file eq ".."){
+ next;
+ }
+
+ if (-d "$dir_path/$file"){
+ push(@file_list, scan_dir("$dir_path/$file", @extensions));
+ }
+
+ elsif (-f "$dir_path/$file" and -r "$dir_path/$file"){
+ push(@file_list, "$dir_path/$file");
+ }
+ }
+
+ closedir $dh;
+ return @file_list;
+}
+
+# Test scan for Audio::Scan module
+sub scan_test {
+ my $data = Audio::Scan->scan("/home/louie/Music/Bjork/Debut/01 Human Behaviour.flac");
+ $data = $data->{tags};
+ for (keys %$data){
+ print "$_ -> $data->{$_}\n";
+ }
+}
+
+
+# TODO parse flags and arguments
+
+# Test to ensure $music_dir is a valid directory
+if (! -d $music_dir){
+ die "Error: \"$music_dir\" is not a directory\n";
+}
+
+# Look through files in $music_dir
+print "Looking through files in $music_dir\n";
+my @file_list = scan_dir($music_dir);
+for my $i (sort @file_list){
+ print "$i\n";
+}