in reply to Re^3: script assistance please
in thread script assistance please

COS_SGA_xref.txt 195003 COS 195010 COS 500512 COS 500511 COS 520536 COS 550551 COS 550625 COS cc.txt 01/31/2015 Dynamic List Display + 1 Controlling Area C2 Date 01/01/1900 To 12/31/9999 Cost Center All Cost Centers Cost Ctr Description CoCd Profit Ctr Person Respon +sible Created on 6 PCS<>PCS MAIL CLOSED per B. Middleton 301 6000 G +arrity, T. 05/24/2004 30 COST CENTER 000001 170 112 Mac Crawford 08/3 +0/2004 50 150BS - Balance Sheet C/C-(No RT) 150 112 Mac C +rawford 08/16/2004 60 COST CENTER 000001 160 112 Mac Crawford 08/1 +6/2004 60 COST CENTER 000001 170 112 Mac Crawford 08/1 +6/2004 70 COST CENTER 000001 170 112 Mac Crawford 08/1 +6/2004 71 COST CENTER 000001 170 112 Mac Crawford 08/1 +6/2004 74 COST CENTER 000001 170 112 Mac Crawford 08/1 +6/2004 76 COST CENTER 000001 170 112 Mac Crawford 08/3 +0/2004 77 COST CENTER 000001 170 112 Mac Crawford 08/3 +0/2004 78 COST CENTER 000001 170 112 Mac Crawford 08/3 +0/2004 80 State of NY 351 112 Bob Achettu 02/09/2006

Replies are listed 'Best First'.
Re^5: script assistance please
by marinersk (Priest) on Feb 19, 2015 at 22:58 UTC

    Using this data against my test3.pl, I get the following results:

    D:\PerlMonks>test3.pl DEBUG: ----------------------------- DEBUG: $yrcr.$mocr = [2004.08] DEBUG: $yr.$mo = [2014.12] DEBUG: ----------------------------- DEBUG: $yrcr.$mocr = [2004.08] DEBUG: $yr.$mo = [2014.12] DEBUG: ----------------------------- DEBUG: $yrcr.$mocr = [2004.08] DEBUG: $yr.$mo = [2014.12] DEBUG: ----------------------------- DEBUG: $yrcr.$mocr = [2004.08] DEBUG: $yr.$mo = [2014.12] DEBUG: ----------------------------- DEBUG: $yrcr.$mocr = [2004.08] DEBUG: $yr.$mo = [2014.12] DEBUG: ----------------------------- DEBUG: $yrcr.$mocr = [2004.08] DEBUG: $yr.$mo = [2014.12] DEBUG: ----------------------------- DEBUG: $yrcr.$mocr = [2004.08] DEBUG: $yr.$mo = [2014.12] DEBUG: ----------------------------- DEBUG: $yrcr.$mocr = [2004.08] DEBUG: $yr.$mo = [2014.12] DEBUG: ----------------------------- DEBUG: $yrcr.$mocr = [2004.08] DEBUG: $yr.$mo = [2014.12] DEBUG: ----------------------------- DEBUG: $yrcr.$mocr = [2004.08] DEBUG: $yr.$mo = [2014.12] DEBUG: ----------------------------- DEBUG: $yrcr.$mocr = [2006.02] DEBUG: $yr.$mo = [2014.12] DEBUG: ----------------------------- DEBUG: $yrcr.$mocr = [.] DEBUG: $yr.$mo = [2014.12] D:\PerlMonks>

    I still submit that your failure to close IN before re-opening it is probably still part of your problem.

    Regardless, as you can see from the debugging statements, your if() statement is never true, so the script never has any reason to write any data.

    Good luck!