Can’t locate Email/Address.pm in @INC (@INC contains: C:/strawberry/perl/lib C:/
strawberry/perl/site/lib C:\strawberry\perl\vendor\lib .) at C:/strawberry/perl/
lib/Regexp/Common/Email/Address.pm line 9.
BEGIN Failed–compilation aborted at C:/strawberry/perl/lib/Regexp/Common/Email/
Address.pm line 9.
Compilation Failed in require at (eval 1) line 1.
BEGIN Failed–compilation aborted at C:\examples\script2.pl line 4.

我不明白,因为我真的有这个根

C:/strawberry/perl/lib/Regexp/Common/Email/Address.pm

有人在我尝试编写我的脚本时知道为什么会出现此错误消息吗？

非常感谢

我试着用这句话：

use lib ‘C:/strawberry/perl/lib/Regexp/Common/Email’;

并将这两句话作为评论：

use Regexp::Common qw[Email::Address];
  use Email::Address

然后我收到这个错误

Global symbol "%RE" requires explicit package name at C:\examples\script2.pl lin
e 10.Execution of C:\examples\script2.pl aborted due to compilation errors.

我看过perldiag

Global symbol “%s” requires explicit package name
(F) You’ve said “use strict” or “use strict vars”,which indicates that all variables must either be lexically scoped (using “my” or “state”),declared beforehand using “our”,or explicitly qualified to say which package the global variable is in (using “::”).

但我发现它对我来说有点理论上我明白你必须在代码的乞讨时使用句子’use’来使用包.

顺便说一下这是我的代码：

use Regexp::Common qw[Email::Address];
  use Email::Address;
  while (<>) {
  my (@found) = /($RE{Email}{Address})/g;
  my (@addrs) = map $_->address,Email::Address->parse("@found");
  print "X-Addresses: ",join(",",@addrs),"\n";
  }

我收到此代码from a question I asked before.