Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Assistance with printing complex data structure 1

Status
Not open for further replies.
tonykent

tonykent

IS-IT--Management
Jun 13, 2002
251
GB
Given this data structure, can anyone help me print it out in the format shown below?
Code: 
$VAR1 = {
          'DepartureTime' => '05:53:00',
          'PrivateCode' => '4483928',
          'VehicleJourneyTimingLinkRef' => {
                                             '7' => 'PT1M16S',
                                             '6' => 'PT1M34S',
                                             '4' => 'PT2M33S',
                                             '5' => 'PT0M37S'
                                           }
        };
$VAR2 = {
          'PrivateCode' => '4483929',
          'DepartureTime' => '06:10:00',
          'VehicleJourneyTimingLinkRef' => {
                                             '5' => 'PT0M37S',
                                             '21' => 'PT1M34S',
                                             '7' => 'PT1M16S',
                                             '6' => 'PT1M35S',
                                             '19' => 'PT0M43S',
                                             '4' => 'PT2M32S',
                                             '20' => 'PT2M19S',
                                             '16' => 'PT1M43S',
                                             '15' => 'PT0M55S',
                                             '18' => 'PT1M32S',
                                             '22' => 'PT1M36S',
                                             '23' => 'PT1M10S',
                                             '24' => 'PT0M40S',
                                             '17' => 'PT0M48S'
                                           }
        };
The required output format is shown below. The column titles are shown simply for clarity, I don't need these printing.
Code: 
VJTL                     Private
Ref      Time	Departure  Code 	
4	PT2M33S	05:53:00 4483928
5	PT0M37S 05:53:00 4483928
6	PT1M34S 05:53:00 4483928
7	PT1M16S 05:53:00 4483928
5	PT0M37  06:10:00 4483929
6	PT1M35S 06:10:00 4483929
7	PT1M16S 06:10:00 4483929
15	PT0M55S 06:10:00 4483929
16	PT1M43S 06:10:00 4483929
etc
 
Sort by date Sort by votes
Hi

As I understand, those $VAR1 and $VAR2 are separate variables, so I would use a sub like this :
Perl: 
[b]sub[/b] print_as_table [teal]{[/teal]
    [b]my[/b] [navy]$data[/navy] [teal]=[/teal] [b]shift[/b][teal];[/teal]

    [b]foreach my[/b] [navy]$key[/navy] [teal]([/teal][b]sort[/b] [teal]{[/teal][navy]$a[/navy] [i][green]<=>[/green][/i] [navy]$b[/navy][teal]}[/teal] [b]keys[/b] [teal]%{[/teal][navy]$data[/navy][teal]->{[/teal]VehicleJourneyTimingLinkRef[teal]}}) {[/teal]
        [b]print[/b] [navy]$key[/navy][teal],[/teal] [i][green]' '[/green][/i][teal],[/teal] [navy]$data[/navy][teal]->{[/teal]VehicleJourneyTimingLinkRef[teal]}{[/teal][navy]$key[/navy][teal]},[/teal] [i][green]' '[/green][/i][teal],[/teal] [navy]$data[/navy][teal]->{[/teal]DepartureTime[teal]},[/teal] [i][green]' '[/green][/i][teal],[/teal] [navy]$data[/navy][teal]->{[/teal]PrivateCode[teal]},[/teal] [i][green]"\n"[/green][/i][teal];[/teal]
    [teal]}[/teal]
[teal]}[/teal]

[teal]&[/teal][COLOR=orange]print_as_table[/color][teal]([/teal][navy]$VAR1[/navy][teal]);[/teal]
[teal]&[/teal][COLOR=orange]print_as_table[/color][teal]([/teal][navy]$VAR2[/navy][teal]);[/teal]


Feherke.
feherke.github.io
 
Upvote 0 Downvote
Hi again feherke. That works nicely. Thank you once again!
 
Upvote 0 Downvote
Hi feherke, I have discovered that I need to print out the VehicleJourneyTimingLinkRef's in a specific order. For the 2 records I showed above, they have to be printed out in the order shown in VehicleJourneyTimingLinkRefOrder below:
Code: 
$VAR1 = {
          'PrivateCode' => '4483928',
          'DepartureTime' => '05:53:00',
          'VehicleJourneyTimingLinkRef' => {
                                             '5' => 'PT0M37S',
                                             '7' => 'PT1M16S',
                                             '6' => 'PT1M34S',
                                             '4' => 'PT2M33S'
                                           },
          'VehicleJourneyTimingLinkRefOrder' => [
                                                  '4',
                                                  '5',
                                                  '6',
                                                  '7'
                                                ]
        };
$VAR2 = {
          'VehicleJourneyTimingLinkRef' => {
                                             '20' => 'PT2M19S',
                                             '4' => 'PT2M32S',
                                             '15' => 'PT0M55S',
                                             '6' => 'PT1M35S',
                                             '24' => 'PT0M40S',
                                             '17' => 'PT0M48S',
                                             '23' => 'PT1M10S',
                                             '5' => 'PT0M37S',
                                             '16' => 'PT1M43S',
                                             '22' => 'PT1M36S',
                                             '18' => 'PT1M32S',
                                             '21' => 'PT1M34S',
                                             '19' => 'PT0M43S',
                                             '7' => 'PT1M16S'
                                           },
          'VehicleJourneyTimingLinkRefOrder' => [
                                                  '15',
                                                  '16',
                                                  '17',
                                                  '18',
                                                  '19',
                                                  '20',
                                                  '21',
                                                  '22',
                                                  '23',
                                                  '24',
                                                  '4',
                                                  '5',
                                                  '6',
                                                  '7'
                                                ],
          'PrivateCode' => '4483929',
          'DepartureTime' => '06:10:00'
        };
I suspect that the best way to deal with this will be to add the VehicleJourneyTimingLinkRef records as an array (2 dimensional?) rather than a hash.

Currently, I am adding them as a hash as follows:
Code: 
foreach my $VehicleJourneys ($dom->findnodes('//VehicleJourneys/VehicleJourney')) {
	$VehicleJourneyTimingLink=$VehicleJourneys->findvalue('./VehicleJourneyTimingLink');
	%hash = $VehicleJourneyTimingLink =~ m/(\d+)\s+(\w*[a-zA-Z]+\w*(?:\s+\w*[a-zA-Z]+\w*)*)\b/g; 
	foreach my $key (keys %hash) {
	     $value = $hash{$key};
		 $VJs[$i]->{VehicleJourneyTimingLinkRef}{$key} = $value;
	}
	$i++;
}
I am then printing out as per your subroutine.
Would you concur that using an array would be the best option? If so, can you help with the syntax? I've tried various options but the best I've managed to come up with added all the values as a single dimensional array (a long list) rather than keeping the pair values together.
 
Upvote 0 Downvote
I should have added that the order of the records in %hash is correct at that point because I used Tie::IxHash to maintain the order. I tried the same for %VehicleJourneyTimingLinkRef but that did not work for some reason.
 
Upvote 0 Downvote
Hi

tonykent said:
I should have added that the order of the records in %hash is correct at that point because I used Tie::IxHash to maintain the order.
Click to expand...
That make a world of difference. Then just the [tt]%{[/tt] .. [tt]}[/tt] dereferencing has to be avoided and no need to play with manually set order :
Perl: 
[b]sub[/b] print_as_table [teal]{[/teal]
    [b]my[/b] [navy]$data[/navy] [teal]=[/teal] [b]shift[/b][teal];[/teal]

    [b]foreach my[/b] [navy]$key[/navy] [teal]([/teal][navy]$data[/navy][teal]->{[/teal]VehicleJourneyTimingLinkRef[teal]}->[/teal]Keys[teal]) {[/teal]
        [b]print[/b] [navy]$key[/navy][teal],[/teal] [i][green]' '[/green][/i][teal],[/teal] [navy]$data[/navy][teal]->{[/teal]VehicleJourneyTimingLinkRef[teal]}->[/teal][COLOR=orange]FETCH[/color][teal]([/teal][navy]$key[/navy][teal]),[/teal] [i][green]' '[/green][/i][teal],[/teal] [navy]$data[/navy][teal]->{[/teal]DepartureTime[teal]},[/teal] [i][green]' '[/green][/i][teal],[/teal] [navy]$data[/navy][teal]->{[/teal]PrivateCode[teal]},[/teal] [i][green]"\n"[/green][/i][teal];[/teal]
    [teal]}[/teal]
[teal]}[/teal]
Note that I never used [tt]Tie::IxHash[/tt], so I may be wrong.

Feherke.
feherke.github.io
 
Upvote 0 Downvote
That's giving me:

Can't call method "Keys" on unblessed reference at myscript.pl line 118.
 
Upvote 0 Downvote
Hi

Interesting. This is my test script :
Perl: 
[b]use[/b] strict[teal];[/teal]
[b]use[/b] warnings[teal];[/teal]
[b]use[/b] Tie[teal]::[/teal]IxHash[teal];[/teal]

[b]my[/b] [navy]$VAR1[/navy] [teal]= {[/teal]
    [i][green]'DepartureTime'[/green][/i] [teal]=>[/teal] [i][green]'05:53:00'[/green][/i][teal],[/teal]
    [i][green]'PrivateCode'[/green][/i] [teal]=>[/teal] [i][green]'4483928'[/green][/i][teal],[/teal]
    [i][green]'VehicleJourneyTimingLinkRef'[/green][/i] [teal]=>[/teal] Tie[teal]::[/teal]IxHash[teal]->[/teal][COLOR=orange]new[/color][teal]([/teal]
        [i][green]'7'[/green][/i] [teal]=>[/teal] [i][green]'PT1M16S'[/green][/i][teal],[/teal]
        [i][green]'6'[/green][/i] [teal]=>[/teal] [i][green]'PT1M34S'[/green][/i][teal],[/teal]
        [i][green]'4'[/green][/i] [teal]=>[/teal] [i][green]'PT2M33S'[/green][/i][teal],[/teal]
        [i][green]'5'[/green][/i] [teal]=>[/teal] [i][green]'PT0M37S'[/green][/i]
    [teal])[/teal]
[teal]};[/teal]

[b]my[/b] [navy]$VAR2[/navy] [teal]= {[/teal]
    [i][green]'PrivateCode'[/green][/i] [teal]=>[/teal] [i][green]'4483929'[/green][/i][teal],[/teal]
    [i][green]'DepartureTime'[/green][/i] [teal]=>[/teal] [i][green]'06:10:00'[/green][/i][teal],[/teal]
    [i][green]'VehicleJourneyTimingLinkRef'[/green][/i] [teal]=>[/teal] Tie[teal]::[/teal]IxHash[teal]->[/teal][COLOR=orange]new[/color][teal]([/teal]
        [i][green]'5'[/green][/i] [teal]=>[/teal] [i][green]'PT0M37S'[/green][/i][teal],[/teal]
        [i][green]'21'[/green][/i] [teal]=>[/teal] [i][green]'PT1M34S'[/green][/i][teal],[/teal]
        [i][green]'7'[/green][/i] [teal]=>[/teal] [i][green]'PT1M16S'[/green][/i][teal],[/teal]
        [i][green]'6'[/green][/i] [teal]=>[/teal] [i][green]'PT1M35S'[/green][/i][teal],[/teal]
        [i][green]'19'[/green][/i] [teal]=>[/teal] [i][green]'PT0M43S'[/green][/i][teal],[/teal]
        [i][green]'4'[/green][/i] [teal]=>[/teal] [i][green]'PT2M32S'[/green][/i][teal],[/teal]
        [i][green]'20'[/green][/i] [teal]=>[/teal] [i][green]'PT2M19S'[/green][/i][teal],[/teal]
        [i][green]'16'[/green][/i] [teal]=>[/teal] [i][green]'PT1M43S'[/green][/i][teal],[/teal]
        [i][green]'15'[/green][/i] [teal]=>[/teal] [i][green]'PT0M55S'[/green][/i][teal],[/teal]
        [i][green]'18'[/green][/i] [teal]=>[/teal] [i][green]'PT1M32S'[/green][/i][teal],[/teal]
        [i][green]'22'[/green][/i] [teal]=>[/teal] [i][green]'PT1M36S'[/green][/i][teal],[/teal]
        [i][green]'23'[/green][/i] [teal]=>[/teal] [i][green]'PT1M10S'[/green][/i][teal],[/teal]
        [i][green]'24'[/green][/i] [teal]=>[/teal] [i][green]'PT0M40S'[/green][/i][teal],[/teal]
        [i][green]'17'[/green][/i] [teal]=>[/teal] [i][green]'PT0M48S'[/green][/i]
    [teal])[/teal]
[teal]};[/teal]

[b]sub[/b] print_as_table [teal]{[/teal]
    [b]my[/b] [navy]$data[/navy] [teal]=[/teal] [b]shift[/b][teal];[/teal]

    [b]foreach my[/b] [navy]$key[/navy] [teal]([/teal][navy]$data[/navy][teal]->{[/teal]VehicleJourneyTimingLinkRef[teal]}->[/teal]Keys[teal]) {[/teal]
        [b]print[/b] [navy]$key[/navy][teal],[/teal] [i][green]' '[/green][/i][teal],[/teal] [navy]$data[/navy][teal]->{[/teal]VehicleJourneyTimingLinkRef[teal]}->[/teal][COLOR=orange]FETCH[/color][teal]([/teal][navy]$key[/navy][teal]),[/teal] [i][green]' '[/green][/i][teal],[/teal] [navy]$data[/navy][teal]->{[/teal]DepartureTime[teal]},[/teal] [i][green]' '[/green][/i][teal],[/teal] [navy]$data[/navy][teal]->{[/teal]PrivateCode[teal]},[/teal] [i][green]"\n"[/green][/i][teal];[/teal]
    [teal]}[/teal]
[teal]}[/teal]

[teal]&[/teal][COLOR=orange]print_as_table[/color][teal]([/teal][navy]$VAR1[/navy][teal]);[/teal]
[teal]&[/teal][COLOR=orange]print_as_table[/color][teal]([/teal][navy]$VAR2[/navy][teal]);[/teal]
Did I misunderstood something ? Do you get error with my test script too ?


Feherke.
feherke.github.io
 
Upvote 0 Downvote
Hi feherke, your script runs fine. My code doesn't [mad] :

Code: 
tie %hash, 'Tie::IxHash';
tie %VehicleJourneyTimingLinkRef, 'Tie::IxHash';
foreach my $VehicleJourneys ($dom->findnodes('//VehicleJourneys/VehicleJourney')) {
	#create hash
	$PrivateCode=$VehicleJourneys->findvalue('./PrivateCode');
	$VJs[$i]->{'PrivateCode'} = $PrivateCode;
	$DepartureTime=$VehicleJourneys->findvalue('./DepartureTime');
	$VJs[$i]->{'DepartureTime'} = $DepartureTime;
	$VehicleJourneyTimingLink=$VehicleJourneys->findvalue('./VehicleJourneyTimingLink');
	%hash = $VehicleJourneyTimingLink =~ m/(\d+)\s+(\w*[a-zA-Z]+\w*(?:\s+\w*[a-zA-Z]+\w*)*)\b/g; 
	foreach my $key (keys %hash) {
	     $value = $hash{$key};
		 $VJs[$i]->{VehicleJourneyTimingLinkRef}{$key} = $value;
	}
	$i++;
}
Line 2, suppposedly tieing %VehicleJourneyTimingLinkRef, has never worked in my script. Order is not maintained, which is what led me to start thinking about using an array instead.
 
Upvote 0 Downvote
Good morning feherke, to overcome the ordering/bless issues I have changed the construction of my data structure to use an array, so I now have this:

Code: 
$VAR1 = {
          'DepartureTime' => '05:53:00',
          'PrivateCode' => '4483928',
          'VehicleJourneyTimingLinkRefOrder' => [
                                                  [
                                                    '4',
                                                    'PT2M33S'
                                                  ],
                                                  [
                                                    '5',
                                                    'PT0M37S'
                                                  ],
                                                  [
                                                    '6',
                                                    'PT1M34S'
                                                  ],
                                                  [
                                                    '7',
                                                    'PT1M16S'
                                                  ]
                                                ]
        };
Could you help with amending the print subroutine? Hopefully this will be the final step!
 
Upvote 0 Downvote
Hi

Great. That [tt]Tie::IxHash[/tt] caught me. When added the items one by one, wasn't able to get them back in order. :-(
Perl: 
[b]sub[/b] print_as_table [teal]{[/teal]
    [b]my[/b] [navy]$data[/navy] [teal]=[/teal] [b]shift[/b][teal];[/teal]

    [b]foreach my[/b] [navy]$item[/navy] [teal]([/teal]@[teal]{[/teal][navy]$data[/navy][teal]->{[/teal]VehicleJourneyTimingLinkRefOrder[teal]}}) {[/teal]
        [b]print[/b] [navy]$item[/navy][teal]->[[/teal][purple]0[/purple][teal]],[/teal] [i][green]' '[/green][/i][teal],[/teal] [navy]$item[/navy][teal]->[[/teal][purple]1[/purple][teal]],[/teal] [i][green]' '[/green][/i][teal],[/teal] [navy]$data[/navy][teal]->{[/teal]DepartureTime[teal]},[/teal] [i][green]' '[/green][/i][teal],[/teal] [navy]$data[/navy][teal]->{[/teal]PrivateCode[teal]},[/teal] [i][green]"\n"[/green][/i][teal];[/teal]
    [teal]}[/teal]
[teal]}[/teal]


Feherke.
feherke.github.io
 
Upvote 0 Downvote
That works fine, so I am now all systems go. Thanks again, I really appreciate the help.
 
Upvote 0 Downvote
Status
Not open for further replies.

Similar threads

rob54321
  • Locked
  • Question
Perl how to read line from file with interpolation 1
Replies
6
Views
327
rob54321
rob54321
kokch
  • Locked
  • Question
Need assistance with XML- Sort/Grouping (alpha sort; hide without groups)
Replies
1
Views
121
mikrom
mikrom
Dino_1000
  • Locked
  • Question
Use the perl debugger to dump all the data in a string variable
Replies
0
Views
146
Dino_1000
Dino_1000
tonykent
  • Locked
  • Question
sort by hash key before printing
Replies
3
Views
168
tonykent
tonykent
bengalliboy
  • Locked
  • Question
finding element data from referenced array, nested
Replies
0
Views
80
bengalliboy
bengalliboy

Part and Inventory Search

Sponsor

Back
Top