Assistance with printing complex data structure 1

tonykent · Jan 24, 2019

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

feherke · Jan 24, 2019

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

tonykent · Jan 24, 2019

Hi again feherke. That works nicely. Thank you once again!

tonykent · Jan 29, 2019

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.

tonykent · Jan 29, 2019

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.

feherke · Jan 29, 2019

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.

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

tonykent · Jan 29, 2019

That's giving me:

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

feherke · Jan 29, 2019

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

tonykent · Jan 29, 2019

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.

tonykent · Jan 30, 2019

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!

feherke · Jan 30, 2019

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

tonykent · Jan 31, 2019

That works fine, so I am now all systems go. Thanks again, I really appreciate the help.

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!

Assistance with printing complex data structure 1

tonykent

IS-IT--Management

feherke

Programmer

tonykent

IS-IT--Management

tonykent

IS-IT--Management

tonykent

IS-IT--Management

feherke

Programmer

tonykent

IS-IT--Management

feherke

Programmer

tonykent

IS-IT--Management

tonykent

IS-IT--Management

feherke

Programmer

tonykent

IS-IT--Management

Similar threads

Part and Inventory Search

Sponsor