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

[Anders Sønderberg Mortensen <sslug@sslug>]

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