Re: How-To integrate information from two hash tables?

It doesn't seem like you need the second hash at all. You just need the first one arranged differently.

use strict;
use warnings;
use Data::Dumper;

my $channel_name;

my %files_by_channel = (
            'ch1' => {
                     '00014' => '/foo/oradata/bar/foodb-lob01.dbf',
                     '00008' => '/foo/oradata/bar/foodb-index11.dbf',
                     },
            'ch2' => {
                     '00004' => '/foo/oradata/bar/tools01.dbf',
                     '00019' => '/foo/oradata/bar/foodb-data02.dbf',
                     '00003' => '/foo/oradata/bar/undotbs01.dbf'
                    },
);


my %rearranged;

foreach my $ch ( keys %files_by_channel ) {
    my $file_ref = $files_by_channel{$ch};
    foreach my $file ( keys %{$file_ref} ) {
        $rearranged{$file} = [ $ch, $file_ref->{$file} ]
    }
}

printf "%-10s %-15s %-40s\n", 'File#',  'Channel Name', 'File Name';
printf "%-10s %-15s %-40s\n", '-' x 10, '-' x 15,       '-' x 40;
printf "%-10s %-15s %-40s\n", $_, @{ $rearranged{$_} } 
    for sort keys %rearranged;
[download]

Dave

Comment on Re: How-To integrate information from two hash tables? Download Code

Replies are listed 'Best First'.
Re^2: How-To integrate information from two hash tables? by Scottie (Novice) on Jun 14, 2011 at 06:13 UTC
On Jun 13, 2011 at 22:36 UTC, Dave (davido) wrote: > It doesn't seem like you need the second hash at all. > You just need the first one arranged differently. Unfortunately I can't use only a single array. I gave only a simplified example (code) in my question. In fact, I parse the two outputs: (1) Output log file from Oracle RMAN session, where I've informations about the channels. For example: allocated channel: ch1 channel ch1: SID=208 device type=DISK allocated channel: ch2 channel ch2: SID=403 device type=DISK channel ch1: specifying datafile(s) in backup set input datafile file number=00014 name=/foo/oradata/bar/foodb-lob01.dbf input datafile file number=00008 name=/foo/oradata/bar/foodb-index11.d +bf (...) channel ch2: specifying datafile(s) in backup set input datafile file number=00004 name=/foo/oradata/bar/tools01.dbf input datafile file number=00019 name=/foo/oradata/bar/foodb-data02.db +f input datafile file number=00003 name=/foo/oradata/bar/undotbs01.dbf [download] (2) The output from `RMAN> list backup` command, where I've a lot of informations about the backups. For example: BS Key Type LV Size Device Type Elapsed Time Completion Time ------- ---- -- ---------- ----------- ------------ --------------- 100 Full 509.78M DISK 00:01:03 15-FEB-07 BP Key: 202 Status: AVAILABLE Compressed: YES Tag: DB_FULL +_DAILY_20110613_142608 Piece Name: /VNB_foo_rman/NEW_FOODB_RMAN/2011_06_13/FOODB_DB_F +ULL_DAILY_1_53_1lmepls6_20110613.dbf List of Datafiles in backup set 200 File LV Type Ckp SCN Ckp Time Name ---- -- ---- ---------- --------- ---- 14 Full 421946 15-FEB-07 /foo/oradata/bar/foodb-lob01.dbf 19 Full 421946 15-FEB-07 /foo/oradata/bar/foodb-data02.dbf BS Key Type LV Size Device Type Elapsed Time Completion Time ------- ---- -- ---------- ----------- ------------ --------------- 101 Full 509.78M DISK 00:01:03 15-FEB-07 BP Key: 202 Status: AVAILABLE Compressed: YES Tag: DB_FULL +_DAILY_20110613_142608 Piece Name: /VNB_foo_rman/NEW_FOODB_RMAN/2011_06_13/FOODB_DB_F +ULL_DAILY_1_54_1mmepls6_20110613.dbf List of Datafiles in backup set 200 File LV Type Ckp SCN Ckp Time Name ---- -- ---- ---------- --------- ---- 4 Full 421946 15-FEB-07 /foo/oradata/bar/tools01.dbf 8 Full 421946 15-FEB-07 /foo/oradata/bar/foodb-index11.dbf 3 Full 421946 15-FEB-07 /foo/oradata/bar/undotbs01.dbf [download] So, first (1) goes to the "%files_by_channel" array, and second (2) goes to the "%files_by_number" array. But like I said before, this is just a simplified example, because the "%files_by_number" array contains much more information than I showed. It was interesting only for me how to combine information from these two hash arrays. Scottie	[reply] [d/l] [select]
Re^3: How-To integrate information from two hash tables? by Anonymous Monk on Jun 14, 2011 at 06:20 UTC
Things get conceptually simpler when you use a database. See Re: Open multiple file handles?, Re^2: X, Y Table structure,SQLite::VirtualTable::Pivot	[reply]