Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: perl hash - using a range as a hash key.
Top Forums Shell Programming and Scripting perl hash - using a range as a hash key. Post 302449663 by radoulov on Tuesday 31st of August 2010 06:41:47 AM
Old 08-31-2010
Could I suggest a different approach?
Code:
perl -le'
  
  $val = shift;
  
  @ranges = (
     [768, 1536, "1G"],
     [1537, 2560, "2G"]
     ); 
     
  for (@ranges) {
    print $_->[2] and last 
      if $_->[0] <= $val && $val <= $_->[1]
    }
  '

It produces:

Code:
% perl -le'

  $val = shift;

  @ranges = (
     [768, 1536, "1G"],
 [1537, 2560, "2G"]
 );

  for (@ranges) {
    print $_->[2] and last
      if $_->[0] <= $val && $val <= $_->[1]
    }
  ' 1000
1G
% perl -le'

  $val = shift;

  @ranges = (
     [768, 1536, "1G"],
 [1537, 2560, "2G"]
 );

  for (@ranges) {
    print $_->[2] and last
      if $_->[0] <= $val && $val <= $_->[1]
    }
  ' 2000
2G

This User Gave Thanks to radoulov For This Post:
dsw
 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

perl help on hash

I have line which is read from xml doc. I want to put this line into hash(perl variable). find line below and how i want to put this in hash <font size="10" type="int" name="ABC" > hash key should be size, type and name with corresponding value I doing as below:- $line =~ s/\s*.*?\s//;... (3 Replies)
Discussion started by: aju_kup
3 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. Shell Programming and Scripting

perl hash

Hi i am reading one file and creating Hash from the contents of it my issue is there are 3 different files in 3 different locations having same structure so for parsing these files i have one subroutine which returns hash after reading all the 3 files i need to create consolidated hash from three... (2 Replies)
Discussion started by: zedex
2 Replies

4. Shell Programming and Scripting

perl (word by word check if a hash key)

Hi, Now i work in a code that 1-get data stored in the database in the form of hash table with a key field which is the " Name" 2-in the same time i open a txt file and loop through it word by word 3- which i have a problem in is that : I need to loop word by word and check if it is a... (0 Replies)
Discussion started by: eng_shimaa
0 Replies

5. 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

6. Shell Programming and Scripting

Assigning a hash to another hash key

Hello, I have a hash in hsh. I need to assign it to another hash globalHsh. I think the below statement does not work $globalHsh{$id} = %hsh; What is the right way to assign it? Thanks (3 Replies)
Discussion started by: rsanjay
3 Replies

7. 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

8. 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

9. Shell Programming and Scripting

Dynamically parse BibTeX and create hash of hash

Hello gurus, Iam trying to parse following BibTex file (bibliography.bib): @book{Lee2000a, abstract = {Abstract goes here}, author = {Lee, Wenke and Stolfo, Salvatore J}, title = {{Data mining approaches for intrusion detection}}, year = {2000} } @article{Forrest1996, abstract =... (0 Replies)
Discussion started by: wakatana
0 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 REDHAT

hash::util

Hash::Util(3pm) 					 Perl Programmers Reference Guide					   Hash::Util(3pm)

NAME

       Hash::Util - A selection of general-utility hash subroutines

SYNOPSIS

	 use Hash::Util qw(lock_keys   unlock_keys
			   lock_value  unlock_value
			   lock_hash   unlock_hash);

	 %hash = (foo => 42, bar => 23);
	 lock_keys(%hash);
	 lock_keys(%hash, @keyset);
	 unlock_keys(%hash);

	 lock_value  (%hash, 'foo');
	 unlock_value(%hash, 'foo');

	 lock_hash  (%hash);
	 unlock_hash(%hash);

DESCRIPTION

       "Hash::Util" contains special functions for manipulating hashes that don't really warrant a keyword.

       By default "Hash::Util" does not export anything.

       Restricted hashes

       5.8.0 introduces the ability to restrict a hash to a certain set of keys.  No keys outside of this set can be added.  It also introduces
       the ability to lock an individual key so it cannot be deleted and the value cannot be changed.

       This is intended to largely replace the deprecated pseudo-hashes.

       lock_keys
       unlock_keys
	     lock_keys(%hash);
	     lock_keys(%hash, @keys);

	   Restricts the given %hash's set of keys to @keys.  If @keys is not given it restricts it to its current keyset.  No more keys can be
	   added. delete() and exists() will still work, but will not alter the set of allowed keys. Note: the current implementation prevents the
	   hash from being bless()ed while it is in a locked state. Any attempt to do so will raise an exception. Of course you can still bless()
	   the hash before you call lock_keys() so this shouldn't be a problem.

	     unlock_keys(%hash);

	   Removes the restriction on the %hash's keyset.

       lock_value
       unlock_value
	     lock_value  (%hash, $key);
	     unlock_value(%hash, $key);

	   Locks and unlocks an individual key of a hash.  The value of a locked key cannot be changed.

	   %hash must have already been locked for this to have useful effect.

       lock_hash
       unlock_hash
	       lock_hash(%hash);

	   lock_hash() locks an entire hash, making all keys and values readonly.  No value can be changed, no keys can be added or deleted.

	       unlock_hash(%hash);

	   unlock_hash() does the opposite of lock_hash().  All keys and values are made read/write.  All values can be changed and keys can be
	   added and deleted.

AUTHOR

       Michael G Schwern <schwern@pobox.com> on top of code by Nick Ing-Simmons and Jeffrey Friedl.

SEE ALSO

       Scalar::Util, List::Util, Hash::Util

perl v5.8.0							    2002-06-01							   Hash::Util(3pm)
All times are GMT -4. The time now is 08:39 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy