Tools/schnitt/schnitt5.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

#!/usr/bin/perl
require "/usr/local/bin/my/schnittcommon.pli";

open (INDEX,"index.vdr");
$index = $ARGV[0] - 15000;
&nextI;

$file1 = $file;

$index += 30000;
&nextI;

$file2 = $file;

print "$file1 $file2\n";