From fef69dd85aaa5a3be4eaf29ba159d09c36dade71 Mon Sep 17 00:00:00 2001
From: Gerhard Gonter <ggonter@gmail.com>
Date: Tue, 3 Sep 2013 16:25:22 +0200
Subject: [PATCH] added script to work with MP3::Info
---
textarchive/mp3tags.pl | 30 ++++++++++++++++++++++++++++++
1 file changed, 30 insertions(+)
create mode 100755 textarchive/mp3tags.pl
diff --git a/textarchive/mp3tags.pl b/textarchive/mp3tags.pl
new file mode 100755
index 0000000..a233aa4
--- /dev/null
+++ b/textarchive/mp3tags.pl
@@ -0,0 +1,30 @@
+#!/usr/bin/perl
+
+use strict;
+
+use MP3::Info;
+use Data::Dumper;
+$Data::Dumper::Indent= 1;
+
+my @PAR;
+while (my $arg= shift (@ARGV))
+{
+ if ($arg =~ /^-/)
+ {
+ &usage;
+ }
+ else
+ {
+ push (@PAR, $arg);
+ }
+}
+
+foreach my $file (@PAR)
+{
+ my $tag= get_mp3tag ($file);
+
+ print "file: [$file]\n";
+ print "tag: ", Dumper ($tag);
+}
+
+
--
GitLab