求教系统维护的高手们

Tonyish

用perl怎么直接去修改文件上的数据 ：例如（都是知道行数的情况下）要改第10行上的？

zhlong8

先把任务完成，遇到瓶颈了再考虑性能问题。你可以自己写个不过都是O(N)的，用 Tie::File 可能省点事

kiwivip

parser() if $. == 10 ;

jason680

回复 1# Tonyish

simple example:

$ seq 3 | perl -lape '$_.=" here" if $.==2'
1
2 here
3

   

Tonyish

谢谢各位了，我先看看Tie::File 的知识

yestreenstars

单行脚本：

1. perl -i -pe 's/.*/test/ if $.==10'

复制代码

多行脚本：

1. $^I = "";
   
2. while (<>) {
   
3.         s/.*/test/ if $. == 10;
   
4.         print;
   
5. }

复制代码

Tonyish

用Tie:File修改文件时，需要锁定文件吗？因为可以有多个进程在访问、增加数据什么的？
回复 2# zhlong8