Select Code to Download

/* mytest.h */

enum { a = 10, b, c, d, efg, hijk }; /* unnamed */
enum Temperature { temp_low, temp_medium, temp_high };
enum Othertest { frank, john, kurt, jason };

#!/usr/bin/env perl
 
...
print $@ if $@;

say "'kurt' is $C_ENUMS{kurt}";

'efg' is 14
'kurt' is 2
Modification of a read-only value attempted at mytest.pl line 22.
'kurt' is 2

use strict;
use warnings;
...

say "efg  => ", efg;
say "kurt => ", kurt;

efg  => 14
kurt => 2