PV
Size: a a a
PV
V
V
PV
V
V
V
PV
PV
V
PV
V
PV
PB
foreach $row (@{$projectsdata}) {
if (int(${$row}[1]) == 0){
my $prcode = ${$row}[0];
$prjkts{$prcode} = {
prj_type => ${$row}[2],
prj_startdate => ${$row}[3],
prj_name => ${$row}[4],
prj_comments => ${$row}[5],
};
}
print "{ ";
for $prj (sort keys %prjkts ) {
print "$prj={ ";
%__prj = $prjkts{$prj};
for $_prj ( sort keys %__prj) {
print "$_prj=\"$__prj{$_prj}\" ";
}
print " }, ";
}
print "}\n";
PV
PB
PB
{ 3O4w8z={ HASH(0xa80ce28)="" }, Ez0GXK={ HASH(0xa80d1e8)="" }, IOVQUg={ HASH( 0xa80d008)="" }, SLgeYq={ HASH(0xa80d2c4)="" }, TzKikz={ HASH(0xa80ca4c)="" } , hkoopd={ HASH(0xa80d508)="" }, htthtt={ HASH(0xa80d4b8)="" }, mO2KVH={ HASH( 0xa80cc2c)="" }, }
PB
MT