projects
/
svn42.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
sensorgauges
[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;
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);
$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";
while(my $foobar = <STDIN>)
{
chomp $foobar;
print join "\t",$foobar , $shit{hex $foobar}[0],$shit{hex $foobar}[1],"\n";
-
}
}