PHP and Perl are close but.....

[nelsons]

Am trying to re-work a calculator that was perl, into a php one.

The thing that I find odd is the @ in front of the vars. If what I have read is correct, this is a perl array.

Trying to figure how to re-write this in php.

$total_lump=$final_expenses + $outstanding_debts + $mortgage + $college_funding;

$yearly=$monthly * 12;

$yearnum=1;

@inflation_table = ($yearly);

$temp2spouse = $yearly;

$inflate_rate=(1 + $inflation_est);

while ($how_many_years >= $yearnum) {

if ($yearnum > 1) {
$temp2spouse= int (($temp2spouse * $inflate_rate) + .524);}
if ($yearnum > 1) {push (@inflation_table, $temp2spouse);}

$yearnum++;
}

foreach $inflation_table (@inflation_table) {
    $total_cash=$total_cash + $inflation_table;
    $items++;
}

Anyone have experience in converting perl into php?

[Weedpacket]

Very close. PHP uses the same decoration for all variables, and foreach's syntax is different.

$total_lump=$final_expenses + $outstanding_debts + $mortgage + $college_funding;

$yearly=$monthly * 12;

$yearnum=1;

$inflation_table = array($yearly);

$temp2spouse = $yearly;

$inflate_rate=(1 + $inflation_est);

while ($how_many_years >= $yearnum) {

if ($yearnum > 1) {
$temp2spouse= intval (($temp2spouse * $inflate_rate) + .524);}
if ($yearnum > 1) {array_push ($inflation_table, $temp2spouse);}

$yearnum++;
}

foreach ($inflation_table as $inflation) {
    $total_cash=$total_cash + $inflation;
    $items++;
}

[planetsim]

Just need to probably change the foreach from

foreach $inflation_table (@inflation_table) { 
    $total_cash=$total_cash + $inflation_table; 
    $items++; 
}

to

foreach ($inflation_table as $key => $value) {
  $total_cash=$total_cash + $value; 
   $items++; 

}

But that looks wrong from how i see it as PHP foreach requires an array while i think Perl's foreach is different. May need to check that up.

[nelsons]

Thanks guys, this is a great learning tool. Its beginning to make sense.

I still have this piece, and am trying to better understand the array push function. Have tried this several ways, and its not quite there yet.

foreach $inflation_table (@inflation_table) {
    $npv_count=1;
    while ($npv_count <= $npvitems) {
        $inflation_table=($inflation_table / (1 + $estimated_aftertax_yield));
        $npv_count++;
    }

$tempNPV=int($inflation_table + .524 );

$NPV=$NPV + $tempNPV;
$npvitems++;
}