1 files changed, 13 insertions, 0 deletions
diff --git a/Tools/schnitt/schnitt4.pl b/Tools/schnitt/schnitt4.pl
new file mode 100755
index 0000000..75f2ad1
--- /dev/null
+++ b/Tools/schnitt/schnitt4.pl
@@ -0,0 +1,13 @@
+#!/usr/bin/perl
+
+open (FI,$ARGV[0]) or die "Kann Input-Datei nicht oeffnen";
+$count = 1;
+
+while (<FI>)
+  {
+    chomp;
+    $char = sprintf ("%c",$count + 96);
+    print "Cutting from/to $_ into /x2/clips/$char\n";
+    system ("/usr/local/bin/my/schnitt2.pl $_ > /x2/clips/$char");
+    $count++;
+  }