Welcome To Our Shell

Mister Spy & Souheyl Bypass Shell

$jahr = shift || 2012;
$rubriken = <<'TEXT_ENDE';

**************************
Handkassen:
-10-7000-arjasanow   -
-10-7000-ccsengery   -
-11-7500-cgabriel    -
-10-7000-cgabriel    -
-10-7000-ddienlin    -
-10-7000-mherrschel  -
-10-7000-tjungblut   -

-10-7000-dmc         -
-10-7000-gulp        -
-10-7000-hays        -
-10-7000-progressive -
-10-7000-solcom      -
-10-7000-whv         -
-10-7000             -

-10-2080             -

**************************
Umsatz- und Lohnsteuer
-10-1500-1502    -
-10-1500-1503    -

**************************
VBG, IHK, GEZ, KFZ-Vers., KFZ-Steuer
-10-1500-1591    -
-10-1500-1592    -
-10-1500-1593    -
-10-1500-1594    -
-10-1500-1595    -


**************************
Beitragsnachweise
.-10-1500-1510    -
.-10-1500-1511    -
.-10-1500-1512    -
.-10-1500-1513    -
.-10-1500-1514    -
.-10-1500-1515    -
.-10-1500-1516    -
.-10-1500-1517    -
.-10-1500-1518    -

.-10-1500         -
.-11-1500         -

**************************
Konto Sparkasse:

.-10-1222         -

-10-1202         -13-6090
-10-1202         -13-6310
-10-1202         -13-6311
-10-1202         -13-6350
-10-1202         -13-6530
-10-1202         -13-6540
-10-1202         -13-6600
-10-1202         -13-6602
-10-1202         -13-6670
-10-1202         -13-6680
-10-1202         -13-6700
-10-1202         -13-6825
-10-1202         -13-6855
-10-1202         -13-9210
-10-1202         -13
-10-1202         -12
-10-1202         -11
-10-1202         -


*******************************

.-11-1502         -
.-11-1503         -

.-11              -

-                -
*******************************
TEXT_ENDE



print "\nAUFTEILUNG BELEGE $jahr\n\n" . scalar(localtime(time()-3*86400)) . "\n\n\n";
open(FFILE,"<gmbh_$jahr.kto");
$text1 = [];
$bez   = {};
while ($o = <FFILE>) {
   if ($o =~ /^(\S+) +([a-zA-Z]\S*)/) { $bez->{$1} = $2; }
   next if ($o !~ /^\d\d\d\d\d\d\d\d[ ;]+\-?\d+\.\d\d[ ;]+[^ ;]+[ ;]+[^ ;]+[ ;]+\-?\d+\.\d\d[ ;]+/);
   push(@$text1,$o);
}
close(FFILE);

foreach $r (split(/\n/,$rubriken)) {
   $mode = "";
   if ($r =~ s/^([\!\.])//) { $mode = $1; }
   next if ($r !~ /^ *-(\S*?) +-(\S*?) *$/);
   $o1 = $1;
   $o2 = $2;
   $o  = $r . "    ( " . $bez->{$o1} . " / " . $bez->{$o2} . " )";
   print "\n\n$mode"."Rubrik   $o\n" . "-"x(9+length($o)) . "\n\n" if ($mode ne ".");
   $text2 = [];
   foreach $o (@$text1) {
      if ($o =~ /^\d\d\d\d\d\d\d\d[ ;]+\-?\d+\.\d\d[ ;]+\-$o1[^ ;]*[ ;]+\-$o2[^ ;]*[ ;]+\-?\d+\.\d\d[ ;]+/ or
          $o =~ /^\d\d\d\d\d\d\d\d[ ;]+\-?\d+\.\d\d[ ;]+\-$o2[^ ;]*[ ;]+\-$o1[^ ;]*[ ;]+\-?\d+\.\d\d[ ;]+/) {
         print $o if ($mode ne ".");
      } else {
         push(@$text2,$o);
      }
   }
   $text1 = $text2;
}