Your Ad Here

advanced code snippet search

Posted By

alfirth on 03/05/11


Tagged


Versions (?)

parse jboss instances

 / Published in: Perl
 
Expand | Embed | Plain Text 
  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.