perl

1. exp01

• main.pl

use warnings;
use strict;
use lib ".";
use Pk01 #qw(munge frobnicate);  
print Pk011::munge(20,30);
print "\n";
print Pk011::frobnicate(20,30);
print "\n";

Pk01.pm

package Pk011;
use warnings;
use strict;
require Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(munge frobnicate);
sub munge{
    my $a=shift;
    my $b=shift;
    return $a+$b;
};
sub frobnicate{
    my $a=shift;
    my $b=shift;
    return $a*$b;
};

1;

說明：main.pl中註釋部分qw(munge frobnicate); 並沒有效果

• main.pl

use warnings;
use strict;
use lib ".";
use Pk01 qw(munge frobnicate);  
print munge(20,30);
print "\n";
print frobnicate(20,30);
print "\n";

Pk01.pm

package Pk01;
use warnings;
use strict;
require Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(munge frobnicate);
sub munge{
    my $a=shift;
    my $b=shift;
    return $a+$b;
};
sub frobnicate{
    my $a=shift;
    my $b=shift;
    return $a*$b;
};

1;

Undefined subroutine &main::munge called at main.pl line 5.
BEGIN failed–compilation aborted at main.pl line 5.

main.pl中的qw(munge frobnicate); 是否註釋效果不同