perlquestion
suno
say my current line is <c>$Line [foreach $Line (@Read_Array)]</c>... say my code is as follows:
<code>
LABEL#1 EQU *
$MAC ABORT
LABEL#2 EQU *
$NOT UPDATE,STOP
T#TAB1 EQU *
DC AL4(-1)
</code>
Here, anything followed by "EQU *" is said to be a label/table name. I have to generate two output files 1)Code and 2)Variable files ...here, i want to identify whether the label belongs to code file or variable file. if a label followed by DC statements, then it has to be pushed to variable file. else to code file. so my output files shoul have...
<p>CODE_FILE:
<code>
LABEL#1 EQU *
$MAC ABORT
LABEL#2 EQU *
$NOT UPDATE,STOP
</code>
<p>
VARIABLE_FILE:
<code>
T#TAB1 EQU *
DC AL4(-1)
</code>
<p>please help me in this without using while loop...