File Coverage

blib/lib/Business/PVMForImportAfterExport.pm

Criterion	Covered	Total	%
statement	16	61	26.2
branch	0	40	0.0
condition			n/a
subroutine	5	7	71.4
pod	0	2	0.0
total	21	110	19.0

package Business::PVMForImportAfterExport;

use warnings;
use strict;
use String::StringLight qw( trim );

our $VERSION = '0.06';

BEGIN {
	use Exporter;
	our @ISA         = qw( Exporter );
	our @EXPORT      = qw( );
	our %EXPORT_TAGS = ( );
	our @EXPORT_OK   = qw( &PvmDateiErstellen &AdresslisteDazu );
}

sub PvmDateiErstellen {

	my ($dateiEin, $dateiPvm, $aufbau, $idStelle, $idLaenge, $lkzStelle, $lkzLaenge, $plzStelle, $plzLaenge, $buendelung) = @_;

	open(my $fhEin, "<", $dateiEin) or die $!;
	open(my $fhPvm, ">", $dateiPvm) or die $!;

	print $fhPvm join(";", "PLZ", "ID")."\n";

	while(my $zeile = <$fhEin>) {

		chomp $zeile;

		my ($lkz, $plz, $pvmSatz) = ("", "", "");
		if ($aufbau =~ m/^D/) {
			my @satz = ();
			@satz    = split(substr($aufbau,1), $zeile);
			$lkz     = trim($satz[$lkzStelle - 1]);
			$plz     = trim($satz[$plzStelle - 1]);
			$pvmSatz = join(";", $plz, trim($satz[$idStelle - 1]))."\n" if $buendelung eq "J";
			$pvmSatz = join(";", $plz, $.)."\n"                         if $buendelung eq "N";
		} # if
		else {
			$lkz     = trim(substr($zeile,$lkzStelle - 1,$lkzLaenge));
			$plz     = trim(substr($zeile,$plzStelle - 1,$plzLaenge));
			$pvmSatz = join(";", $plz, trim(substr($zeile,$idStelle - 1,$idLaenge)))."\n" if $buendelung eq "J";
			$pvmSatz = join(";", $plz, $.)."\n"                                           if $buendelung eq "N";
		} # else

		print $fhPvm $pvmSatz if $lkz eq "A";

	} # while

	close($fhEin) or die $!;
	close($fhPvm) or die $!;

} # PvmDateiErstellen

sub AdresslisteDazu {

	my ($dateiAdrListe, $dateiEin, $dateiAus, $idStelle, $idLaenge, $aufbau) = @_;

	open(my $fhAdrListe, "<", $dateiAdrListe) or die $!;
	my %pnr;
	while(my $zeile = <$fhAdrListe>) {
		chomp $zeile;
		my @satz = ();
		@satz    = split(/;/, $zeile);
		defined $satz[8] or $satz[8] = "";
		defined $satz[9] or $satz[9] = "";
		if ($aufbau =~ m/^D/) {
			$pnr{$satz[2]} = join(substr($aufbau,1), $satz[0], @satz[3..9]);
		} # if
		else {
			$pnr{$satz[2]} = sprintf("%-11s", $satz[0]).sprintf("%-3s", $satz[3]).sprintf("%-3s", $satz[4]).sprintf("%-3s", $satz[5]).
			                 sprintf("%-1s", $satz[6]).sprintf("%-2s", $satz[7]).sprintf("%-1s", $satz[8]).sprintf("%-1s", $satz[9]);
		} # else
	} # while
	close($fhAdrListe) or die $!;

	open(my $fhEin, "<", $dateiEin) or die $!;
	open(my $fhAus, ">", $dateiAus) or die $!;
	while(my $zeile = <$fhEin>) {
		chomp $zeile;
		if ($aufbau =~ m/^D/) {
			my @satz = ();
			@satz    = split(substr($aufbau,1), $zeile);
			# bei delimitedAusgabe nicht so "dramatisch", wenn auch die zuvor eingefügte ID ausgegegen wird, darum @satz...
			print $fhAus join(substr($aufbau,1), @satz, $pnr{trim($satz[$idStelle - 1])})."\n";
		} # if
		else {
			print $fhAus substr($zeile,0,$idStelle - 1).$pnr{trim(substr($zeile,$idStelle - 1,$idLaenge))}."\n";
		} # else
	} # while
	close($fhEin) or die $!;
	close($fhAus) or die $!;

} # AdresslisteDazu

1;
__END__