CGI.pm的两种使用模式的区别

jeanny

调用CGI模块的模式有两种，一种是面相对象方式的，另一种是面向过程的。它们有何优劣呢？

另外，下面的代码哪里有问题呢？

test.pl

#! /usr/local/bin/perl

use CGI;

a;
b;

sub a{
        my $q=new CGI;
        $x=$q->param('upload');
       ......

}

sub b{
        my $q=new CGI;
        $file=$q->upload('upload');
        .....

}

billypeng

面向对象的可以有多个CGI实例，面向过程的只能有一个。这样看起来，面向对象的似乎有些优势，不过对于ＷＥＢ页面来说，一个已经足够。

我用面向对象的，主要原因是，面向对象的都用箭头指向成员，这样代码看起来更加清晰。

[ 本帖最后由 billypeng 于 2006-12-4 17:28 编辑 ]

jeanny

嗯，我也觉得对于web页面来说，一个已经足够了。如果不对，希望各位大侠继续补充。

然后上面那段代码，运行时会出错的：无法打开句柄。我不明白为什么。

billypeng

代码我试了一下，没有问题。

兰花仙子

#! /usr/local/bin/perl

use CGI;

a;
b;

sub a{
        my $q=new CGI;
        $x=$q->param('upload');
       ......

}

sub b{
        my $q=new CGI;
        $file=$q->upload('upload');
        .....

}

Hi,

I would suggest you write it like below:

use strict;
use CGI ();

my $q = CGI->new;
a($q);
b($q);

sub a {
    my $q=shift;
    do something with $q...
}

sub b {
    my $q = shift;
    do something with $q...
}

Using OO method like $q->param() is better than module method which call the param() directly.When you say $q->param(),you access the param() method in CGI.pm by the way of packate to package,the param() is not in your main script's symbol space but in CGI.pm's.But when you say param() directly,you have loaded the param() subroutine into the main script's symbol space essentially,this is distinctly the memory waste.

Consider this case under mod_perl:

Such an apache child it load 3 CGI scripts:

cat a.pl
use CGI;
print param('abc');

cat b.pl
use CGI;
print param('abc');

cat c.pl
use CGI;
print param('abc');

Now this apache child load 4 param() subroutines in its process memory space (3 scripts' + CGI.pm's).


But when you write them like:

cat a.pl
use CGI ();
my $q=CGI->new;
print $q->param('abc');

cat b.pl
use CGI ();
my $q=CGI->new;
print $q->param('abc');

cat c.pl
use CGI ();
my $q=CGI->new;
print $q->param('abc');

You load only one param() subroutine in that apache's memory space,it belong to CGI.pm,and you access it via package's ref,which is called object.

Hope this helps!

Namelessxp

楼上的解释的很详细,CGI在实例化的时候会判断内存中是否有实例存在?

兰花仙子

原帖由 Namelessxp 于 2006-12-4 19:27 发表
楼上的解释的很详细,CGI在实例化的时候会判断内存中是否有实例存在?

进程通过查看%INC里是否有CGI这个KEY，来判断是否已加载CGI模块。