Исходное сообщение
"как наследовать конструктор perl" Отправлено angra, 09-Янв-09 14:40
Вы не знаете английский или таки лень прочесть man perltooc? Ну ладно, небольшой демонстрационный пример для понимания простых методов создания и наследования объектов: #!/usr/bin/perl -w use strict; package Parent; sub new {   print "Parent::new @_\n";   my $pkg=shift;   my $data=shift;   my $self={parent_data=>$data};   bless $self,$pkg; } sub echo {   my $self=shift;   print "$self->{parent_data}\n"; } package Child; use base 'Parent'; sub new {   print "Child::new @_\n";   my $pkg=shift;   my ($data_p, $data_c)=@_;   my $self=$pkg->SUPER::new($data_p);   $self->{child_data}=$data_c;   return $self; } sub echo {   my $self=shift;   print "$self->{child_data}\t";   $self->SUPER::echo; } package Main; my $a=Parent->new("a_p"); my $b=Child->new("b_p","b_c"); use Data::Dumper; print Dumper($a,$b); $a->echo; $b->echo; Обратите внимание, что первый параметр конструктора это срока с именем класса, а вот у методов класса первым параметром будет ссылка на объект(экземпляр класса).