Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl
use strict ;
########################################################
...
   $o_vers = $1 if $STAGE[$j] =~ m{/rdbms/patches/([\d.]+)/};
   print "Iteration# $i: Version is: $o_vers\n" ;
}

Select or download this

for my $i (0..5){
   my $j = $i & 1;
   my $o_vers = $STAGE[$j] =~ m{/rdbms/(?:patches/)?([\d.]+)/} ? $1 : 
+'';
   print "Iteration# $i: Version is: $o_vers\n" ;
}