SHIFT @ARRAY

[lanny93]

I have this statement($prm = shift @parms) What happens is the shift stops when it gets to a null, blank value or a zero .... It does not shift all the parameters. Why? they values in the array may be ALUMNI 1999 BLANK TCU_REC_DUESMAG Y Y. It will only read up to the blank. What can I pass to recognize the this as a blank, zero or null?

 

[justice41]

i think you will have to post more of the code, but it sounds like the statement is in a boolean test (either a while() or an if()). If that is the case then you should evaluate whether the expression is defined, as in:

while ( defined($prm = shift @parms) ) {

Another alternative is to use a for loop

for $prm (@params) {

jaa

 

[lanny93]

This is the exact code...
It stops at blanks, nulls, or zero

while ($prm = shift @parms) {
$SqlStatement = "INSERT INTO GJBPRUN (GJBPRUN_JOB, GJBPRUN_ONE_UP_NO, GJBPRUN_NUMBER, GJBPRUN_ACTIVITY_DATE, GJBPRUN_VALUE, GJBPRUN_LABEL)";
$SqlStatement = $SqlStatement . "VALUES ('${uproc}',${sctban_oneup_number},'${pnum}',sysdate,'${prm}',$prun_label)";
if ($db->Sql($SqlStatement)){
print "SQL failed.\n";
print "Error: " . $db->Error() . "\n";
$db->Close();
exit;
}

 

[lanny93]

It does not process the loop after the blank, zero, or null value

 

[missbarbell]

Try:

while (@parms) {
$prm = shift @parms;

As previously pointed by justice41, your test is failing because Perl sees the result of the shift as a false value when it encounters blank, null or undef. When in actual fact you only want to stop when the number of items in the array returns a false value, ie there are no items in the array.

Barbie
Leader of Birmingham Perl Mongers

http://birmingham.pm.org