L
luke_airig
UNIX SunOS 5.8, Perl version 5.003
When I invoke the Perl debugger on the following script, the debugger
entry point is line 5 (which inreality is line 75) as follows:
Stack dump during die enabled outside of evals.
Loading DB routines from perl5db.pl patch level 0.94
Emacs support available.
Enter h or `h h' for help.
Unquoted string "null" may clash with future reserved word at junk.perl
line 70.
Useless use of a constant in void context.
main:
junk.perl:5):
5: #print "Loaded list\n";
DB<1> w
2: }
3: }
4: close(LIN); # we are done we have our list array.
5==> #print "Loaded list\n";
6:
7: open(INFILE, $datainputfile) or die "Can not open input
$datainputfile";
8: open(OUTFILE, "> " . $dataoutputfile) or die "Can not open
output $dataoutputfile";
9:
10: # read in real data and put in array!
11:
DB<1>
How can I get the debugger to start at the first executable line and
accurately reflect the source code
line numbers?
Here is the source code:
#!/usr/bin/perl
# variables
$sortlistfile = "";
$datainputfile = "";
$dataoutputfile = "";
$CMD = "";
$hit99 = 0; # boolean to trigger email with 99 notice
$NOTIFY = `cat /opt/apps/empower/cpi/control/CPI.notify`;
chomp($NOTIFY);
print $NOTIFY;
# take in file names as command line arguments. First the mask list,
# then the data input, then the data output.
chomp($ARGV[0]);
if ($ARGV[0] eq "-c") { exit; }
if (!($ARGV[2]))
{
print "Execute with: 'cpisort.perl masklist datainput dataoutput
[prog_to_run]'\n";
exit;
} else {
$sortlistfile = $ARGV[0];
$datainputfile = $ARGV[1];
chomp($ARGV[2]);
$dataoutputfile = $ARGV[2];
chomp($ARGV[3]);
$CMD = $ARGV[3];
}
@LIST = ""; # array holding list of sort patterns in sort order!
@DATA = ""; # array holding data from real input file. Index is
integer!
@MASKHITS = ""; #array holding relationship between masks
# in @LIST and lines in @DATA. @LIST index is index,
# while data is index from @DATA
@CARDLINE = ""; # will eventually contain list of lines split from
# @MASKHITS data to be printed as a group.
$TRUE = 1;
$opline = "";
$opmask = "";
$card_line_ctr = 0;
$file_line_ctr = 0;
$file_max = 0;
$list_line_ctr = 0;
$list_max = 0;
$knownmask = 0;
$ldelim = "~";
open(LIN, $sortlistfile) or die "Can not open $sortlistfile";
# read in list
while ($sline = <LIN>)
{
chomp($sline);
if ($sline)
{
if (!(substr($sline,0,1) =~ /^\#/))
{
$list_line_ctr++;
$list_max++;
$LIST[$list_line_ctr] = $sline;
#print "list " . $list_line_ctr . " " . $LIST[$list_line_ctr] .
"\n";
} else {
null; # is a comment
}
}
}
close(LIN); # we are done we have our list array.
#print "Loaded list\n";
open(INFILE, $datainputfile) or die "Can not open input
$datainputfile";
open(OUTFILE, "> " . $dataoutputfile) or die "Can not open output
$dataoutputfile";
# read in real data and put in array!
while ($fline = <INFILE>)
{
chomp($fline);
if ($fline)
{
$file_line_ctr++;
$file_max++;
$DATA[$file_line_ctr] = $fline;
}
}
# we don't need the INFILE any more we have it in an array
close(INFILE);
#print "Loaded \@DATA array\n";
# Now. Loop through @DATA line by line. Extract the bytes from
# positions 1, 2, 3, 14, 15, 18, 24, 64, 69, 80. Compare the resulting
string
# with ALL the masks in @LIST. If a match is found, use the @LIST index
# number as the index value into @MASKHITS, and take the index from
@DATA,
# the $file_line_ctr, and append it to the existing data value for
@MASKHITS.
# E.g., $MASKHITS[$list_line_ctr] = $MASKHITS[$list_line_ctr] .
# . $file_line_ctr . "~";
#
$file_line_ctr = 1; # must start at 1 or first element will look like
NULL
while ($file_line_ctr <= $file_max)
{
$opline = $DATA[$file_line_ctr];
#print "line " . $opline ."\n";
$opmask = substr($opline,0,3)
. substr($opline,8,1)
. substr($opline,13,3)
. substr($opline,17,1)
. substr($opline,23,1)
. substr($opline,63,1)
. substr($opline,68,1)
. substr($opline,79,1);
$lnum = substr($opline,89,13);
#print "linemask " . $file_line_ctr . " " . $opmask . "\n";
$knownmask = 0;
for ($list_line_ctr = 1; $list_line_ctr <= $list_max;
$list_line_ctr++)
{
#print "compare " . $opmask . "-" . $list_line_ctr . "-" .
$LIST[$list_line_ctr] . "\n";
if ($opmask =~ /$LIST[$list_line_ctr]/)
{
# Our real line mask matches!
$MASKHITS[$list_line_ctr] = $MASKHITS[$list_line_ctr]
. $file_line_ctr . $ldelim;
#print "matched " . $list_line_ctr . "-" .
$MASKHITS[$list_line_ctr] . "\n";
$knownmask = 1;
last;
}
}
# check to make sure we found a matching mask. If not, put the line
in a
# '99' category to be printed last.
if (!$knownmask)
{
$MASKHITS[99] = $MASKHITS[99] . $file_line_ctr . $ldelim;
print "99hit " . $opmask . " for loan " . $lnum . "\n";
$hit99 = 1;
}
$file_line_ctr++;
# remember that @MASKHITS may have entries that are NULL. If, for
example
# there are no trasn cards of type 20 (say "^0311...1") in today's
feed!
}
#print "Loaded \@MASKHITS array\n";
#print "MASKHITS AFTER LOAD " . $MASKHITS[0] . "**" . $MASKHITS[1] .
"\n";
# Now @MASKHITS is loaded. Simply go through each line of it by its
# index (you can use $list_line_ctr since this represents the same
value)
# and then find the LINES in $DATA that correspond to the string of
lines now
# stored as the data to @MASKHITS, eg. "2449010212345". Note the
presence
# of $ldelim at end of line. Should make split easy, but must use
split() into
# array as don't know how many lines there are matching any given @LIST
mask.
#
for ($list_line_ctr = 1; $list_line_ctr <= 99; $list_line_ctr++)
{
#print "MASKHITS " . $MASKHITS[$list_line_ctr] . "\n";
if ($MASKHITS[$list_line_ctr])
{
#We want to make sure this data at this position in $MASKHITS
# is not null!. @CARDLINE must never have null lines!
@CARDLINE = ""; # reinitialize this array
(@CARDLINE) = split(/$ldelim/,$MASKHITS[$list_line_ctr]);
#print "cardline " . $list_line_ctr . " " . $CARDLINE[0] .
$CARDLINE[1] . "\n";
# @CARDLINE should now be an array of line numbers in @DATA that
contain
# the cards we want from this particular line of @MASKHITS...
$TRUE = 1;
$card_line_ctr = 0;
while ($TRUE)
{
#print "cardline inside " . $CARDLINE[$card_line_ctr] . "\n";
if ($CARDLINE[$card_line_ctr])
{
# test for data, don't print otherwise cause we're at end
print OUTFILE $DATA[$CARDLINE[$card_line_ctr]] . "\n";
#print "cardline to output " .
$DATA[$CARDLINE[$card_line_ctr]] . "\n";
$card_line_ctr++;
}else{
# end of card, we can break from this while
$TRUE = 0;
}
}
}
}
# we should be done, so close output and do any reporting for test
# purposes, etc.
close(OUTFILE);
open(EMAIL, "| mailx -s'CPI sort report ' $NOTIFY");
print EMAIL "CPI file sorted\n";
if ($hit99) { print EMAIL "There were UNSORTABLE transactions!\n"; }
else
{ print EMAIL "There were no unsortable transactions.\n"; }
close(EMAIL);
if ($CMD) { exec $CMD; }
exit;
TIA
Luke
When I invoke the Perl debugger on the following script, the debugger
entry point is line 5 (which inreality is line 75) as follows:
Stack dump during die enabled outside of evals.
Loading DB routines from perl5db.pl patch level 0.94
Emacs support available.
Enter h or `h h' for help.
Unquoted string "null" may clash with future reserved word at junk.perl
line 70.
Useless use of a constant in void context.
main:
junk.perl:5):5: #print "Loaded list\n";
DB<1> w
2: }
3: }
4: close(LIN); # we are done we have our list array.
5==> #print "Loaded list\n";
6:
7: open(INFILE, $datainputfile) or die "Can not open input
$datainputfile";
8: open(OUTFILE, "> " . $dataoutputfile) or die "Can not open
output $dataoutputfile";
9:
10: # read in real data and put in array!
11:
DB<1>
How can I get the debugger to start at the first executable line and
accurately reflect the source code
line numbers?
Here is the source code:
#!/usr/bin/perl
# variables
$sortlistfile = "";
$datainputfile = "";
$dataoutputfile = "";
$CMD = "";
$hit99 = 0; # boolean to trigger email with 99 notice
$NOTIFY = `cat /opt/apps/empower/cpi/control/CPI.notify`;
chomp($NOTIFY);
print $NOTIFY;
# take in file names as command line arguments. First the mask list,
# then the data input, then the data output.
chomp($ARGV[0]);
if ($ARGV[0] eq "-c") { exit; }
if (!($ARGV[2]))
{
print "Execute with: 'cpisort.perl masklist datainput dataoutput
[prog_to_run]'\n";
exit;
} else {
$sortlistfile = $ARGV[0];
$datainputfile = $ARGV[1];
chomp($ARGV[2]);
$dataoutputfile = $ARGV[2];
chomp($ARGV[3]);
$CMD = $ARGV[3];
}
@LIST = ""; # array holding list of sort patterns in sort order!
@DATA = ""; # array holding data from real input file. Index is
integer!
@MASKHITS = ""; #array holding relationship between masks
# in @LIST and lines in @DATA. @LIST index is index,
# while data is index from @DATA
@CARDLINE = ""; # will eventually contain list of lines split from
# @MASKHITS data to be printed as a group.
$TRUE = 1;
$opline = "";
$opmask = "";
$card_line_ctr = 0;
$file_line_ctr = 0;
$file_max = 0;
$list_line_ctr = 0;
$list_max = 0;
$knownmask = 0;
$ldelim = "~";
open(LIN, $sortlistfile) or die "Can not open $sortlistfile";
# read in list
while ($sline = <LIN>)
{
chomp($sline);
if ($sline)
{
if (!(substr($sline,0,1) =~ /^\#/))
{
$list_line_ctr++;
$list_max++;
$LIST[$list_line_ctr] = $sline;
#print "list " . $list_line_ctr . " " . $LIST[$list_line_ctr] .
"\n";
} else {
null; # is a comment
}
}
}
close(LIN); # we are done we have our list array.
#print "Loaded list\n";
open(INFILE, $datainputfile) or die "Can not open input
$datainputfile";
open(OUTFILE, "> " . $dataoutputfile) or die "Can not open output
$dataoutputfile";
# read in real data and put in array!
while ($fline = <INFILE>)
{
chomp($fline);
if ($fline)
{
$file_line_ctr++;
$file_max++;
$DATA[$file_line_ctr] = $fline;
}
}
# we don't need the INFILE any more we have it in an array
close(INFILE);
#print "Loaded \@DATA array\n";
# Now. Loop through @DATA line by line. Extract the bytes from
# positions 1, 2, 3, 14, 15, 18, 24, 64, 69, 80. Compare the resulting
string
# with ALL the masks in @LIST. If a match is found, use the @LIST index
# number as the index value into @MASKHITS, and take the index from
@DATA,
# the $file_line_ctr, and append it to the existing data value for
@MASKHITS.
# E.g., $MASKHITS[$list_line_ctr] = $MASKHITS[$list_line_ctr] .
# . $file_line_ctr . "~";
#
$file_line_ctr = 1; # must start at 1 or first element will look like
NULL
while ($file_line_ctr <= $file_max)
{
$opline = $DATA[$file_line_ctr];
#print "line " . $opline ."\n";
$opmask = substr($opline,0,3)
. substr($opline,8,1)
. substr($opline,13,3)
. substr($opline,17,1)
. substr($opline,23,1)
. substr($opline,63,1)
. substr($opline,68,1)
. substr($opline,79,1);
$lnum = substr($opline,89,13);
#print "linemask " . $file_line_ctr . " " . $opmask . "\n";
$knownmask = 0;
for ($list_line_ctr = 1; $list_line_ctr <= $list_max;
$list_line_ctr++)
{
#print "compare " . $opmask . "-" . $list_line_ctr . "-" .
$LIST[$list_line_ctr] . "\n";
if ($opmask =~ /$LIST[$list_line_ctr]/)
{
# Our real line mask matches!
$MASKHITS[$list_line_ctr] = $MASKHITS[$list_line_ctr]
. $file_line_ctr . $ldelim;
#print "matched " . $list_line_ctr . "-" .
$MASKHITS[$list_line_ctr] . "\n";
$knownmask = 1;
last;
}
}
# check to make sure we found a matching mask. If not, put the line
in a
# '99' category to be printed last.
if (!$knownmask)
{
$MASKHITS[99] = $MASKHITS[99] . $file_line_ctr . $ldelim;
print "99hit " . $opmask . " for loan " . $lnum . "\n";
$hit99 = 1;
}
$file_line_ctr++;
# remember that @MASKHITS may have entries that are NULL. If, for
example
# there are no trasn cards of type 20 (say "^0311...1") in today's
feed!
}
#print "Loaded \@MASKHITS array\n";
#print "MASKHITS AFTER LOAD " . $MASKHITS[0] . "**" . $MASKHITS[1] .
"\n";
# Now @MASKHITS is loaded. Simply go through each line of it by its
# index (you can use $list_line_ctr since this represents the same
value)
# and then find the LINES in $DATA that correspond to the string of
lines now
# stored as the data to @MASKHITS, eg. "2449010212345". Note the
presence
# of $ldelim at end of line. Should make split easy, but must use
split() into
# array as don't know how many lines there are matching any given @LIST
mask.
#
for ($list_line_ctr = 1; $list_line_ctr <= 99; $list_line_ctr++)
{
#print "MASKHITS " . $MASKHITS[$list_line_ctr] . "\n";
if ($MASKHITS[$list_line_ctr])
{
#We want to make sure this data at this position in $MASKHITS
# is not null!. @CARDLINE must never have null lines!
@CARDLINE = ""; # reinitialize this array
(@CARDLINE) = split(/$ldelim/,$MASKHITS[$list_line_ctr]);
#print "cardline " . $list_line_ctr . " " . $CARDLINE[0] .
$CARDLINE[1] . "\n";
# @CARDLINE should now be an array of line numbers in @DATA that
contain
# the cards we want from this particular line of @MASKHITS...
$TRUE = 1;
$card_line_ctr = 0;
while ($TRUE)
{
#print "cardline inside " . $CARDLINE[$card_line_ctr] . "\n";
if ($CARDLINE[$card_line_ctr])
{
# test for data, don't print otherwise cause we're at end
print OUTFILE $DATA[$CARDLINE[$card_line_ctr]] . "\n";
#print "cardline to output " .
$DATA[$CARDLINE[$card_line_ctr]] . "\n";
$card_line_ctr++;
}else{
# end of card, we can break from this while
$TRUE = 0;
}
}
}
}
# we should be done, so close output and do any reporting for test
# purposes, etc.
close(OUTFILE);
open(EMAIL, "| mailx -s'CPI sort report ' $NOTIFY");
print EMAIL "CPI file sorted\n";
if ($hit99) { print EMAIL "There were UNSORTABLE transactions!\n"; }
else
{ print EMAIL "There were no unsortable transactions.\n"; }
close(EMAIL);
if ($CMD) { exec $CMD; }
exit;
TIA
Luke