bin/work/fix_optimierung

   1 #! /usr/bin/perl
   2
   3 $data_file="optmimierung_test.txt";
   4 open(DAT, $data_file) || die("Died");
   5 @raw_data=<DAT>;
   6 close(DAT);
   7
   8 $tmp;
   9
  10 foreach $line (@raw_data)
  11 {
  12   ($n,$file,$angle)=split(/\t/,$line);
  13
  14   if ($n != 1) {
  15     $new_angle=$tmp - $angle;
  16     $new_angle %= 360;
  17     $line =~ s/$angle/$new_angle\n/;
  18   } else {
  19     $new_angle = $angle;
  20   }
  21
  22   $tmp = $new_angle;
  23   $angle = $new_angle;
  24   print $line;
  25 }