Подробнее о сценарии языка Perl MortgageCalcHDML.pl
Подробнее о сценарии языка 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 <HDML Version=3.0 Markable=True TTL=0> <Display Name=Result1> <Action Type=Accept Label=Done Task=GO Dest=../MortgageCalc/MortgageCalc.hdml> <Line>Principal: &dol;$Principal<br> Interest(%): $Interest<br> Years: $Years<br> Payment: &dol;$Payment </Display> </HDML>"; print $Deck;
