NAME Zahlschein - a module for check digit computation SYNOPSIS use warnings; use strict; use Business::Zahlschein qw( PzMehrzweckfeld Mehrzweckfeld ); # fuer Berechnung mit Pruefziffer im Mehrzweckfeld use Business::Zahlschein qw( PzMehrzweckfeld Mehrzweckfeld ); my $mehrzweckfeld = "01234567890"; my $kontoNr = "00000012345"; my $blz = "10"."12000"; # ohne Betrag + BLZ my $belegart = "42"; my $pzMehrzweckfeld = PzMehrzweckfeld($mehrzweckfeld); my $lesezone = Mehrzweckfeld($mehrzweckfeld, $pzMehrzweckfeld, $kontoNr, $blz, $belegart); # fuer Berechnung ohne Pruefziffer im Mehrzweckfeld use Business::Zahlschein qw( Mehrzweckfeld ); my $mehrzweckfeld = "012345678901"; my $kontoNr = "00000012345"; my $blz = "10"."12000"; # ohne Betrag + BLZ my $belegart = "42"; my $lesezone = Mehrzweckfeld($mehrzweckfeld, $pzMehrzweckfeld, $kontoNr, $blz, $belegart); DESCRIPTION ... AUTHOR AND LICENSE copyright 2009 (c) Gernot Havranek