# # /usr/local/lib/perl5/5.6.1/sun4-solaris # $msgFile = "./data/err-PHY-opt.dat"; ($msgFile =~ /\-opt.dat$/) ? $optsFile = 1 : $optsFile = 0; print "optsFile = " . $optsFile . "\n"; if ($msgFile =~ /\-opt.dat$/) { $optsFile = 1; } else { $optsFile = 0; } print "optsFile = " . $optsFile . "\n";