=?utf-8?Q?=E7=AD=94=E5=A4=8D=3A_=E2=80=B2e=3F=E2=80=B2=3A_In_module_requir?==?utf-8?Q?e_configuration_file_=5Bfrig=5D?=

[Wang Xingyu 王兴宇 [上海]]

TKS,
Why use Data::Dumper ?

> -----原始邮件-----
> 发件人: Jamie LeTual [mailto:[EMAIL PROTECTED]]
> 发送时间: 2001年6月6日 11:53
> 收件人: Wang Xingyu íõÐËóî [éϺ￡]; [EMAIL PROTECTED]
> 主题: Re: ′e?′: In module require configuration file [frig]
> 
> 
> typos, sorry. Damned cut and paste
> 
> Jamie LeTual wrote:
>  > 
>  > How about this:
>  > 
>  > #======= mymodule.pm =========
>  > package mymodule;
>  > use strict;
>  > 
>  > sub new
>  > {
>  >         my $type = shift;
>  >         my $conf  = shift;
>  > 
>  >         my $self = { conf => require $conf };
>  >         bless $self, $type;
>  > 
>  >         return $self;
>  > }
>  > 
>  > 1;
>  > #======= conf.pl =========
>  > { web_name => 'foo.com' };
>  > 
> -> #======= conf.pm =========
> +> #======= somefile.pl =========
>  > #!/usr/bin/perl
>  > use strict;
>  > use Data::Dumper;
>  > use mymodule;
>  > 
> -> my $m = mymodule->new('conf.pm');
> +> my $m = mymodule->new('conf.pl');
>  > print Dumper($m);
>  > 
> 
> ...
> 
> -- 
> -[sent from home]-----------------------------------------------
> | Jamie LeTual             |Email : [EMAIL PROTECTED]       |
> | Programmeur Errant       |Phone : (514) 523-0940              |
> |                          |PGP   : http://people.hbe.ca/~jamie |
> |__________________________|____________________________________|
>