parse jboss instances


/ Published in: Perl
Save to your folder(s)



Copy this code and paste it in your HTML
  1. if ( m|SAM_production/(SAM_Server_(\w+_(\w+?))_(\d{4}))/java/|g ) {
  2. my $jboss_dir = $1;
  3. my $db_name = $2; #not used
  4. $dir_ref->{$jboss_dir}->{UCN} = $3;
  5. $dir_ref->{$jboss_dir}->{jboss_port} = $4;
  6. }

Report this snippet


Comments

RSS Icon Subscribe to comments

You need to login to post a comment.