Hi,
I have an hashes of hash, where hash is dynamic, it can be n number of hash. i need to compare data_count values of all .
my %result (
$abc => {
'data_count' => '10',
'ID' => 'ABC122',
}
$def => {
'data_count' => '20',
'ID' => 'defASe',
... (1 Reply)
Can Someone explain me why even using Tie::IxHash I can not get the output data in the same order that it was inserted? See code below.
#!/usr/bin/perl
use warnings;
use Tie::IxHash;
use strict;
tie (my %programs, "Tie::IxHash");
while (my $line = <DATA>) {
chomp $line;
my(... (1 Reply)
I have a script with dynamic hash of hashes , and I want to print the entire hash (with all other hashes).
Itried to do it recursively by checking if the current key is a hash and if yes call the current function again with refference to the sub hash.
Most of the printing seems to be OK but in... (1 Reply)
Hash::Case::Preserve(3pm) User Contributed Perl Documentation Hash::Case::Preserve(3pm)NAME
Hash::Case::Preserve - hash with enforced lower cased keys
INHERITANCE
Hash::Case::Preserve
is a Hash::Case
is a Tie::StdHash
SYNOPSIS
use Hash::Case::Preserve;
tie my(%cphash), 'Hash::Case::Preserve';
$cphash{StraNGeKeY} = 3;
print keys %cphash; # StraNGeKeY
print $cphash{strangekey}; # 3
print $cphash{STRANGEKEY}; # 3
DESCRIPTION
Hash::Case::Preserve extends Hash::Case, which lets you play various trics with hash keys. This extension implements a fake hash which is
case-insentive. The keys are administered in the casing as they were used: case-insensitive but case-preserving.
METHODS
Constructors
$obj->addHashData(HASH)
See "Constructors" in Hash::Case
$obj->addPairs(PAIRS)
See "Constructors" in Hash::Case
$obj->setHash(HASH)
See "Constructors" in Hash::Case
tie(HASH, 'Hash::Case::Preserve', [VALUES,] OPTIONS)
Define HASH to be case insensitive, but case preserving. The hash is initialized with the VALUES, specified as ref-array (passing a
list of key-value pairs) or ref-hash.
OPTIONS is a list of key/value pairs, which specify how the hash must handle preservation. Current options:
-Option--Default
keep 'LAST'
keep => 'FIRST' | 'LAST'
Which casing is the preferred casing? The FIRST appearance or the LAST. Only stores will affect the casing, deletes will undo the
definition. Defaults to LAST, which is slightly faster.
SEE ALSO
This module is part of Hash-Case distribution version 1.02, built on March 09, 2012. Website: http://perl.overmeer.net/hash-case/
LICENSE
Copyrights 2002-2003,2007-2012 by Mark Overmeer. For other contributors see ChangeLog.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See
http://www.perl.com/perl/misc/Artistic.html
perl v5.14.2 2012-03-09 Hash::Case::Preserve(3pm)