Help On Hashes

Hi to all,

How do i print the hashes in the stored manner.because when i print the hash value it print random order by default. But i want the value by the stored
manner.

Here i am using this hash

Expand|Select|Wrap|Line Numbers

1. my %status=('Payment Received'=>PR,'Order Under processing'=>'Under processing','Shipped From WareHouse'=>SWH,Courier=>C,Delivered=>D);
2.  
3.  or $key(keys %status)
4.  {
5.   print "$key \t $status{$key}";
6.   print "\n";
7.  }
8.  

The output will be

Delivered D
Order Under processing Under processing
Payment Received PR
Courier C
Shipped From WareHouse SWH

But I want

Payment Received PR
Order Under processing Under processing
Shipped From WareHouse SWH
Courier C
Delivered D


Thanks

Regards
Rajiv

Hi to all,

How do i print the hashes in the stored manner.because when i print the hash value it print random order by default. But i want the value by the stored
manner.

Here i am using this hash

Expand|Select|Wrap|Line Numbers

1. my %status=('Payment Received'=>PR,'Order Under processing'=>'Under processing','Shipped From WareHouse'=>SWH,Courier=>C,Delivered=>D);
2.  
3.  or $key(keys %status)
4.  {
5.   print "$key \t $status{$key}";
6.   print "\n";
7.  }
8.  

The output will be

Delivered D
Order Under processing Under processing
Payment Received PR
Courier C
Shipped From WareHouse SWH

But I want

Payment Received PR
Order Under processing Under processing
Shipped From WareHouse SWH
Courier C
Delivered D


Thanks

Regards
Rajiv

use an array to store the hash keys in the order you want to display them:

Expand|Select|Wrap|Line Numbers

1. my @keys = ('Payment Received', 'Order Under processing', 'Shipped From WareHouse', 'Courier', 'Delivered')
2.  
3. my %status=('Payment Received'=>PR,'Order Under processing'=>'Under processing','Shipped From WareHouse'=>SWH,Courier=>C,Delivered=>D); 
4.  
5. foreach my $key (@keys) {
6.    print "$key = $status{$key}\n";
7. }

Wow... this is clean and simple to understand also..... A lot better than my 1,2,3.... :) Thanks

hey
first u say clearly wat u want?

y u confused?