Perl loop syntax

Hello I have some list building code I would like to convert to a loop, but I have not been successful. I would appreciate any feedback to identify and correct my error(s).

Thanks!

Original code (works fine

Begin Unverified Perl

 if (GETVALUE("Q14_r1_c1") == 1)

{

      ADD("DERList",1);

}

if (GETVALUE("Q14_r2_c1") == 1)

{

      ADD("DERList",2);

}

if (GETVALUE("Q14_r3_c1") == 1)

{

      ADD("DERList",3);

}

if (GETVALUE("Q14_r4_c1") == 1)

{

      ADD("DERList",4);

}

End Unverified

Attempt at a loop (does not work, I have also tried using curly brackets instead of ".")

Begin Unverified Perl

for ($i = 1, $i <=4, $i++)

{

if (GETVALUE("Q14_r.$i._c1") == 1)

{

ADD("DERList",$i);

}

}

End Unverified

3 replies