पर्ल

Question

में निर्यातक के साथ एकाधिक पैकेज मैं पर्ल निर्यातक से परिचित होने की कोशिश कर रहा हूं, जिस मुद्दे का मैं सामना कर रहा हूं वह है जो भी मैं कोशिश करता हूं मैं इसमें एकाधिक पैकेज वाले मॉड्यूल के साथ निर्यातक का उपयोग नहीं कर सकता। मैं नीचे क्या खो रहा हूँ?

MyModule.pm 

use strict; 
use warnings; 

package Multipackage1; 
use Exporter; 
our @ISA = qw(Exporter); 
our @EXPORT = qw(test1); 

sub test1 { 

    print "First package\n"; 

} 

1; 

package Multipackage2; 
use Exporter; 
our @ISA = qw(Exporter); 
our @EXPORT = qw(test2); 

sub test2 { 

    print "Second package\n"; 

} 

1; 

package Multipackage3; 
use Exporter; 
our @ISA = qw(Exporter); 
our @EXPORT_OK = qw(test3); 

sub test3 { 

    print "Third package\n"; 

} 

1; 


MyMainFile.pl 

#!/usr/bin/perl 

use strict; 
use warnings; 
use Multipackage; 
use Multipackage qw(test3); 

print "Calling first package:\n"; 
test1(); 
print "Calling second package:\n"; 
test2(); 
print "Calling third package:\n"; 
test3(); 

मुझे परीक्षा 1 प्राप्त करना मुख्य पैकेज का हिस्सा नहीं है।

अग्रिम धन्यवाद।

Answer 1

userequire कहता है, जो पैकेज का नाम के साथ एक फ़ाइल (और :: के लिए / + .pm के साथ) के लिए लग रहा है।

तो require पैकेज के साथ वास्तविक फ़ाइल और import पैकेज से वास्तविक फ़ाइल।

main.pl

use warnings; 
use strict; 

require MyModule; 

import Multipackage1; 
import Multipackage2; 
import Multipackage3 qw(test3); 

print "Calling first package:\n"; 
test1(); 
print "Calling second package:\n"; 
test2(); 
print "Calling third package:\n"; 
test3(); 

MyModule.pm में, अपने स्वयं के ब्लॉक में प्रत्येक पैकेज जगह, शाब्दिक चर के लिए गुंजाइश प्रदान करने के लिए के बाद से package कि नहीं करता है। चूंकि v5.14 (मुझे लगता है) आप package Pack { ... } के साथ यह अच्छी तरह से कर सकते हैं। उन सभी 1 एस की कोई आवश्यकता नहीं है, और आप ब्लॉक से use Exporter; खींच सकते हैं।

आउटपुट

 
Calling first package: 
First package 
Calling second package: 
Second package 
Calling third package: 
Third package 

अभी तक बेहतर, एक ही उत्पादन के साथ के लिए

use strict; 
use warnings; 

package Multipackage1 { 
    use Exporter qw(import); 
    our @EXPORT = qw(test1); 

    sub test1 { print "First package\n" } 
} 
... 
1; 

use Exporter qw(import); साथ our @ISA = qw(Exporter); बदलें।

ध्यान दें कि एक फ़ाइल में एकाधिक पैकेज डालने की सामान्य रूप से आवश्यकता नहीं होती है और नहीं किया जाता है।