Подробнее о сценарии языка Perl MortgageCalcHDML.pl

Как было сказано выше, после того как пользователь вводит всю необходимуюдля вычислений информацию в файле MortgageCalc.hdml, приложение пересылает данные сценарию MortgageCalcHDML.pl. Очевидно, что используемые для отображения информации по выплатам элементы аналогичны элементам сценария,описанного в этой главе выше. Исключение составляют только два момента: каксценарий определяет необходимые ему параметры и как он создает новую декуформата HDML для отображения результата работы приложения. Исходный кодсценария MortgageCalcHDML.pl приведен ниже:

#!/usr/bin/perl

read (STDIN, $Buffer, $ENV{'CONTENT_LENGTH'});

@data = split(/&/, $Buffer);

$Principal = $data[0]; $Interest = $data[1]; $Years = $data[2];

$MonthInt = ($Interest / 12) / 100; $Months = $Years * 12;

$Payment = $Principal * ($MonthInt / (1 - (1 + $MonthInt) ** (-$Months))); $Payment = $Payment * 100; $Payment = (int $Payment) / 100;

$Deck = "Content-type: text/x-hdml

&ltHDML Version=3.0 Markable=True TTL=0&gt

&ltDisplay Name=Result1&gt

&ltAction Type=Accept Label=Done Task=GO Dest=../MortgageCalc/MortgageCalc.hdml&gt

&ltLine&gtPrincipal: &dol;$Principal&ltbr&gt Interest(%): $Interest&ltbr&gt Years: $Years&ltbr&gt Payment: &dol;$Payment

&lt/Display&gt

&lt/HDML&gt";

print $Deck;

Содержание раздела