perl 正则表达去括号变负号

【perl 正则表达去括号变负号】

perl 正则表达去括号变负号

文章插图
改变括号中负号的Perl正则表达式介绍改变括号中负号的perl正则表达式:#!/usr/bin/perl my @ a =( quot;(120,230,000) quot;,quot(ABC) quot;,quot123,000quot);#如何把上面有数字并且用括号括起来的数变成负数,但是括号里没有数字