Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: Print perl hash value in foreach loop
Top Forums Shell Programming and Scripting Print perl hash value in foreach loop Post 302972593 by Aia on Sunday 8th of May 2016 05:26:05 PM
Old 05-08-2016
Quote:
Originally Posted by timj123
Experts - Any advice on how to get a hash value in a foreach loop?
Values print correctly on standalone print statements, but I can't access value
in foreach loop.
See sample code below and thanks in advance.

Code:
foreach my $z (sort keys %hash) {
  for $y (@{$hash{$z}}) {
    print "$z ->";			# Prints key1
    print "$y ->";			# Prints Value1
    print $hash1{"$y"},"\n";		# Prints NULL <-- Why is this NULL??
  }
}

print $hash1{"Value1"};			# Prints HashValue <-- I want this value in foreach

Could you provide the output of the following?

Code:
use Data::Dumper;

# After the hash is populated.
print Dumper \%hash;
print Dumper \%hash1;

 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Perl - Iterating a hash through a foreach loop - unexpected results

i've reworked some code from an earlier post, and it isn't working as expected i've simplified it to try and find the problem. i spent hours trying to figure out what is wrong, eventually thinking there was a bug in perl or a problem with my computer. but, i've tried it on 3 machines with the... (5 Replies)
Discussion started by: quantumechanix
5 Replies

2. Shell Programming and Scripting

Print Entire hash list (hash of hashes)

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

3. UNIX for Dummies Questions & Answers

Foreach loop to run a perl script on multiple files

Hi, I have thousands of files in a directory that have the following 2 formats: 289620178.aln 289620179.aln 289620180.aln 289620183.aln 289620184.aln 289620185.aln 289620186.aln 289620187.aln 289620188.aln 289620189.aln 289620190.aln 289620192.aln.... and: alnCDS_1.fasta (1 Reply)
Discussion started by: greptastic
1 Replies

4. UNIX for Advanced & Expert Users

Perl loop txt and check if a hash key

Hi, The task i have to do is to 1- create a database contains the Names .run the query and store results in hash make the Name field is the hash key 2- in the same time i have a txt which i will loop through it word by word and check for each word if a hash key ( compare it with the Names in... (0 Replies)
Discussion started by: eng_shimaa
0 Replies

5. Shell Programming and Scripting

Perl question - print last element in a hash?

I am modifying someone else's code. There is a foreach statement printing the contents of a hash. Can someone give me an example of printing the last element in a hash? The output currently is A B C D E I want the output to be E (1 Reply)
Discussion started by: streetfighter2
1 Replies

6. Shell Programming and Scripting

Perl Hash:Can not keep hash data in the same order that it was inserted

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)
Discussion started by: jgfcoimbra
1 Replies

7. Programming

PERL, search and replace inside foreach loop

Hello All, Im a Hardware engineer, I have written this script to automate my job. I got stuck in the following location. CODE: .. .. ... foreach $key(keys %arr_hash) { my ($loc,$ind,$add) = split /,/, $arr_hash{$key}; &create_verilog($key, $loc, $ind ,$add); } sub create_verilog{... (2 Replies)
Discussion started by: riyasnr007
2 Replies

8. Shell Programming and Scripting

perl hash - using a range as a hash key.

Hi, In Perl, is it possible to use a range of numbers with '..' as a key in a hash? Something in like: %hash = ( '768..1536' => '1G', '1537..2560' => '2G' ); That is, the range operation is evaluated, and all members of the range are... (3 Replies)
Discussion started by: dsw
3 Replies

9. Shell Programming and Scripting

Compare values of hashes of hash for n number of hash in perl without sorting.

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)
Discussion started by: asak
1 Replies

10. Shell Programming and Scripting

Need to print hash of hash in table format

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

apache::session::browseable::redis

Apache::Session::Browseable::Redis(3pm) 		User Contributed Perl Documentation		   Apache::Session::Browseable::Redis(3pm)

NAME

       Apache::Session::Browseable::Redis - Add index and search methods to Apache::Session::Redis

SYNOPSIS

	 use Apache::Session::Browseable::Redis;

	 my $args = {
	      server => '127.0.0.1:6379',

	      # Choose your browseable fileds
	      Index	     => 'uid mail',
	 };

	 # Use it like Apache::Session
	 my %session;
	 tie %session, 'Apache::Session::Browseable::Redis', $id, $args;
	 $session{uid} = 'me';
	 $session{mail} = 'me@me.com';
	 $session{unindexedField} = 'zz';
	 untie %session;

	 # Apache::Session::Browseable add some global class methods
	 #
	 # 1) search on a field (indexed or not)
	 my $hash = Apache::Session::Browseable::Redis->searchOn( $args, 'uid', 'me' );
	 foreach my $id (keys %$hash) {
	   print $id . ":" . $hash->{$id}->{mail} . "
";
	 }

	 # 2) Parse all sessions
	 # a. get all sessions
	 my $hash = Apache::Session::Browseable::Redis->get_key_from_all_sessions();

	 # b. get some fields from all sessions
	 my $hash = Apache::Session::Browseable::Redis->get_key_from_all_sessions('uid', 'mail')

	 # c. execute something with datas from each session :
	 #    Example : get uid and mail if mail domain is
	 my $hash = Apache::Session::Browseable::Redis->get_key_from_all_sessions(
		     sub {
			my ( $session, $id ) = @_;
			if ( $session->{mail} =~ /mydomain.com$/ ) {
			    return { $session->{uid}, $session->{mail} };
			}
		     }
	 );
	 foreach my $id (keys %$hash) {
	   print $id . ":" . $hash->{$id}->{uid} . "=>" . $hash->{$id}->{mail} . "
";
	 }

DESCRIPTION

       Apache::Session::browseable provides some class methods to manipulate all sessions and add the capability to index some fields to make
       research faster.

SEE ALSO

       Apache::Session

AUTHOR

       Xavier Guimard, <x.guimard@free.fr>

COPYRIGHT AND LICENSE

       Copyright (C) 2009 by Xavier Guimard

       This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.10.1 or,
       at your option, any later version of Perl 5 you may have available.

perl v5.14.2							    2010-12-08				   Apache::Session::Browseable::Redis(3pm)
All times are GMT -4. The time now is 03:53 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy