in reply to Re^4: issue with output of file matching
in thread issue with output of file matching

What output do you get with $pk added and the separator changed to | like this ? ; 
print join '|',$pk,$key,$le,fmt_mdy($date),fmt_mdy($rdate),$company,"\
+n";

[download]
poj

Replies are listed 'Best First'.
Re^6: issue with output of file matching
by rruser (Acolyte) on Jun 11, 2013 at 14:10 UTC

    I get the following: 

    ACFX  28523      L       ABCCO           |ACFX  28523| L |        |05/
+18/13| ABCCO           |
ACFX  28523      L       ABCCO-C         |ACFX  28523| L |05/01/13|   
+     | ABCCO-C         |

    [download]

    Thank You!

[reply]
[d/l]
      In the input_data sub replace the chomp with this regex to remove newline and any trailing spaces on the company name. 
      while ( <FILE1> ) {
    #chomp $_;
    s/\s*$//;

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

        You are a genius poj

        Thank You so much! now on to my next bump in the road

[reply]

In Section Seekers of Perl Wisdom