perl -e 'while (<>) {chomp;@a=split /,/;foreach $line(@a) { $line=~/-/ and $line = eval $line;} print join(",",@a),"\n";}' 0<ABC 1>GOOD
--ABC 原文本
--GDDO 计算后的文档
提问和评论都可以，用心的回复会被更多人看到
评论
发布评论
相关文章
-
多种方式文本处理——javascript脚本、bash脚本、python脚本
文章目录行首行末添加字符串搜索当前目录中的所有文件，查找指定字符串截取
字符串 python java awk 正则表达式
