Hello:

I have the following code:

----------------------------------
open (OUTPUT_FILE, ">>/usr/users/rovolis/PREPAID/CC/TCG/PP.$cyear$cmonth$cday.txt")||die "$!";
82 open (OUTPUT_FILE2, ">>/usr/users/rovolis/PREPAID/CC/TCG/PR.$cyear$cmonth$cday.txt")||die "$!";
83 # print OUTPUT_FILE (join ("|", @array), "\n");
84 # print OUTPUT_FILE2 (join ("|", @array), "\n");
85
86 #Read file line by line
87 while ( $input = <INPUT_FILE> )
88 {
89 my @field = "";
90 @row = split ('\$',$input);
91 foreach $current_row (@row)
92 {
93 if ($current_row ne '')
94 {
95 my @output_cdr=();
96 my $row_matched=0;
97
98 #split the line and store the elements into an array
99 @field = split('\,', $current_row);
100 chomp(@field);
101
102 if($field[0]== " ") #Skip empty lines
103 {
104 next;
105 }
106
107 $linesRead++;
108
109 #Rule for wap test case
110 if($field[9] eq 'postpaid')
111 {
112
113 print OUTPUT_FILE (join (",", @field), "\n");
114 }
115 else
116 {
117
118 print OUTPUT_FILE2(join (",", @field), "\n");
---------------------------------------------------------------

When i run this i get the following error:
Undefined subroutine &main::OUTPUT_FILE2 called at unrated_dls.pl line 118, <INPUT_FILE> line 1.

I do not understand since in line 82 i define OUTPUT_FILE2 handler.
Can you please help?

Best Regards,
Christos

---------- Post updated at 06:01 AM ---------- Previous update was at 05:58 AM ----------

I found the problem, please do not bother with this issue.

Thank you!