Net.Data 語言環境參考手冊

Perl 語言環境

Perl 語言環境可解譯您在 Net.Data 巨集的 FUNCTION 區塊中指定的插入式（inline）Perl script， 或者它也可以處理儲存在伺服器上的個別檔中的外部 Perl script。 EXEC 陳述式可在 FUNCTION 區塊中識別對外部 Perl scripts 的呼叫，例如：

%EXEC{ perl-script-name [optional parameters] %}

Perl 語言環境無法直接傳遞或取回 Net.Data 變數， 必須透過下列方式，Perl script 才可存取它們：

• Net.Data 將輸入參數傳遞至 Perl script，以作為環境變數。 Perl script 可藉由讀取 Perl 組合陣列來取回參數。

• Perl script 藉由寫入具名管線 (其名稱是 Net.Data 在環境變數 DTWPIPE 中傳遞的名稱) 的方式， 將輸出參數傳遞回語言環境。使用 DEFINE 陳述式語法來將資料寫入具名管線：

  name = value
  

  若有多個資料項目，請用換行或空白字元來分隔每個項目。

  如果變數名稱與輸出參數同名，並且使用上方的語法，則新的值會置換現行值。 如果變數名稱沒有與輸出參數相對應，則 Net.Data 會將其忽略。

下列範例顯示 Net.Data 如何從巨集檔傳遞變數。

%FUNCTION(DTW_PERL) today() RETURNS(result) {
  $date = `date`;
  chop $date;
  open(DTW, "> $ENV{DTWPIPE}") || die "Could not open: $!";
  print DTW "result = \"$date\"\n";
%}
%HTML(INPUT) {
  @today()
%}

如果 Perl script 位於名為 today.prl 的外部檔中， 相同的函數就可以下一個範例的方式來撰寫：

%FUNCTION(DTW_PERL) today() RETURNS(result) {
  %EXEC { today.prl %}
%}

Perl 語言環境程式可用 Net.Data 名稱來存取表格參數的值。 表格 T 的欄位標題為 T_N_i， 欄位值為 T_V_i_j。 表格 T 中的列數及直欄數為 T_ROWS 及 T_COLS。

REPORT 與 MESSAGE 區塊可用於任何 FUNCTION 區段中。 這些區塊是由 Net.Data 而不是由語言環境來處理。 不過，Perl 程式可以將本文寫到標準輸出裝置資料流， 並且直接操作輸出 HTML 表格頁面。

授權要訣： 請確定 Net.Data 執行下的使用者 ID 有權可以存取任何被這個語言環境參考的外部執行檔， 包括正確的 Perl 直譯器版本。相關資訊，請參閱 Net.Data 管理及程式設計手冊的架構章節中， 有關指定 Web 伺服器對 Net.Data 檔案存取權的段落。