From 033d5a49f68fe951ce2f43449101779efc1985db Mon Sep 17 00:00:00 2001
From: eleksir <eleksir@exs-elm.ru>
Date: Wed, 1 Feb 2017 20:25:39 +0300
Subject: [PATCH] add unpack_and_move.pl, batch recursive 7z unpack script

---
 unpack_and_move.pl | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100755 unpack_and_move.pl

diff --git a/unpack_and_move.pl b/unpack_and_move.pl
new file mode 100755
index 0000000..c0cae79
--- /dev/null
+++ b/unpack_and_move.pl
@@ -0,0 +1,19 @@
+#!/usr/bin/perl
+
+# finds in current dir 7z compressed file, makes dir according filename,
+# move file to that dir, unpack file to that dir, remove file
+
+opendir(S, ".");
+@list = readdir(S);
+foreach (@list) {
+	next if ($_ eq ".");
+	next if($_ eq "..");
+	$filename = $_;
+	$name = (split(/\.7z/, $filename))[0];
+	next unless (mkdir($name));
+	system("mv", $filename, $name);
+	next unless (chdir($name));
+	system("7z", "x", $filename);
+	unlink($filename);
+	chdir("..");
+}