"Moon, John" schreef:

> How can I use a "constant" as a hash key?

#!/usr/bin/perl
  use strict;
  use warnings;
  use Data::Dumper;

  use constant FOO => 'bar';

  my %hash;

  $hash{  FOO   } = 'one';
  $hash{ +FOO   } = 'two';
  $hash{ 'FOO'  } = 'three';
  $hash{ -FOO   } = 'four';
  $hash{  FOO() } = 'five';
  print Dumper( \%hash );

  %hash = (
      FOO   => 1,
     +FOO   => 2,
     'FOO'  => 3,
     -FOO   => 4,
      FOO() => 5,
  );
  print Dumper( \%hash );
__END__


-- 
Affijn, Ruud

"Gewoon is een tijger."

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/


Reply via email to