程嶏清单7-14.txt

< linux网络编程工具>>配套源码

$_ = "I have 4 + 19 dollars and 8/2 cents.\n";
s{ (
        \d+ \s*         # 匹配数字
        [+*/-]          # 匹配算术操作符
        \s* \d+         # 匹配其它数字
   )
}{ $1 }eegx;            
print;