My-Lib.pl

Perl の Library を作成します。

My-Lib.pl

  1. 良く使うサブルーチン(関数)を Library に登録します。
    My-Lib.pl を作成して C:\DATA\Perl\(Perl のソースプログラムフォルダー)に保存して下さい。
    ライブラリを読みこんだときに「真」の値を返すために最後には「1;」を記述してください。
    # My Library Perl Routines
    
    # PrintHeader
    sub PrintHeader {
      return "Content-type: text/html\n\n";
    }
    
    # HtmlTop
    sub HtmlTop
    {
      local ($title) = @_;
    
      return <<END_OF_TEXT;
    <html>
    <head>
    <title>$title</title>
    </head>
    <body>
    <h1>$title</h1>
    END_OF_TEXT
    }
    
    # HtmlBot
    sub HtmlBot
    {
      return "</body>\n</html>\n";
    }
    
    1;
    
  2. 【実行画面】
    C:\Windows\System32>cd \data\perl
    
    C:\DATA\Perl>perl -
    require 'My-Lib.pl';
    print &PrintHeader;
    print &HtmlTop("Home Page");
    print "<H1>cgi My-Lib.pl を使います</H1>";
    print &HtmlBot;
    __END__
    Content-type: text/html
    
    <html>
    <head>
    <title>Home Page</title>
    </head>
    <body>
    <h1>Home Page</h1>
    <H1>cgi My-Lib.pl を使います</H1></body>
    </html>
    
    C:\DATA\Perl>
    
  3. require 'My-Lib.pl'; で Library を取り込みます。
    My-Lib.pl には、次のサブルーチンが登録されています。
  4. サブルーチンを呼び出して印字します。
    print &PrintHeader;
    print &HtmlTop("Home Page");
    print "<H1>cgi-lib.pl を使います</H1>";
    print &HtmlBot;
    
  5. 吐き出された html タグを実行画面で確認して下さい。
    このように、良く使うサブルーチン(関数)は Library に登録する方法がお勧めです。

前田稔の超初心者のプログラム入門
超初心者のプログラム入門(Perl)