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

[Peter Makholm <sslug@sslug>]

John Mørck Hansen <sslug@sslug> writes:

> 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;

Kan du forklare det ufede i dette? (re din kommentar)

Alternativt:

sub MSG_NORMAL () { 0 }
sub CMSG_EXTEND () { 1 }

Hvis det er dollartegene du føler dig generet af. 

Med -P flaget kan man også få perl til at smide scriptet gennem cpp
hvis man gerne vil have cpp-defines. Læs perlrun-manualsiden, der er
nogle fæller. Men i vore dage ville jeg mene at cpp er en dårlig
undskyldning for ikke at lave et ordentligt modulært sprog.

-- 
 Peter Makholm     |       Why does the entertainment industry wants us to
 sslug@sslug |      believe that a society base on full surveillance
 http://hacking.dk |                                               is bad?
                   |                       Do they have something to hide?