三分割的数字用中文读起来太麻烦了，写了个脚本转一下，中文四分割，分割符用汉字取代逗号，可以直接读。

echo "\n341,309,432,423,454,111\n1,132,390,489,452\n98,234,234,123"

341,309,432,423,454,111
1,132,390,489,452
98,234,234,123

echo "\n341,309,432,423,454,111\n1,132,390,489,452\n98,234,234,123" | sed -e 's#\([0-9]\+\),\([0-9]\)#\1\2#g' | rev | sed -e 's#\([0-9]\{4\}\)\([0-9]\+\)#\1万\2#g;s#\([0-9]*万\)\([0-9]\{4\}\)\([0-9]\+\)#\1\2亿\3#g;s#\([0-9万]*亿\)\([0-9]\{4\}\)\([0-9]\+\)#\1\2兆\3#g;s#\([0-9万亿]*兆\)\([0-9]\{4\}\)\([0-9]\+\)#\1\2京\3#g' | rev

34京1309兆4324亿2345万4111
1兆1323亿9048万9452
982亿3423万4123
※ 修改:·poocp 于 Feb  8 07:13:34 2021 修改本文·[FROM: 171.221.29.*]
※ 来源:·水木社区 http://www.newsmth.net·[FROM: 118.122.107.*]

修改:poocp FROM 171.221.29.*
FROM 118.122.107.*

比perl还迷幻，随便用个脚本不舒服百倍：

=> (let [ss ["98,234,234,123"
             "1,132,390,489,452"
             "341,309,432,423,454,111"]]
     (for [s ss]
       (apply str (reverse (map #(str %1 %2)
                                (map #(apply str (reverse %)) (partition-all
4 (reverse (remove-e s \,))))
                                "元万亿兆京"))) ))

("982亿3423万4123元" "1兆1323亿9048万9452元" "34京1309兆4324亿2345万4111元")

【 在 poocp (慢速随机指标) 的大作中提到: 】
: 标  题: 写了个将欧美3分割数字转为中国4分割数字的sed脚本
: 发信站: 水木社区 (Sat Feb  6 21:46:37 2021), 站内
:
: 三分割的数字用中文读起来太麻烦了，写了个脚本转一下，中文四分割，分割符用汉字取代逗号，可以直接读。
:
: echo "\n341,309,432,423,454,111\n1,132,390,489,452\n98,234,234,123"
:
: 341,309,432,423,454,111
: 1,132,390,489,452
: 98,234,234,123
:
: echo "\n341,309,432,423,454,111\n1,132,390,489,452\n98,234,234,123" | sed -e 's#\([0-9]\+\),\([0-9]\)#\1\2#g' | rev | sed -e 's#\([0-9][0-9][0-9][0-9]\)\([0-9]\+\)#\1万\2#g;s#\([0-9]*万\)\([0-9][0-9][0-9][0-9]\)\([0-9]\+\)#\1\2亿\3#g;s#\([0-9万]*亿\)\([0-9][0-9][0-9][0-9]\)\([0-9]\+\)#\1\2兆\3#g;s#\([0-9万亿]*兆\)\([0-9][0-9][0-9][0-9]\)\([0-9]\+\)#\1\2京\3#g' | rev
:
: 34京1309兆4324亿2345万4111
: 1兆1323亿9048万9452
: 982亿3423万4123
: ※ 修改:·poocp 于 Feb  6 22:03:27 2021 修改本文·[FROM: 118.122.107.*]
: ※ 来源:·水木社区 http://www.newsmth.net·[FROM: 118.122.107.*]
--
修改:poocp FROM 118.122.107.*
FROM 123.113.216.*

你直接用个文件做输入试试，估计你的脚本还得改改，我是拿网页
https://www.worldometers.info/coronavirus/的数据试的，整个网页保存为txt。

source digitCN.sh
digitCN < in.txt > out.txt

【 在 No1 的大作中提到: 】
: 比perl还迷幻，随便用个脚本不舒服百倍：
: => (let [ss ["98,234,234,123"
:              "1,132,390,489,452"
: ...................
※ 修改:·poocp 于 Feb  8 06:27:43 2021 修改本文·[FROM: 171.221.29.*]
※ 来源:·水木社区 http://www.newsmth.net·[FROM: 171.221.29.*]

修改:poocp FROM 171.221.29.*
FROM 171.221.29.*

我对clojure脚本的圆括号看得眼晕。而且转个文本还要装jdk，杀鸡用牛刀。
用sed一个执行文件就搞定了。遇到非得编程的问题才选择编程。

【 在 No1 的大作中提到: 】
: 那是因为你后面这个需求和原来的需求不是同一回事，需求变了脚本肯定要变：
: cat t1.html | bb -i '(println (clojure.string/replace (apply str *input*) #"(\d+,)+(\d+)" (fn [s] (let [s (first s)] (apply str (reverse (map #(str %1 %2) (map #(apply str (reverse %)) (partition-all 4 (reverse (remove #(= \, %) s)))) " 万亿兆京"))))) ))' > t2.html
: 我只是觉得对于你的需求来说，sed有点难写，而脚本要好写得多，一旦再增加点需求比如把123005变成十二万三千零五来显示这种，脚本改一下比sed就更要方便得多。
: ...................
--
FROM 171.221.29.*

能解决问题就行，何必执着于方式方法呢。

【 在 No1 的大作中提到: 】
: - bb：babashka，不用装jdk，一个可执行文件搞定；
: - 用Clojure也就手头刚好有，Python、ruby之流也一样一般系统自带；
: - 习惯就不晕，不熟悉sed的一样晕，对于这种已经稍微有点逻辑的需求sed的编写难度我认为和脚本没啥差别；
: ...................
--
FROM 171.221.29.*