in reply to Undef and Unitialized Issue

Hello Pharazon,

It would help if you provided a sample of the input file, together with the output you are getting. At the least, you should specify the exact form of the warning message.

In the meanwhile, I’m guessing that the problem arises in this expression: substr($_, 57, 14) when the string in $_ is less than 57 characters long. If so, you can remove the warning by adding a test along these lines:

my $temp  = substr($_, 0,  56) . $sp x 26;
   $temp .= substr($_, 57, 14) if length >= 57;
$RECORD[$det_line] = $sp x 4 . ltrim($temp);

[download]

Hope that helps,

Athanasius <°(((>< contra mundum Iustus alius egestas vitae, eros Piratica,

Replies are listed 'Best First'.
Re^2: Undef and Unitialized Issue
by Pharazon (Acolyte) on Apr 02, 2015 at 14:40 UTC

    I can't believe I missed that. I had conditioned so many of the other substr's to prevent issues and just complete missed that one. However, after clearing that out I am still getting on uninitialized error. Below is the sample input data and the output up to the error:

    INPUT

                                                                     06

   01720168-00000000257980

                                      123 N PLAZA HWY 123
                                       172016-8

        SOME COMPANY INC.              ANOTHER COMPNAY OF SOMWHERE
        P O BOX 1234                  123 STREET RD.  
        CITY   KY 12345               SUITE#  1234
                                      CITY,    ST  12345








                                        6/23/2014            $257.98



  ANOTHER COMPNAY OF SOMWHERE                              6/23/2014
 123 STREET RD.                     172016-8               6/09/2014
 CITY,    ST  12345                                          $257.98



 02CS   4/30   5/28           3117.0    3259.0      142.0
 Meter #    C204508                                 142.0     232.99
 Pipe Replacement Pgm SNR Comm                                  3.27
 RESEARCH & DEVELOPMENT TARIFF                                   .03
 3.00% Rate Increase County Co Sc Tax on 236.29                 7.09
 6.00% State Tax on 243.38                                     14.60

                                 Current Charges              257.98

                                 Previous Amount Due          351.60
                                 Payment Received  5/22       351.60CR

                                 Total Amount Due             257.98













                     1-877-123-1234               66.0  28       142.0
 8:00am to 4:00pm                                 58.6  30       203.0
                                                  70.3  28       174.0

    [download]

    OUTPUT

    elt 1 0 is 00001
elt 1 1 is 00001111
elt 1 2 is 06
elt 1 3 is 01720168-00000000257980
elt 1 4 is 172016-8
elt 1 5 is SOME COMPANY INC.
elt 1 6 is 123 STREET RD.
elt 1 7 is CITY,    ST  12345
elt 1 8 is 
elt 1 9 is ANOTHER COMPNAY OF SOMWHERE
elt 1 10 is 123 STREET RD.
elt 1 11 is SUITE#  1234
elt 1 12 is CITY,    ST  12345
elt 1 13 is ANOTHER COMPNAY OF SOMWHERE
elt 1 14 is 123 STREET RD.
elt 1 15 is CITY,    ST  12345
elt 1 16 is 
elt 1 17 is 6/23/2014
elt 1 18 is 6/09/2014
elt 1 19 is $257.98
elt 1 20 is $257.98
elt 1 21 is 1-877-123-1234
elt 1 22 is c66.0
elt 1 23 is 58.6
elt 1 24 is 70.3
elt 1 25 is 28
elt 1 26 is 30
elt 1 27 is 28
elt 1 28 is c142.0
elt 1 29 is 203.0
elt 1 30 is 174.0
elt 1 31 is 257.98
Use of uninitialized value in concatenation (.) or string at c:/perl/c
+onvert2.pl
 line 45.
elt 1 32 is
elt

    [download]
[reply]
[d/l]
[select]

      That particular warning comes about because this statement:

      push @TEMP, $cur_amt, $past_amt;

      [download]

      towards the end of sub formatC2 is called with $past_amt undefined. You can fix this by providing $past_amt with a default value near the start of the subroutine:

      $past_amt = '';

      [download]

      I tracked this down by looking at the contents of @OUTPUT after the first while loop finishes. As fishmonger says, you can use Data::Dumper or Data::Dump for this. I prefer Data::Dump:

      use Data::Dump;

...

while (<$fh>) {
        chomp;  #Removes the control character
        my @LINES = split(/\n/, $_, -1); #Split on line break creating
+ array
        my @RECORDS = formatC2(@LINES);
        $OUTPUT[$seq_num] = [@RECORDS];    
        last;
}
close $fh;

dd \@OUTPUT;
exit(0);

      [download]

      The last ensures that I get only the first iteration of the while loop, and the exit helps me to see what I need to see (in this case, the contents of @OUTPUT) by omitting everything that comes after.

      Hope that helps,

      Athanasius <°(((>< contra mundum Iustus alius egestas vitae, eros Piratica,

[reply]
[d/l]
[select]

        Thank you so much! I realize this may not have been the most difficult thing for your guys to answer and makes me look a bit silly for needing to ask, but I wasn't given a ton of time to work on this particular project and PERL was the only real solution I could find for it.

        I very much like the looks of PERL and think after this project I will be devoting some time to learn it in earnest because it can compliment the work I do already so much.

[reply]

In Section Seekers of Perl Wisdom