脚本-查找:perl -ne 'if(/^.{1,3}、/){print}' test.txt
(非空格:[^ ])
脚本-修改:perl -npi -e 's/^([0-9]{1,9})、/第$1章、/' test.txt
修改字符格式:iconv -f gbk -t utf-8 77616_gbk.txt > test.txt
压缩gzip:gzip 77616_gbk.txt
查看书本:less test.txt(全文) head test.txt(开头)
(开头为非空非空行:【dos2unix.exe test.txt】【perl -e '$i=1; while(<>) { if(!/^$/ && s/^([^ ]+)/第$i章 $1/) {++$i; print} else {print} }' test.txt > test2.txt】【unix2dos.exe 72373_gbk.txt】) 【匹配空格和非空格开头的[^ \r]】
去掉匹配第字开头的下一行awk '/^第/{print $0; getline; next}1' t.txt > a.txt
脚本-修改:perl -npi -e 's/^([0-9]{1,9})、/第$1章、/' test.txt
修改字符格式:iconv -f gbk -t utf-8 77616_gbk.txt > test.txt
压缩gzip:gzip 77616_gbk.txt
查看书本:less test.txt(全文) head test.txt(开头)
(开头为非空非空行:【dos2unix.exe test.txt】【perl -e '$i=1; while(<>) { if(!/^$/ && s/^([^ ]+)/第$i章 $1/) {++$i; print} else {print} }' test.txt > test2.txt】【unix2dos.exe 72373_gbk.txt】) 【匹配空格和非空格开头的[^ \r]】
去掉匹配第字开头的下一行awk '/^第/{print $0; getline; next}1' t.txt > a.txt