免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 3853 | 回复: 6

請問如何用perl在檔案中指定行號插入指定字串 [复制链接]

论坛徽章:
0
发表于 2005-07-11 13:58 |显示全部楼层
請問如何用perl在檔案中指定行號插入指定字串?
例如
1111
2222
3333
4444
5555

第三行前面插入test

1111
2222
test
3333
4444
5555

论坛徽章:
0
发表于 2005-07-11 14:38 |显示全部楼层

請問如何用perl在檔案中指定行號插入指定字串

打开文件——把内容读入内存(用数组或hash结构)——进行插入操作——关闭后重新以重写模式打开文件——把内存中的数据写入文件——关闭文件

如果文件尺寸不怎么大,这样就可以了

论坛徽章:
0
发表于 2005-07-12 12:31 |显示全部楼层

請問如何用perl在檔案中指定行號插入指定字串

原帖由 "急不通" 发表:
打开文件——把内容读入内存(用数组或hash结构)——进行插入操作——关闭后重新以重写模式打开文件——把内存中的数据写入文件——关闭文件

如果文件尺寸不怎么大,这样就可以了


謝謝您的回答.......但是這個文件有2萬多行.........
請問是否有更好的方法??

论坛徽章:
0
发表于 2005-07-12 17:56 |显示全部楼层

請問如何用perl在檔案中指定行號插入指定字串

perl -ne 'print "test\n" if $#==3;print;'

$# 是我胡编的,忘了文件行是哪个变量,下班急着回家了 :)

论坛徽章:
0
发表于 2005-07-13 08:39 |显示全部楼层

請問如何用perl在檔案中指定行號插入指定字串

perl -ne 'print "test\n" if $.==3;print;'

不好意思,早上查了,文件行号是 $. ($NR, $INPUT_LINE_NUMBER)

论坛徽章:
0
发表于 2005-07-14 15:47 |显示全部楼层

請問如何用perl在檔案中指定行號插入指定字串

楼上的这样是插入了么?还是替换?文本更改了还是仅仅是输出?

论坛徽章:
0
发表于 2005-07-14 23:02 |显示全部楼层

請問如何用perl在檔案中指定行號插入指定字串

Using Perl model Tie::IxHash.
You can use thois model as retrieving from a hash in insertion order.
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们:huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP