Posted By

alfirth on 03/05/11


Tagged


Versions (?)

parse jboss instances


 / Published in: Perl
 

  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  

You need to login to post a comment.