Main Code
Main Code
- Notice if {EXPRESSION} Syntax Used
- a2p generated a subroutine (&Pick) to handle output
#!/usr/local/bin/perl
$[ = 1; # set array base to 1
$, = ' '; # set output field separator
$\ = "\n"; # set output record separator
while (<>) {
chop; # strip record separator
if (/^101/) { &process_span('cbt', 'CBOT'); }
if (/^102/) { &process_span('cme', 'CME'); }
if (/^103/) { &process_span('cbt', 'MIDAM'); }
if (/^106/) { &process_span('csc', 'CSC'); }
if (/^107/) { &process_span('cmx', 'COMEX'); }
if (/^112/) { &process_span('nym', 'NYMEX'); }
if (/^113/) { &process_span('nyc', 'NYCE'); }
if (/^116/) { &process_span('smx', 'SIMEX'); }
if (/^1I /) { &process_span('ipe', 'IPE'); }
if (/^1L /) { &process_span('lif', 'LIFFE'); }
if (/^1M /) { &process_span('lme', 'LME'); }
if (/^1O /) { &process_span('lifee', 'LIFFEEO'); }
if (/^1X /) { &process_span('lce', 'LCE'); }
if (/^1SY/) { &process_span('sfe', 'SFE'); }
# Will process when flag is turned on!
if ($process_flag) {
&Pick('>>', $spanfile) && (print $fh $_);
}
}