standalone_execution: - utpsm_executable: &seid_01 name: tpsm_BE rulesfile: [*rulesid_02,*rulesid_02,*rulesid_01] target_list: [*runid_01,*runid_03] - utpsm_executable: &seid_02 name: tpsm_LE rulesfile: [*rulesid_01,*rulesid_01] target_list: [*runid_02,*runid_01] #### for my $seindex (@$standalone_exec) { $se_exec_name[$k] = $utpsm_exec[$k]->{name}; $se_tgt_list[$k] = $utpsm_exec[$k]->{target_list}; $se_rulesfile[$k] = $utpsm_exec[$k]->{rulesfile}; #$temp = $se_rulesfile[$k][0]; #$temp2 = $temp->{name}; for my $rindex (@{$se_rulesfile[$k]}) { $se_rules_name[$j] = $rindex->{name}; $se_rules_hostname[$j] = $rindex->{hostname}; $se_rules_path[$j] = $rindex->{path}; $j++; } for my $run_index (@{$se_tgt_list[$k]}) { $se_run_target_controls[$i] = $run_index->{target_controls}; $se_run_target_types[$i] = $se_run_target_controls[$i]->{run_target_type}; $se_run_target_active[$i] = $se_run_target_controls[$i]->{run_target_active}; # print "se run wala : $i++; } #print "$se_run_target_username[0]\n"; $k++; } #### my $i = 0; my $j = 0; my $k =0; foreach my $se_index (@{$Yaml_Lib::standalone_exec}) { foreach my $se_runid (@{$Yaml_Lib::se_tgt_list[$i]}) { print " run target : $Yaml_Lib::se_run_target_username[$j]\n"; foreach my $rindex ( @{$Yaml_Lib::se_rulesfile[1]} ) { print "rules index = $rindex\n"; print "$Yaml_Lib::se_rules_name[$k]\n"; $k++; } $j++; } $i++; }