change:
to:@NAMESPACE = $APPCLASS . "~" . $INSTANCE . "~" . $PARA +METER . "~" . $PARAM_TYPE;
Output:push @NAMESPACE, join '~', $APPCLASS, $INSTANCE, $PARA +METER, $PARAM_TYPE;
Side note: Typically, you would pass a reference to Data::Dumper:$VAR1 = 'ORACLE_AVAILABILITY~atecr~InstanceStatus~CONSUMER'; $VAR2 = 'ORACLE_AVAILABILITY~atecr~RSSpaceLeft~CONSUMER'; $VAR3 = 'ORACLE_AVAILABILITY~atecr~CannotExtend~CONSUMER'; $VAR4 = 'ORACLE_CAPACITY~atecq~FreeSpace~CONSUMER'; $VAR5 = 'ORACLE_CAPACITY~atecq~ExtentsLeft~CONSUMER'; $VAR6 = 'ORACLE_CAPACITY~atecq~CursorsLeft~CONSUMER';
print Dumper(\@NAMESPACE); __END__ $VAR1 = [ 'ORACLE_AVAILABILITY~atecr~InstanceStatus~CONSUMER', 'ORACLE_AVAILABILITY~atecr~RSSpaceLeft~CONSUMER', 'ORACLE_AVAILABILITY~atecr~CannotExtend~CONSUMER', 'ORACLE_CAPACITY~atecq~FreeSpace~CONSUMER', 'ORACLE_CAPACITY~atecq~ExtentsLeft~CONSUMER', 'ORACLE_CAPACITY~atecq~CursorsLeft~CONSUMER' ];
Side note: use "readmore" tags for large code samples: Writeup Formatting Tips
In reply to Re^5: XML::Twig Help
by toolic
in thread XML::Twig Help
by onegative
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |