Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number
 
PerlMonks  

Re: Printing a hash in a specific order?

by poj (Curate)
on Mar 15, 2003 at 16:49 UTC ( #243319=note: print w/ replies, xml ) Need Help??


in reply to Printing a hash in a specific order?

This prints a single record, or do you want to print many records in a defined order ?

#!/usr/bin/perl -w use strict; # test HOH my %test = ( 'rec1' => { 'key'=>"rec1", 'a' =>"11" x 50, 'b' =>"1b1b1b", 'c' =>"c1c1c1c1c", 'z' =>"zz11zz11zz" }, 'rec2' => { 'key'=>"rec2", 'a' =>"22" x 40, 'b' =>"2b2b2b", 'c' =>"c2c2c2c2c", 'x' =>"xx22xx22xx" } ); my $obj = new mydata(\%test); $obj->Print('rec2'); $obj->Print('rec1'); package mydata; sub new { my (undef,$self)=@_; bless $self; } sub Print { my ($self,$key) = @_; my $record = $self->{$key}; my @parameters = ('key','a','z','c','b','x'); foreach my $parm (@parameters) { next unless ($record->{$parm}); my $value = ($parm eq 'key') ? $key : $record->{$parm}; printf "%-16s: %s\n",$parm,substr($value,0,62) ; printf "\t%s\n",substr($value,62) if length $value > 62; } }
poj


Comment on Re: Printing a hash in a specific order?
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://243319]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (7)
As of 2014-07-28 06:50 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite superfluous repetitious redundant duplicative phrase is:









    Results (191 votes), past polls