本文介绍如何使用Perl脚本进行文本文件的查找、修改、压缩和查看操作，包括正则表达式应用、文件编码转换及基本文本处理技巧。
脚本-查找：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
扫一扫
2081
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
