1Hash::Case::Preserve(3)User Contributed Perl DocumentatioHnash::Case::Preserve(3)
2
3
4
6 Hash::Case::Preserve - hash with enforced lower cased keys
7
9 Hash::Case::Preserve
10 is a Hash::Case
11 is a Tie::StdHash
12 is a Tie::Hash
13
15 use Hash::Case::Preserve;
16 tie my(%cphash), 'Hash::Case::Preserve';
17 $cphash{StraNGeKeY} = 3;
18 print keys %cphash; # StraNGeKeY
19 print $cphash{strangekey}; # 3
20 print $cphash{STRANGEKEY}; # 3
21
23 Hash::Case::Preserve extends Hash::Case, which lets you play various
24 trics with hash keys. See Hash::Case for the other implementations.
25
27 tie HASH, 'Hash::Case::Preserve', [VALUES,] OPTIONS
28 Define HASH to be case insensitive, but case preserving. The hash
29 is initialized with the VALUES, specified as ref-array or ref-hash.
30
31 OPTIONS is a list of key/value pairs, which specify how the hash
32 must handle preservation. Current options:
33
34 * keep => 'FIRST' ⎪ 'LAST'
35 Which casing is the prefered casing? The FIRST appearance or
36 the LAST. Only stores will affect the casing, deletes will
37 undo the definition. Defaults to LAST, which is slightly
38 faster.
39
41 Hash::Case Hash::Case::Lower Hash::Case::Upper
42
44 Mark Overmeer (mark@overmeer.net). All rights reserved. This program
45 is free software; you can redistribute it and/or modify it under the
46 same terms as Perl itself.
47
49 This code is beta, version 1.003
50
51 Copyright (c) 2002-2003 Mark Overmeer. All rights reserved. This pro‐
52 gram is free software; you can redistribute it and/or modify it under
53 the same terms as Perl itself.
54
55
56
57perl v5.8.8 2003-10-27 Hash::Case::Preserve(3)