Re: Need Help in Array

[Utilitarian]

in reply to Need Help in Array

Take a look at the following:

#!/usr/bin/perl
use strict;
use warnings;

my %modules;
my $current_module;
while(<DATA>){
    if(/Module:\s*(\d+)/){
        $current_module=$1;
    }
    else{
        $modules{$current_module}{$1}=$2 if (/^(\w+)\s*:\s*(\w+)$/);
    }
}
use Data::Dumper;
print Dumper(\%modules);


__DATA__
Module: 1

ID:001

Customer : yes

Module: 2

ID:002

Customer : no

Module: 3

ID:003

Customer : yes

Module: 4

ID:004

Customer : no