X-Git-Url: https://git.realraum.at/?p=svn42.git;a=blobdiff_plain;f=dart%2Fperl_shit.pl;fp=dart%2Fperl_shit.pl;h=0000000000000000000000000000000000000000;hp=213d949568a0cb72621e34282ffce2ce37b8f9a1;hb=8e8f26d01ab21db191f62f2732808dcb75e8a74f;hpb=050398149d26f27a0b19971cbcea990574d73a57

diff --git a/dart/perl_shit.pl b/dart/perl_shit.pl
deleted file mode 100755
index 213d949..0000000
--- a/dart/perl_shit.pl
+++ /dev/null
@@ -1,33 +0,0 @@
-#!/usr/bin/perl
-my $pos=0;
-my %shit;
-for (0..63)
-{
-  $shit{$_}=['nc','nc'];
-}
-print "Reading ".$ARGV[0]."\n";
-open(my $fh, '<', $ARGV[0]) ;
-
-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";
-
-}