04-08-2009
Hashes are unordered lists. The order you see the key-value pairs in the code does not apply to the actual hash. You could just print the hash instead of converting the hash to an array just to print it. You will still have the same problem with the order though.
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
I have a little problem. To keep a configuration simple, I've exceeded my perl knowledge. :-) I've worked with multi-dimentional arrays before, but this one has me beat:
@info = (
{
'defval' => 'abc'
'stats' = (
{ 'name' => 'a', },
{ 'name' =>... (1 Reply)
Discussion started by: jsmoriss
1 Replies
2. Shell Programming and Scripting
Hi,i have a code fragment below.
%tag = (); #line 1
$tag{'info'} = $datastring; #line 2
$resp = $ua->request( #$ua is a user agent
POST 'http://10.2.3.0' ,
Content_Type => application/x-www-form-urlencoded
Content => #line 3 I am not sure of what the code... (3 Replies)
Discussion started by: new2ss
3 Replies
3. Shell Programming and Scripting
Hi all experts,
May I know how to read a csv file and read the content in a hash in PERL?
Currently, I hard-coded and defined it in my code. I wanna know how to make up the %mymap hash thru reading the cfg.txt
====
csv file(cfg.txt):
888,444
999,333
===
#!/usr/bin/perl
my... (1 Reply)
Discussion started by: kinmak
1 Replies
4. Shell Programming and Scripting
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)
Discussion started by: Alalush
1 Replies
5. Shell Programming and Scripting
Hi ,
I have an input.txt file that i read
node: id= c1, class=nb, cx=100, cy=100, r=10
node: id=c2, class=b, cx=150, cy=130, r=10
node: id=c3, class=nb, cx=50, cy=80, r=10
node: id=c4, class=nb, cx=120, cy=200, r=10
i split over , and = to create a global array and then passed it to a... (6 Replies)
Discussion started by: rsanjay
6 Replies
6. UNIX for Dummies Questions & Answers
Hello dear unix command line friends !
I'm looking for a simple combinaison of ls & awk (maybe grep) to print:
list of folders of a directory
|_ ordered by size
like what I have with
$ du -sk ./* | sort -rn
printing that result:
8651520 ./New Virtual Machine_1
8389120 ./Redhat
... (1 Reply)
Discussion started by: holister
1 Replies
7. Web Development
Hi,
A piece of script from Perl-cookbook I do not understand, and post here for explanation.
The purpose is to find the element in either array (union), and in both array (intersection). Thank you in advance.
@a=qw(1 3 5 6 7 8);
@b=qw(2 3 5 7 9);
foreach $e (@a, @b) {$union{$e}++ &&... (3 Replies)
Discussion started by: yifangt
3 Replies
8. Shell Programming and Scripting
How do I get the unique hashes from an array of hashes?
@ar1 = ( {a=>1,b=>2}, {c=>3,d=>4},{a=>1,b=>2});I need :
@ar2 = ( {a=>1,b=>2}, {c=>3,d=>4});Thanks. (2 Replies)
Discussion started by: shellwell
2 Replies
9. Programming
Hi All
I have been using a curl code to output an hash that looks like this
$VAR1 = {
'data'... (5 Replies)
Discussion started by: ab52
5 Replies
10. Shell Programming and Scripting
Hi, I have a hash of hash where it has
name, activities and count
i have data like this -
$result->{$name}->{$activities} = $value;
content of that are -
name - robert tom cat peter
activities - running, eating, sleeping , drinking, work
i need to print output as below
... (3 Replies)
Discussion started by: asak
3 Replies
LEARN ABOUT DEBIAN
mousex::nativetraits::hashref
MouseX::NativeTraits::HashRef(3pm) User Contributed Perl Documentation MouseX::NativeTraits::HashRef(3pm)
NAME
MouseX::NativeTraits::HashRef - Helper trait for HashRef attributes
SYNOPSIS
package Stuff;
use Mouse;
has 'options' => (
traits => ['Hash'],
is => 'ro',
isa => 'HashRef[Str]',
default => sub { {} },
handles => {
set_option => 'set',
get_option => 'get',
has_no_options => 'is_empty',
num_options => 'count',
delete_option => 'delete',
pairs => 'kv',
},
);
DESCRIPTION
This module provides a Hash attribute which provides a number of hash-like operations.
PROVIDED METHODS
These methods are implemented in MouseX::NativeTraits::MethodProvider::HashRef.
get($key, $key2, $key3...)
Returns values from the hash.
In list context return a list of values in the hash for the given keys. In scalar context returns the value for the last key
specified.
set($key => $value, $key2 => $value2...)
Sets the elements in the hash to the given values.
delete($key, $key2, $key3...)
Removes the elements with the given keys.
exists($key)
Returns true if the given key is present in the hash.
defined($key)
Returns true if the value of a given key is defined.
keys
Returns the list of keys in the hash.
sorted_keys
Returns the list of sorted keys in the hash.
values
Returns the list of values in the hash.
kv Returns the key/value pairs in the hash as an array of array references.
for my $pair ( $object->options->pairs ) {
print "$pair->[0] = $pair->[1]
";
}
elements
Returns the key/value pairs in the hash as a flattened list.
clear
Resets the hash to an empty value, like "%hash = ()".
count
Returns the number of elements in the hash. Also useful for not empty: "has_options => 'count'".
is_empty
If the hash is populated, returns false. Otherwise, returns true.
accessor
If passed one argument, returns the value of the specified key. If passed two arguments, sets the value of the specified key.
METHODS
meta
method_provider_class
helper_type
SEE ALSO
MouseX::NativeTraits
perl v5.14.2 2011-12-04 MouseX::NativeTraits::HashRef(3pm)