From: Fredrik Tolf Date: Wed, 15 Feb 2012 21:14:45 +0000 (+0100) Subject: Check in ordershare. X-Git-Url: http://git.dolda2000.com/gitweb/?a=commitdiff_plain;h=61cdfff7d57ed4e1ff1a47af3c57d040644ae0c6;hp=b2fa28e3cc2ebdf6f144716f5764fe6c87ca8a2f;p=utils.git Check in ordershare. --- diff --git a/ordershare b/ordershare new file mode 100755 index 0000000..4e9ed5e --- /dev/null +++ b/ordershare @@ -0,0 +1,154 @@ +#!/usr/bin/perl -w + +sub gettok { + if(/\G\"([^\"]*)\"\s+/gc) { + return $1; + } elsif(/\G(\S+)\s+/gc) { + return $1; + } else { + return undef; + } +} + +while(@ARGV) { + if(!open IF, $ARGV[0]) { + last; + } + shift @ARGV; + while() { + if(/^prod\s+/g) { + $cp = {}; + $id = gettok; + $cp->{"s"} = gettok; + $cp->{"p"} = gettok; + $cp->{"w"} = gettok; + $prod{$id} = $cp; + } + if(/^prt\s+/g) { + $id = gettok; + $prts{$id} = {"name" => gettok, "items" => {}}; + } + if(/^item\s+/g) { + $prt = gettok; + if(!exists $prts{$prt}) { + die "invalid participant $prt in item line"; + } + $a = 1; + while($t = gettok) { + if($t =~ /^\d+(\.\d+)?$/) { + $a = $t; + next; + } + $i = $prts{$prt}->{"items"}; + if(exists $i->{$t}) { + $i->{$t} += $a; + } else { + $i->{$t} = $a; + } + $a = 1; + } + } + if(/^freight\s+(\d+)/) { + $fc = $1; + } + if(/^realprice\s+(\d+)/) { + $rp = $1; + } + } + close IF; +} + +$yt = $wt = 0; +for $p (sort keys %prts) { + $I = $prts{$p}->{"items"}; + $sp = $sw = 0; + for $i (keys %$I) { + $yt += $I->{$i} * $prod{$i}->{"p"}; + $wt += $I->{$i} * $prod{$i}->{"w"}; + $sp += $I->{$i} * $prod{$i}->{"p"}; + $sw += $I->{$i} * $prod{$i}->{"w"}; + } + $prts{$p}->{"sp"} = $sp; + $prts{$p}->{"sw"} = $sw; +} +$er = (($yt + $fc) / $rp); + +while($cmd = shift @ARGV) { + if($cmd eq "stat") { + print "Total: $yt ($rp SEK), $wt g\n"; + print "Freight: $fc\n"; + print ("Ratio: " . $er . "\n"); + } elsif($cmd eq "judgement") { + for $prt (keys %prts) { + print "$prts{$prt}->{name}:\n"; + $sp = $prts{$prt}->{"sp"}; + $sw = $prts{$prt}->{"sw"}; + printf "\tProducts ¥%i (%i SEK), %i g\n", $sp, ($sp / $er), $sw; + $ff = $sw / $wt; + $sfc = $fc * $ff; + printf "\tFreight ¥%i (%.1f%%, %i SEK)\n", $sfc, (100 * $ff), ($sfc / $er); + $st = $sfc + $sp; + printf "\tTotal: ¥%i (%i SEK)\n", $st, ($st / $er); + } + } elsif($cmd eq "rcpt-txt") { + $prt = shift @ARGV; + $I = $prts{$prt}->{"items"}; + for $i (keys %$I) { + printf "%.1f %s\t\t%i (%i SEK)\t%i g\n", $I->{$i}, $prod{$i}->{"s"}, $I->{$i} * $prod{$i}->{"p"}, $I->{$i} * $prod{$i}->{"p"} / $er, $I->{$i} * $prod{$i}->{"w"}; + } + } elsif($cmd eq "rcpt-tex") { + print <{"items"}; + $ni = 0; + for $i (keys %$I) { + printf "%s & ", $prod{$i}->{"s"}; + printf "%.1f & ", $I->{$i}; + printf "%i & ", $prod{$i}->{"p"}; + printf "%i & ", $prod{$i}->{"p"} * $I->{$i}; + printf "%.2f & ", $prod{$i}->{"p"} * $I->{$i} / $er; + printf "%i & ", $prod{$i}->{"w"} * $I->{$i}; + #printf "%.1f %s\t\t%i (%i SEK)\t%i g", $I->{$i}, $prod{$i}->{"s"}, $I->{$i} * $prod{$i}->{"p"}, $I->{$i} * $prod{$i}->{"p"} / $er, $I->{$i} * $prod{$i}->{"w"}; + print "\\\\\n"; + $ni += $I->{$i}; + } + print "\\hline\nDelsumma & "; + printf "%i & & ", $ni; + printf "%i & ", $prts{$prt}->{"sp"}; + printf "%.2f & ", $prts{$prt}->{"sp"} / $er; + printf "%i & ", $prts{$prt}->{"sw"}; + print "\\\\\n"; + $ff = $prts{$prt}->{"sw"} / $wt; + printf "Frakt & %.1f\\%% & ", 100 * $ff; + printf "%i & ", $fc; + printf "%i & ", $fc * $ff; + printf "%.2f", $fc * $ff / $er; + print "\\\\\n"; + print "\\hline\nTotalt & & & "; + printf "%i & ", $fc * $ff + $prts{$prt}->{"sp"}; + printf "\\textbf{%.2f} & ", ($fc * $ff + $prts{$prt}->{"sp"}) / $er; + print "\n"; + print "\\end{longtable}\n"; + print "\n"; + print "\\end{document}\n"; + } else { + print STDERR "usage: ordershare DESCFILE... COMMAND...\n"; + print STDERR "\tcommands:\n"; + print STDERR "\tstat General statistics\n"; + print STDERR "\tjudgement Overview for each participant\n"; + print STDERR "\trcpt-txt PARTICIPANT Receipt in text format\n"; + print STDERR "\trcpt-tex PARTICIPANT Receipt in LaTeX format\n"; + } +}