X-Git-Url: https://git.realraum.at/?a=blobdiff_plain;f=dart%2Fperl_shit.pl;h=213d949568a0cb72621e34282ffce2ce37b8f9a1;hb=ff9137d257207a3a4b03c4f453cc1b7ce1e3cf17;hp=cb544bacce36eb24f2ed7fc0c77a9753dc1ce3ae;hpb=45434651a9ef34b3f776b55be0a9ef7635a9703b;p=svn42.git

diff --git a/dart/perl_shit.pl b/dart/perl_shit.pl
index cb544ba..213d949 100755
--- a/dart/perl_shit.pl
+++ b/dart/perl_shit.pl
@@ -13,16 +13,21 @@ while( my $line =<$fh>)
  chomp $line;
  my $zahl = (int($pos / 3)) +1 ;
  my $mult =( $pos % 3 )+1;
+ $zahl = 25 if $zahl == 21;
  $shit{hex $line} = [ $mult, $zahl]; 
  $pos++;
 }
 close ($fh);
 
+for my $foobar ( sort { $a <=> $b } keys %shit)
+{
+  
+  print sprintf "%d,", $shit{$foobar}[0]<<5|$shit{$foobar}[1];
+}
 
 while(my $foobar = <STDIN>)
 {
   chomp $foobar;
   print join "\t",$foobar , $shit{hex $foobar}[0],$shit{hex $foobar}[1],"\n";
 
-
 }