perl to php code change?
Posted: Sat Jan 22, 2005 1:09 am
i am moving a script from perl to php and i the following array does not work in the new php version. what do i need to change to get it to work?
Code: Select all
@x=($m1,$m2,$m3);
$n=1;
foreach $v(@x){
$var="md".$n;
if($v > 90 ){$$var ="||||||||||||||||||||||";}
elsif($v >80 ){$$var ="||||||||||||||||||||";}
elsif($v > 70 ){$$var ="||||||||||||||||||";}
elsif($v > 60 ){$$var ="||||||||||||||||";}
elsif($v > 50 ){$$var ="||||||||||||||";}
elsif($v > 40 ){$$var ="||||||||||||";}
elsif($v > 30 ){$$var ="||||||||||";}
elsif($v > 20 ){$$var ="||||||";}
elsif($v > 10 ){$$var ="||||";}
elsif($v > 0 ){$$var ="||";}
$n++;
}