पर्ल

Question

में एक ऑब्जेक्ट का विस्तार करना मुझे नियम ऑब्जेक्ट नामक आधार वस्तु मिली है और एक ऑब्जेक्ट जिसे RuleObjectString कहा जाता है। मेरे पास RuleObjectString में एक नई विधि है जिसे मैं उस कोड का उपयोग करने के लिए अपने कोड में कॉल करना चाहता हूं। लेकिन मुझे त्रुटि मिलती है। 'ऑब्जेक्ट विधि का पता नहीं लगा सकता "तुलना करें" पैकेज "के माध्यम से" नियम "पर ./testobject.pl लाइन 10 पर। लेकिन मैं नियम नियम नहीं बना रहा हूं। मैं एक नियम ऑब्जेक्टस्ट्रिंग बना रहा हूं। मुझसे यहां क्या गलत हो रहा है?

testobject.pl

1 #! /usr/bin/perl 
    2 
    3 use strict; 
    4 
    5 use RuleObjectString; 
    6 
    7 my $s = RuleObjectString->new(); 
    8 $s->value('stuff goes here'); 
    9 
10 if ($s->compare('stuff')){ 
11   print "MATCH!\n"; 
12 }else{ 
13   print "no match :(\n"; 
14 } 

RuleObject.pm

package RuleObject; 

our @ISA = qw/Exporter/; 
our @EXPORT = qw/new/; 

use strict; 

sub new{ 
     my $class = shift; 

     my $self; 
     $self->{value} = undef; 

     bless $self; 
     return $self; 
} 

sub value{ 
     my $self = shift; 
     my $value = shift; 
     if ($value){ 
       $self->{value} = $value; 
     }else{ 
       return $self->{value}; 
     } 
} 

RuleObjectString.pm

package RuleObjectString; 

our @ISA = qw/RuleObject/; 
our @EXPORT = qw/compare/; 

use strict; 

sub compare{ 
     my $self = shift; 
     my $compareto = shift; 

     return $self->value() =~ /$compareto/; 
} 

Answer 1

मुझे लगता है कि jmcneirney सही रास्ते पर है। अपने RuleObject निर्माता में, आप कह

bless $self; 

जो

bless $self, __PACKAGE__; 

या

bless $self, 'RuleObject' 

लेकिन रूप में ही है क्या आप चाहते हैं एक RuleObjectString के रूप में धन्य करने के लिए वस्तु के लिए है। तो क्या आप क्या करना चाहते कहना

bless $self, $class 

अब है

RuleObject->new() 
RuleObjectString->new() 

दोनों एक ही निर्माता फोन होगा, लेकिन वस्तु पहली कॉल द्वारा लौटाए गए एक RuleObject के रूप में धन्य हो जाएगा और दूसरी वस्तु हो जाएगा RuleObjectString के रूप में आशीर्वादित।

Answer 2

वस्तु डंपिंग प्रयास करें और देखें कि यह क्या है।

print Dumper($s) 

यह एक नियम ऑब्जेक्ट होने जा रहा है।

आपको नियमऑब्जेक्टस्ट्रिंग में एक नया() परिभाषित करने की आवश्यकता हो सकती है और इसे सुपर :: नया() कहते हैं।

Answer 3

यह 2012 है, इसलिए आपको फिर से पहिया को फिर से शुरू करने के बजाय उचित ओओपी समाधानों का उपयोग करने पर विचार करना चाहिए।

RuleObject.pm

package RuleObject; 
use Moose; 

has 'value' => (isa => 'Str', is => 'rw', required => 0, default => ''); 

1; 

RuleObjectString.pm

package RuleObjectString; 
use Moose; 

extends 'RuleObject'; 

sub compare { 
    my $self  = shift; 
    my $compareto = shift; 

    return $self->value =~ /$compareto/; 
} 

1; 

सरल:

Moose का उपयोग करके, समाधान कुछ इस तरह (untested) लगेगा! :)