hello everyone,
i am creating 2 hashes from 2 different files, then looking for the value of one in the value of the other to make a new file. for example:
file1: DENV => Denver
file2: H224-0A-12 => DENVER
if Denver is found in DENVER (case insensitive), a new hash now contains H224-0A-12... (0 Replies)
Some one plz help me how to sort an array of hashes .....
for e.g i have an array as
@AoH = (
{
ques => 10,
marks => 32,
},
{
ques => 32,
marks => 22,
},
{
ques => 2,
marks => 41,
},
);
now i want to sort this array with increasing value of "ques" ..... plz... (3 Replies)
hi guys im running into a problem here this is my script
#!/usr/bin/perl
use CGI qw(:standard);
$header = "MIME-Version: 1.0\n";
$header .= "Content-type: text/html\n";
$header .= "\n";
#get the point parameter from nhl.html
$Team = param("points");
print "$header";
open(INFILE,... (1 Reply)
Hi,
I am stuck at this problem where part of my code would store all the websites that has been accessed by a user. I pull these values from a log file. I want to create a HASH of HASHES ? (Please correct me if this is not the right approach) where I would store all the hits to website with... (4 Replies)
hi there, I have some database output that looks like this
SELECT nic_name,nic_duplex,nic_speed,nic_ip FROM network_table WHERE hostname = "server1"
result is this (ive delimited with a pipe for ease of reading)
bge0|full|1000|10.32.100.1
bge1|full|1000|11.12.101.7 ... (1 Reply)
Hello everyone,
I was wondering if someone can help me with this problem:
@LoHashes = ({"a"=>1,"b"=>2,"c"=>3,"d"=>4},
{"a"=>5,"b"=>6,"c"=>7});
@LoHashes = create_list(\&LoHashes);
sub create_list
{
foreach $hash(@LoHashes)
{
foreach (sort keys... (2 Replies)
Hi folks,
I have a structure as mentioned below in a configuration file.
<Component>
Comp1:
{
item1:data,someUniqueAttribute;
item2:data,someUniqueAttribute,
}
Comp2:
{
item3:data,someUniqueAttribute;
... (1 Reply)
Hi there, I am trying to dereference my hash of hashes but post dereferencing, it seems to lose its structure I am using Data::dumper to help me anaylise.
This is the code im using to build the HoH, (data comes from a file). I have also performed a Dumper on the data structure before and after... (1 Reply)
I have found this excellent site: NSRL Downloads
(sorry if it was already mentioned)
there are Solaris and Linux files there too.
its all in a text file, over 11Gb large. (0 Replies)
Discussion started by: orange47
0 Replies
LEARN ABOUT OSX
tie::refhash
Tie::RefHash(3pm) Perl Programmers Reference Guide Tie::RefHash(3pm)NAME
Tie::RefHash - use references as hash keys
SYNOPSIS
require 5.004;
use Tie::RefHash;
tie HASHVARIABLE, 'Tie::RefHash', LIST;
tie HASHVARIABLE, 'Tie::RefHash::Nestable', LIST;
untie HASHVARIABLE;
DESCRIPTION
This module provides the ability to use references as hash keys if you first "tie" the hash variable to this module. Normally, only the
keys of the tied hash itself are preserved as references; to use references as keys in hashes-of-hashes, use Tie::RefHash::Nestable,
included as part of Tie::RefHash.
It is implemented using the standard perl TIEHASH interface. Please see the "tie" entry in perlfunc(1) and perltie(1) for more
information.
The Nestable version works by looking for hash references being stored and converting them to tied hashes so that they too can have
references as keys. This will happen without warning whenever you store a reference to one of your own hashes in the tied hash.
EXAMPLE
use Tie::RefHash;
tie %h, 'Tie::RefHash';
$a = [];
$b = {};
$c = *main;
$d = "gunk";
$e = sub { 'foo' };
%h = ($a => 1, $b => 2, $c => 3, $d => 4, $e => 5);
$a->[0] = 'foo';
$b->{foo} = 'bar';
for (keys %h) {
print ref($_), "
";
}
tie %h, 'Tie::RefHash::Nestable';
$h{$a}->{$b} = 1;
for (keys %h, keys %{$h{$a}}) {
print ref($_), "
";
}
THREAD SUPPORT
Tie::RefHash fully supports threading using the "CLONE" method.
STORABLE SUPPORT
Storable hooks are provided for semantically correct serialization and cloning of tied refhashes.
RELIC SUPPORT
This version of Tie::RefHash seems to no longer work with 5.004. This has not been throughly investigated. Patches welcome ;-)
LICENSE
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself
MAINTAINER
Yuval Kogman <nothingmuch@woobling.org>
AUTHOR
Gurusamy Sarathy gsar@activestate.com
'Nestable' by Ed Avis ed@membled.com
SEE ALSO perl(1), perlfunc(1), perltie(1)perl v5.16.2 2012-10-11 Tie::RefHash(3pm)