Help for this page
my $pad_len_sum = my $som_rekening = "2147483648"; my $pad_len_sum = 15; my $padded_som = sprintf("%0${pad_len}d", $sum); print "PADDED SOM: $padded_sum - $sum\n";
my $som_rekening = "2147483648"; my $i = 15-length($som_rekening); $i = 0 if( $i < 0 ); my $padded_som = "0"x$i.$som_rekening; print "PADDED SOM: $padded_som - $som_rekening\n";