Junos XML プロトコル Perl クライアント アプリケーションで Perl モジュールをインポートし、定数を宣言する
Junos XML プロトコル Perl クライアント アプリケーションを作成する場合、アプリケーションの開始時に以下のステートメントを含めます。ステートメントは use JUNOS::Device; 、アプリケーションがJunos OSを JUNOS::Device 実行するデバイス上のJunos XMLプロトコルサーバーに接続するために使用するオブジェクトによって提供される機能をインポートします。ステートメントは use strict 、エラー チェックを提供し、使用する前に変数の宣言などの Perl コーディング手法を適用します。
use JUNOS::Device; use strict;
アプリケーションに応じて、他のPerlモジュールをインポートするステートメントを含めます。例えば、Junos XMLプロトコルPerlディストリビューションに含まれるいくつかのサンプルスクリプトは、コマンドラインからの入力を処理する機能を含む、以下の標準Perlモジュールをインポートします。
File::Basenameファイル名を処理するための関数が含まれています。Getopt::Std—コマンドラインからキー付きオプションを読み込むための機能が含まれています。Term::ReadKey—端末モードを制御する機能を備えています。例えば、パスワードなどの入力された文字列のオンスクリーンエコーを抑制します。
アプリケーションで定数を使用する場合は、その値をこの時点で宣言します。例えば、サンプル diagnose_bgp.pl スクリプトには、出力をフォーマットするための定数を宣言する以下のステートメントが含まれています。
use constant OUTPUT_FORMAT => "%-20s%-8s%-8s%-11s%-14s%s\n";
use constant OUTPUT_TITLE =>
"\n=============== BGP PROBLEM SUMMARY ===============\n\n";
use constant OUTPUT_ENDING =>
"\n===================================================\n\n";
load_configuration.pl サンプル スクリプトには、戻りコードを報告するための定数と構成データベースのステータスを宣言する次のステートメントが含まれています。
use constant REPORT_SUCCESS => 1;
use constant REPORT_FAILURE => 0;
use constant STATE_CONNECTED => 1;
use constant STATE_LOCKED => 2;
use constant STATE_CONFIG_LOADED => 3;