in reply to stumped on a complex data structure
output is ;;LINE;;SVC;LINE;ACCT;VIEW;;LINE;;;UPDT;SRCE;UPDT;UPDT;WORK; If you do want a hash, then you will have to sort the hash keys to get teh output in the order you want - jmy $output = ""; my @AofA = ( [ '1;;;;;;;', ';;;;;;;;', ';;;;;;;;', ';;LINE;;SVC;LINE;ACCT;VIEW;' ], [ '1;;', ';;;', ';;;', ';LINE;;' ], [ '1;;;;;', ';;;;;;', ';;;LAST;;;', ';UPDT;SRCE;UPDT;UPDT;WORK;' ] ); foreach my $array_ref ( @AofA ) { $output .= $array_ref->[3]; } print "$output\n";
|
|---|