求助高手关于use lib和require的问题

zlhzyj

File::Copy::Recursive模块必须后面qw(fcopy rcopy dircopy fmove rmove dirmove);才能用一些不是默认的函数，现在我想把该模块放到自己定义的目录下(../Perl_module/File/Copy/Recursive.pm)
请看：
my $pm_path;
BEGIN{
$pm_path = $ENV{'PWD'};
}
use lib "$pm_path/Perl_module/File/Copy";
require "Recursive.pm" ;
但是运行的时候提示fcopy，dircopy等函数是未定义的，应该是没有导入进去，
（如果是之前use File::Copy::Recursive qw(fcopy rcopy dircopy fmove rmove dirmove);的话可以正常运行）
请问这种情况下应该怎样导入fcopy，dircopy等函数呢，请各位高手帮帮忙，比较急~！

murdercool

1. require "Recursive.pm" ;

复制代码

->

1. use Recursive qw(fcopy rcopy dircopy fmove rmove dirmove)

复制代码

zlhzyj

请问是否可以完整写个代码说明一下，恕我愚钝，有点看不太明白，非常感谢！！回复 2# murdercool

zhlong8

require 是在运行时执行的，而编译时它还没执行，函数还没导入呢，自然找不到对应的函数。

zlhzyj

请问那我应该如何用到里面的方法呢？非常感谢啊！

zhlong8 发表于 2014-11-07 11:50
require 是在运行时执行的，而编译时它还没执行，函数还没导入呢，自然找不到对应的函数。

zhlong8

use lib "$pm_path/Perl_module"; #不应该写 File/Copy，模块的路径和 package 声明是对应的

# 这两个等价

1. 
   
2. use File::Copy::Recursive qw(function names);
   
3. 
   
4. BEGIN {
   
5.         require File::Copy::Recursive;
   
6.         File::Copy::Recursive->import(qw(function names));
   
7. }

复制代码

zlhzyj

回复 6# zhlong8
非常感谢版主大神的解答，已经解决，谢谢！