पर्ल में, मैं एक ही .pm फ़ाइल में एकाधिक पैकेज कैसे डालूं?

Question

मुझे पूरा यकीन है कि मैंने कहीं कहीं पढ़ा है कि यह संभव है, लेकिन कुछ गठजोड़ हैं जिन्हें आपको अवगत होना चाहिए। दुर्भाग्य से, मुझे ट्यूटोरियल या पेज नहीं मिला है जो वर्णन करता है कि आपको क्या करना है। मैंने Perl tutorials को देखा, और मुझे वह नहीं मिला जो मुझे याद है। क्या कोई मुझे किसी पृष्ठ या दस्तावेज़ पर इंगित कर सकता है जो वर्णन करता है कि एकाधिक पैकेज को एकल .pm फ़ाइल में कैसे रखा जाए?

Answer 1

आप बस एक और पैकेज बयान के साथ नए पैकेज से शुरू:

package PackageOne; 

# ...... code 

package PackageTwo; 

# .... more code 

Problems with this approach (archived on 2009)

Answer 2

यह करने के लिए कैसे: बस कई package निर्देश जारी करते हैं।

गॉटचास मैं सोच सकता हूं: my -variables पैकेज-स्थानीय नहीं हैं, इसलिए वे वैसे भी साझा किए जाते हैं। किसी भी मुद्दे को जारी करने से पहले, आप डिफ़ॉल्ट रूप से पैकेज main पैकेज में हैं।

Answer 3

इस तरह मैं सामान्य रूप से यह कार्य करें:

use strict; 
use warnings; 
use 5.010; 

{ 
    package A; 
    sub new { my $class = shift; bless \$class => $class } 
    sub hello { say 'hello from A' } 
} 

{ 
    package B; 
    use Data::Dumper; 
    sub new { my $class = shift; bless { @_ } => $class } 
    sub hello { say 'Hello from B + ' . shift->dump  } 
    sub dump { Dumper $_[0] } 
} 

$_->hello for A->new, B->new(foo => 'bar'); 

Answer 4

यह वही मेरे लिए काम किया है:

#!/usr/bin/perl 

use strict; 
use warnings; 

{ 
    package A; 
    use Exporter; 
    our @ISA = qw(Exporter); 
    our @EXPORT_OK = qw(a_sub); 
    our @EXPORT = qw(a_sub); 

    sub a_sub { 
     # your code ... 
    } 
} 
{ 
    package B; 
    use Exporter; 
    our @ISA = qw(Exporter); 
    our @EXPORT_OK = qw(b_sub); 
    our @EXPORT = qw(b_sub); 

    sub b_sub { 
     # your code ... 
    } 
} 

# Main code starts here ############## 

use boolean; 
use Data::Dumper; 

import A qw(a_sub); 
import B qw(b_sub); 

a_sub(); 
b_sub(); 

महत्वपूर्ण मुद्दा यह है कि बजाय "उपयोग" का उपयोग करने के लिए, आप इसे "के लिए बदल रहा है आयात करें "(इस तरह यह नहीं जाएगा और फ़ाइल को देखने का प्रयास करें)।