Breaking News: Grepper is joining You.com. Read the official announcement!

multidimensional hash in perl

@CodeGrepperManu answered on April 25, 2023 Popularity 1/10 Helpfulness 1/10

answer multidimensional hash in perl

related multidimensional hash in perl

multidimensional hash in perl

Comment

@arr123= (
{
	BUNDLINGREASONID => 'CPT Manual or CMS manual coding instructions',
	EDITTYPE => 'B',
	EFFECTIVEDATE => '20130701',
	EXPIRATIONDATE => '20130701',
	STATUS => [ '1', '2' , { SPECIAL => 'Y'} ],
},
{
	BUNDLINGREASONID => 'CPT Manual or CMS manual coding instructions',
	EDITTYPE => 'B',
	EFFECTIVEDATE => '20150401',
	EXPIRATIONDATE => '',
	STATUS => [ '1', '2' , { SPECIAL => 'N'} ],
}
);

print @{ $arr123[0]{STATUS}}[2]->{SPECIAL};
print "\n";
print $arr123[1]{STATUS}[2]->{SPECIAL};

Popularity 1/10 Helpfulness 1/10 Language perl

Source: onecompiler.com

Tags: hash perl

Link to this answer
Share Copy Link

Contributed on Apr 25 2023

@CodeGrepperManu

0 Answers Avg Quality 2/10

Closely Related Answers

multidimensional hash in perl

Comment

#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

my %emp = (
    'it' =>  {
      'Sam 1' => 'Manager',
      'Richi 1' => 'Tech Lead',
      'Dannel 1' => 'Project Manager',
    },
    'it_support' => {
      'Sam 2' => 'Manager',
      'Richi 2' => 'Tech Lead',
      'Dannel 2' => 'Project Manager',
    },
    'development' => {
      'Sam 3' => 'Manager',
      'Richi 3' => 'Tech Lead',
      'Dannel 3' => 'Project Manager',
    },
    'lead' =>{ 'it'=> ['sam1', 'sam2', {country=>'IN',STATE=>'TG'}] }
);

#print Dumper(%student);
foreach my $key (keys %emp){
    #print $key."\n";
  print "Department = $key : \n";
  foreach my $key_name (keys %{$emp{$key}}){
    my $len = $emp{$key}->{$key_name};
      print "\t Name : ".$key_name." == ".$emp{$key}->{$key_name}."\n";
  }
}

print $emp{'lead'}{'it'}[2]->{COUNTRY};

Popularity 1/10 Helpfulness 1/10 Language perl

Source: Grepper

Tags: hash perl

Link to this answer
Share Copy Link

Contributed on Apr 26 2023

@CodeGrepperManu

0 Answers Avg Quality 2/10

multidimensional hash in perl

Contents

More Related Answers

multidimensional hash in perl

Closely Related Answers

multidimensional hash in perl

Grepper

Documentation

Social

Legal

Contact

Oops, You will need to install Grepper and log-in to perform this action.