perl,替换字符串，但字符串中有非字符的符号，比如替换“aaa>1”为“1”。
答案:1 悬赏:70
解决时间 2021-11-25 06:46
- 提问者网友：南佳人～
- 2021-11-24 21:43
例子举错了，比如我要替换“$aaa>1”为“1”。
最佳答案
- 二级知识专家网友：心痛成瘾
- 2021-11-24 22:22
唔.. 你举的例子有点含糊 aaa 也是字符吧.
那你是想弄走 $ 和 > ?
还是想弄走"非数字" ?
还是你只想得到最後的数字 ?
你是想表达 "$aaa" ( $aaa 是一个变数) ? 还是 '$aaa' ( $aaa 一个字串) ?
就你问的而言, 我会写成
$str = "$aaa>1";
$str =~ s/^.+[^\d](\d+)$/$1/;
print $str;
那你是想弄走 $ 和 > ?
还是想弄走"非数字" ?
还是你只想得到最後的数字 ?
你是想表达 "$aaa" ( $aaa 是一个变数) ? 还是 '$aaa' ( $aaa 一个字串) ?
就你问的而言, 我会写成
$str = "$aaa>1";
$str =~ s/^.+[^\d](\d+)$/$1/;
print $str;
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯