如何用PERL语言在字符串寻找指定的字符是否存在.

Question

$Data = "BRD1_EC2<9.0785(0.0011r,5r)R =nail=2,17 value=0ohm PN=ZNO30V4.2JCMS1812 * TOP";
问题1: 需要在$Data中寻找是否存在"<" 或者">",如果有的话就回串 $Result="FAIL"; 否则 $Result="PASS"
问题2: 如何取"(0.0011r,5r)R" 里面的"R", "R"后面是空格,但是他是变量,有时是一位,有时是两位.

因我的金额不多,下次补给你咧...

Answer 1

1.

$Result = ($Data =~ /[<>]/)?"FAIL":"PASS";

2.

($Data =~ /\)(.*?)=/) and ($R = $1);