Shell Programming and Scripting

#!/usr/bin/perl

my %persons;

while (<DATA>) {
if (/define person\{/ .. /\}/) {
        if (/define/) {
                $var="per".++$i;
                next;
        }
        @ar=split;
        $detail=$ar[0];
        delete $ar[0];
        $persons{$var}->{$detail}="@ar";
}
}
for ($j=1;$j<=$i;$j++) {
print "Person :-",$j,"\n";
print $persons{'per'.$j}->{'first_name'},"\n";
print $persons{'per'.$j}->{'last_name'},"\n";
print $persons{'per'.$j}->{'nickname'},"\n";
print $persons{'per'.$j}->{'address'},"\n";
print $persons{'per'.$j}->{'birthday'},"\n";
}


__DATA__
###############################################################################
###############################################################################
#
# PERSONAL DATA DEFINITIONS
#
###############################################################################
###############################################################################


define person{
        first_name      John
        last_name       Peterson
        nickname        Peter
        address         1024 Maple street
        birthday        November 11th, 1970
        }

define office{
        use                home office
        office_name        main
        office_description home post office
        }


define person{
        first_name      Jamie
        last_name       Bluff
        nickname        Bluff
        address         134 Downing street
        birthday        October 15th, 1974
        }


define person{
        first_name      Melanie
        last_name       Houston
        nickname        Mell
        address         111 Boston street
        birthday        January 5th, 1969
        }

define office{
        use                foreign office
        office_name        main
        office_description foreign post office
        }


define person{
        first_name      Blake
        last_name       Dawson
        nickname        Blakey
        address         512 Kendrick street
        birthday        February 6th, 1970
        }