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

diff --git a/dart/perl_shit.pl b/dart/perl_shit.pl
new file mode 100755
index 0000000..cb544ba
--- /dev/null
+++ b/dart/perl_shit.pl
@@ -0,0 +1,28 @@
+#!/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;
+ $shit{hex $line} = [ $mult, $zahl]; 
+ $pos++;
+}
+close ($fh);
+
+
+while(my $foobar = <STDIN>)
+{
+  chomp $foobar;
+  print join "\t",$foobar , $shit{hex $foobar}[0],$shit{hex $foobar}[1],"\n";
+
+
+}