working dart shit first version

[svn42.git] / dart / perl_shit.pl

diff --git a/dart/perl_shit.pl b/dart/perl_shit.pl
index cb544ba..213d949 100755 (executable)
--- 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";
 
-
 }