Help for this page

Select Code to Download

Select or download this

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

Select or download this

[root@moops perl]# t10f.pl
Iteration# 0: Version is: 10.2.0.1.0
...
Iteration# 4: Version is:
Iteration# 5: Version is:
[root@moops perl]#