Re: [PERL] 'define' eller 'const' i Perl

[Lars G. T. Jorgensen <sslug@sslug>]

Hvad er der galt med 'use constant'?

use constant A => 2;

http://search.cpan.org/author/JHI/perl-5.8.0/lib/constant.pm

Anders Sønderberg Mortensen <sslug@sslug> writes:

> On Tue, 13 May 2003, John Mørck Hansen wrote:
> 
> > Ja okay!
> >
> > Det vil sige at (C kode):
> >
> >    #define MSG_NORMAL 0
> >    const CMSG_EXTEND 1
> >
> > bliver til (perl kode):
> >
> >    my $MSG_NORMAL = 0;
> >    my $CMSG_EXTEND = 1;
> >
> >
> 
> Hvis man skal jonglere med mange konstanter, så har jeg nogengange
> arrangeret dem vha. package, f.eks.
> 
> package MyModule::Const::Type1;
> 
> sub MyConst1 { 1 };
> sub MyConst2 { 2 };
> 
> package MyModule::Const::Type2;
> 
> sub MyConst1 { 3 };
> sub MyConst2 { 4 };
> 
> Disse read-only konstanter (som jo er iklædte funktioner) refererer man så
> til vha.
> 
> MyModule::Const::Type1::MyConst1
> MyModule::Const::Type2::MyConst1
> 
> osv.
> 
> > Hmmm... jeg har s.. ikke helt forstået det fede ved det sprog... udover
> > de mange moduler. Nå, jeg lærer vidre !!!
> >
> 
> Det tog også mig lidt tid, men nu bruger jeg næsten ikke andet end Perl
> :-)
> 
> --Anders
> 
> 

-- 
Mvh|Regards, Lars
Graduate student 
Department of Computer Science, University of Copenhagen
http://www.diku.dk
When's the last time you used duct tape on a duct? -- Larry Wall