Perl – Exports dans les modules
1. Définition
package MonModule;
use strict;
use Exporter;
our @ISA = qw(Exporter);
our @EXPORT = qw(&f1 &f2 $var1); # Exports par defaut
our @EXPORT_OK = qw(&f3 &f4 &f5 &f6 $var2); # Exports individuels
our %EXPORT_TAGS = ( T1 => [qw(&f5 &f6)], # Exports par Tags
T2 => [qw(&f4 &f6)] );
our $var1 = 'var1';
our $var2 = 'var2';
sub f1 { print "f1\n"; }
sub f2 { print "f2\n"; }
sub f3 { print "f3\n"; }
sub f4 { print "f4\n"; }
sub f5 { print "f5\n"; }
sub f6 { print "f6\n"; }
1;
2. Utilisation
#!/usr/bin/perl -w
use strict;
use MonModule qw(:DEFAULT :T2 &f3);
f1(); # tag DEFAULT
f2(); # tag DEFAULT
print $var1."\n"; # tag DEFAULT
f3(); # individuellement
f4(); # tag T2
MonModule::f5(); # pas importée
print $MonModule::var2."\n"; # pas importée
f6(); # tag T2
Autres articles susceptibles de vous intéresser :
Tags: Perl
Posted in System | No Comments »
