Output using format

[johnperl]

i am working on the script as below, i want an output according to the format. i am trying to put everything in one loop but cannot figure out the way to do so. could anyone please help me with this.

&file_scan($orifile);
 
sub file_scan {
 
    our $reqfile = $_[0];
 
    open(FILE, $reqfile) or die "Cannot open the file: $!\n";
 
    format STDOUT_TOP =
                                 REPORT
-----------------------------------------------------------------------------------
LINE NO.  EXTRACTION          SERIES
-----------------------------------------------------------------------------------
.
write;
 
    format STDOUT =
@<<<<<<@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<@<<<<<<<<<<<<<<<<<$.,    $store,          $total   
-----------------------------------------------------------------------------------
. 
 
    open(FILE, $reqfile) or die "Cannot open the file: $!\n";
    $text=<FILE>;
    while($text = <FILE>){
        #getting all Extractions with numbers
        if ($text =~ /\{EXTRACTION\}\s\d\d/){ 
            $text =~ s/(\{EXTRACTION\}\s\d\d)/$1/g;
            $counter = $counter + 1;
            $store = $1;
        }
        write;
    }
}
 
our $reqfile = $orifile;
open(FILE, $reqfile) or die "Cannot open the file: $!\n";
undef $/;
$text = readline(FILE);
#Getting the lines between INSTRUMENTS and REQTYPE or EXTRACTION
@array = ($text =~ m/^\{INSTRUMENTS\}(.*?)\s+^[\{REQTYPE\}][\{EXTRACTION\}\s\d\d]/gsm);
foreach (@array){
    chomp $_;
    foreach($_=~ m/\n/g) {
        $count++;
    }
    $count = 0;
}
 
        $col_lmt = 256;
        $total = $col_lmt - $count; 
        write;
    }
}
 

Here is the output am getting;

REPORT
-----------------------------------------------------------------------------------
LINE NO. EXTRACTION DATATYPE SERIES
-----------------------------------------------------------------------------------

-----------------------------------------------------------------------------------
16 {EXTRACTION} 00
-----------------------------------------------------------------------------------
38 {EXTRACTION} 00
-----------------------------------------------------------------------------------
46 {EXTRACTION} 00
-----------------------------------------------------------------------------------
57 {EXTRACTION} 00
-----------------------------------------------------------------------------------
75 {EXTRACTION} 00
-----------------------------------------------------------------------------------
86 {EXTRACTION} 00
-----------------------------------------------------------------------------------
90 {EXTRACTION} 00
-----------------------------------------------------------------------------------
113 {EXTRACTION} 01
-----------------------------------------------------------------------------------
138 {EXTRACTION} 02
-----------------------------------------------------------------------------------
181 {EXTRACTION} 02 199 255
-----------------------------------------------------------------------------------
181 {EXTRACTION} 02 199 255
-----------------------------------------------------------------------------------
181 {EXTRACTION} 02 199 255
-----------------------------------------------------------------------------------
181 {EXTRACTION} 02 200 256
-----------------------------------------------------------------------------------
181 {EXTRACTION} 02 196 252
-----------------------------------------------------------------------------------
181 {EXTRACTION} 02 200 256
-----------------------------------------------------------------------------------
181 {EXTRACTION} 02 199 255
-----------------------------------------------------------------------------------
181 {EXTRACTION} 02 200 256
-----------------------------------------------------------------------------------
181 {EXTRACTION} 02 200 256

this is what i want the output format:

REPORT
-----------------------------------------------------------------------------------
LINE NO. EXTRACTION DATATYPE SERIES
-----------------------------------------------------------------------------------

-----------------------------------------------------------------------------------
16 {EXTRACTION} 00 199 255
-----------------------------------------------------------------------------------
38 {EXTRACTION} 00 199 255
-----------------------------------------------------------------------------------
46 {EXTRACTION} 00 200 255
-----------------------------------------------------------------------------------
57 {EXTRACTION} 00 196 200
-----------------------------------------------------------------------------------
75 {EXTRACTION} 00 196 225
-----------------------------------------------------------------------------------
86 {EXTRACTION} 00 198 250
-----------------------------------------------------------------------------------
90 {EXTRACTION} 00 196 250
-----------------------------------------------------------------------------------
113 {EXTRACTION} 01 195 235
-----------------------------------------------------------------------------------
138 {EXTRACTION} 02 195 255
-----------------------------------------------------------------------------------

here is the source file

{LOGON} XBGI8
{FORMAT}
{EXTRACTION} 00
{TRIGGER}
1330
{FORMAT}
DCDEFLT=Y
MERGE=Y
TRAN=N
PADTIME=P
MNEMONIC=Y
NOTAVAIL=#NA
DATASEP=,
DATE=MM-DD-YY
SRVRFILEPREFIX=DSOR
{REQTYPE} T -31D
{DATATYPES}
X(IR)*1.0000000/100
{INSTRUMENTS}
ICN3Y
ICS3Y
ICCH3Y
IC5Y
ICN5Y
ICS5Y
ICC5Y
ICD10
ICNK10
ICSE0
{REQTYPE} T -31D
{DATATYPES}
IR
{INSTRUMENTS}
GSCAD
GSEM3M
GSGPM
GSUD3M
{REQTYPE} T -31D
{DATATYPES}
VM
{INSTRUMENTS}
IADC0
IBP00
ICDC00
CS00
IJYCS00
ISF00
{REQTYPE} T -31D
{DATATYPES}
{INSTRUMENTS}
MSKG
MSEFF
{REQTYPE} T -31D
{DATATYPES}
X/100.00000
{INSTRUMENTS}
HKME
{REQTYPE} T -31D
{DATATYPES}
RY
{INSTRUMENTS}
AAUG
AOEG
ABGGV
ACNGV
ADKGVG
AFNA
AFVG1
AHKG1
AIRGG1
{REQTYPE} T -31D
{DATATYPES}
DU
{INSTRUMENTS}
AVG1
AVG2
AAVG3
AAUG4
AAVG5
ABG1
ABDG2
ABDG3
ABDG
{REQTYPE} T -31D
{DATATYPES}
PI
{INSTRUMENTS}
SGVTLNG
{REQTYPE} T -31D
{DATATYPES}
{INSTRUMENTS}
ICG10
UKRPB
UKLTB
ICA5Y
ICU10
{REQTYPE} T -31D
{DATATYPES}
{INSTRUMENTS}
M3DWOGL
{EXTRACTION} 01
{TRIGGER}
1330
{FORMAT}
DCDEFLT=Y
MERGE=Y
TRAN=N
PADTIME=P
MNEMONIC=Y
NOTAVAIL=#NA
DATASEP=,
DATE=MM-DD-YY
SRVRFILEPREFIX=DSCC
{REQTYPE} T -12M
{DATATYPES}
{INSTRUMENTS}
AUNDXR
CN131
DSCCIQ
BDEUSIQ
SDCNR
SWEC
UKEU
{EXTRACTION} 02
{TRIGGER}
1330
{FORMAT}
DCDEFLT=Y
MERGE=Y
TRAN=N
PADTIME=P
MNEMONIC=Y
NOTAVAIL=#NA
DATASEP=,
DATE=MM-DD-YY
SRVRFILEPREFIX=DSORMON
{REQTYPE} T 01/10/1977
{DATATYPES}
{INSTRUMENTS}
EMOCPP
BGPRO
CNPR
DKPR

[miller]

The best advise that I can give you is to avoid using format entirely for many, many reasons. Instead use Perl6::Form

Also, I attempted to fix the formatting of our code, but it appears that your brackets are not balanced.

- Miller

[johnperl]

Thanks miller. I did avoided the format and it works fine now.