diff options
Diffstat (limited to 'Tools/schnitt/schnitt4.pl')
-rwxr-xr-x | Tools/schnitt/schnitt4.pl | 13 |
1 files changed, 0 insertions, 13 deletions
diff --git a/Tools/schnitt/schnitt4.pl b/Tools/schnitt/schnitt4.pl deleted file mode 100755 index 75f2ad1..0000000 --- a/Tools/schnitt/schnitt4.pl +++ /dev/null @@ -1,13 +0,0 @@ -#!/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++; - } |