Zahlschein - a module for check digit computation
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);
...
copyright 2009 (c) Gernot Havranek
To install Business::Zahlschein, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Business::Zahlschein
CPAN shell
perl -MCPAN -e shell install Business::Zahlschein
For more information on module installation, please visit the detailed CPAN module installation guide.