Если в своем (дочернем) классе описать конструктор new, то никак не получается вызвать метод param (пронаследовать его или переопределить).

Код

package MyClass; use strict; use CGI qw(-no_xhtml); use vars qw(@ISA $VERSION); @ISA = qw(CGI); $VERSION = 1.01; # конструктор sub new {   my $this = shift;   my $class = ref($this) || $this;   my $self = {};   bless $self, $class;   $self->init(@_);   return $self; } sub init {   my $self = shift;   ...   return $self;   } ... 1;

Сам скрипт

Код

use strict; use lib '.'; use MyClass; my $mc = MyClass->new(); print $mc->header(); print 'Param: '. $mc->param('id'); ...

Как я понимаю, мой конструктор перекрывает конструктор модуля CGI и из-за этого косяк. Если убрать метод new из моего модуля, то все работает нормально. Я уже пытался в своем конструкторе вызвать конструктор CGI и его метод init, но ничего не выходит.

Мой конструктор нужен только для того, чтобы вызвать init().
Вызывать отдельно в скрипте init мне не нравится, для того (в частности) и нужен new.

Нужна помощь.

Переопредели метод param в своём классе:

Код

sub param {     shift;     return CGI::param( shift ); }

korob2001 спасибо.

А-то я уже и так $self->SUPER::param, и так CGI->param пробывал, даже пробывал не переопределять этот метод, а просто наследовать... Вот про вызов как подпрограмму забыл.

Ты случаем не знаешь, почему конструктор дочернего класса, мешает работать с param также, как и с другими методами модуля CGI.

sharq - ты знаешь, попробовал сейчас написать такой код, вроде работает и без переопределения функции param() в твоём классе. Попробуй:
MyClass.pm

Код

#!/usr/bin/perl -w use strict; use lib qw( . ); use MyClass; my $obj = MyClass->new(); sub showForm {     print $obj->start_html();     print $obj->start_form();     print $obj->b("Please enter your name:");     print $obj->br();     print $obj->textfield( -name => 'name' );     print $obj->submit( -value => 'Send' );     print $obj->end_form();     print $obj->end_html(); } sub showMess {     my $name = $obj->param('name');     print $obj->start_html();     print $obj->hello( $name );     print $obj->end_html(); } print $obj->header( -charset => 'Windows-1251' ); if ( defined $obj->param('name') ) {      showMess(); } else {      showForm(); }

korob2001 ты шутишь?
У меня не работает...

А я на шутника похож? Вот код класса:

Код

package MyClass; use strict; use CGI qw(-no_xhtml); use vars qw(@ISA $VERSION); @ISA = qw(CGI); $VERSION = 1.01; sub new {   my $this = shift;   my $class = ref($this) || $this;   my $self = {};   bless $self, $class;   $self->init(@_);   return $self; } sub hello {     my $self = shift;     my $name = shift;     return $self->h1("Hello, $name!"); } 1;

Причём если удалить эту строку:

Код

$self->init(@_);

То работать не будет. Открой CGI.pm и посмотри метод init и param, думаю ты без проблем найдёшь там ответ на свой вопрос.

Это сообщение отредактировал(а) korob2001 - 28.8.2005, 17:43

korob2001 проблема была в том, что я перекрывал метод init модуля CGI своим.
Вот и вместе разобрались, без шуток не обошлось.
Спасибо еще раз.