#!/usr/bin/perl

use warnings;
use strict;

my @a = ("12;;654;Test;12345;Test", "13;;265;Test;12345;Test");

foreach my $line (@a) {
    chomp($line);
    my @b = split(";", $line);
    foreach my $i (@b) {
        if ($i eq "") {
            # Assigning a value to $i here changes @b too:
            $i = "000000";
        }
        # isdigit?:
        if ($i !~ /\D/) {
            $i = sprintf("%06d", $i);
        }
    }
    print join(";", @b) . "\n";
}

#!C:/Programme/Perl

use strict;
my $input='Input.csv';
my $output='Output.csv';
my $mapping='Input_mapping.csv';
my $zeileDaten;
my @arrayDaten;
my $inputDaten;
my @inputarray;
my $semikolon=';';

open MAPPING, "<$mapping" or die "Datei $mapping konnte nicht geöffnet werden";
open INPUT, "<$input" or die "Datei $input konnte nicht geöffnet werden";
open Output, ">$output" or die "Datei $output konnte nicht geöffnet werden";
while (<MAPPING>){
chomp; 	

#print "$_\n";   

$zeileDaten ="$_\n";     


push(@arrayDaten,$zeileDaten);       
} 

close(MAPPING);

while (<INPUT>){
chomp;
$inputDaten ="$_\n"; 
@inputarray=split(/;/,$inputDaten);	
foreach $mapping( @arrayDaten ) {
my ($Stelle, $ZielStelle,$Laenge, $Typ) = split(/;/,$mapping);	
	 if ($Stelle eq "!"){
	              print   Output "$semikolon";
	            }  else {
	              print   Output "@inputarray[$Stelle]$semikolon";
	              print  "@inputarray[$Stelle]$semikolon";
            }

	
 }


}
close(INPUT);

#!C:/Programme/Perl

use strict;
my $input='Input.csv';
my $output='Output.csv';
my $mapping='Input_format.csv';
my $zeileDaten;
my @arrayDaten;
my $inputDaten;
my @inputarray;
my @outputarray;

open MAPPING, "<$mapping" or die "Datei $mapping konnte nicht geöffnet werden";
open INPUT, "<$input" or die "Datei $input konnte nicht geöffnet werden";
open OUTPUT, ">$output" or die "Datei $output konnte nicht geöffnet werden";


while (<MAPPING>){
chomp; 	

$zeileDaten ="$_\n";     
push(@arrayDaten,$zeileDaten);       
} 
close (MAPPING);



while (<INPUT>){

    chomp $inputDaten;

    @inputarray = split (/;/, $inputDaten);


    foreach $mapping (@arrayDaten) {

        my ($Stelle, $ZielStelle, $Laenge, $Typ) = split(/;/,$mapping);

        if ($Typ eq 'Numerisch') {
            $outputarray[$ZielStelle] = sprintf("%0" . $Laenge . "d", ($inputarray[$Stelle] or 0));
        } elsif ($Typ eq 'Alphanumerisch') {
            $outputarray[$ZielStelle] = sprintf("% " . $Laenge . "s", ($inputarray[$Stelle] or ''));
        }
    }

    print  join (";", @outputarray) . "\n";

    #print  OUTPUT  join (";", @outputarray) . "\n";
}
close (INPUT);
exit;