X-Git-Url: https://git.rmz.io/dotfiles.git/blobdiff_plain/04fed8e4657d28df3ca947ea34c2a5d8f9ccc02f..61d7dd11d4a450a64f2817ee4db0ec7fa5880b42:/bin/work/fix_optimierung?ds=inline diff --git a/bin/work/fix_optimierung b/bin/work/fix_optimierung new file mode 100755 index 0000000..60a1137 --- /dev/null +++ b/bin/work/fix_optimierung @@ -0,0 +1,25 @@ +#! /usr/bin/perl + +$data_file="optmimierung_test.txt"; +open(DAT, $data_file) || die("Died"); +@raw_data=; +close(DAT); + +$tmp; + +foreach $line (@raw_data) +{ + ($n,$file,$angle)=split(/\t/,$line); + + if ($n != 1) { + $new_angle=$tmp - $angle; + $new_angle %= 360; + $line =~ s/$angle/$new_angle\n/; + } else { + $new_angle = $angle; + } + + $tmp = $new_angle; + $angle = $new_angle; + print $line; +}