Perl programming on MPE/iX - April 2002

Solution Symposium Page 21April 4, 2002
using regular expressions
$showme=`callci showme`;
if ($showme =~ /RELEASE: ([A-Z]\.(\d)(\d)\.\d\d)/) {
$release = $1; # the matching V.UU.FF
$mpe = "$2.$3"; # the matching U and U (i.e. 7.0)
}
$showme =~ s/LDev/Logical Device/gi; # global substitution
• $n contains the value of the n-th matching parenthesized regexp
• the g suffix causes a global substitution
• the i suffix causes case-insensitive matching