syntax_oo.cgi

来自「嵌入式ＷＥＢ」· CGI 代码 · 共 13 行

#!/usr/bin/perl -wT

use strict;
use CGI;

my $q    = new CGI;
my $name = $q->param( "name" );

print $q->header( "text/html" ),
      $q->start_html( "Welcome" ),
      $q->p( "Hi $name!" ),
      $q->end_html;