blob: 75f2ad1784ac241acaca284da3e1cd6a6fd9255c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
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++;
}
|
