perl修改文件，请教

junchen2

小弟有一些文件要修改，但不想生成临时文件，想直接在原文件中修改，请问perl要怎么写呢？谢谢

flw

不如说说为什么不愿意生成临时文件？

churchmice

$^I=""

Chinese_Dragon

我想想问同样的问题。楼上的答案好像不行

churchmice

挖坟啊
自己去看小骆驼
上面有很详细的的例子

不死草

呵呵，那就把文件全部存储到数据或散列，然后修改撒，输出文件使用相同文件名覆盖。。。

redspider

是啊，为什么不用临时文件

netherunix

回复 1# junchen2
测试文件 test.ini 内容如下：
-----------------------------
[ip]=10.137.5.174
[username]=xuhao
[port]=8088
----------------------------
suse linux下测试通过！

1. #!/usr/bin/perl
   
2. 
   
3. use warnings;
   
4. 
   
5. system("clear");
   
6. 
   
7. print "Need Modify file:";
   
8. chomp($file=<STDIN>);
   
9. system("cat $file");
   
10. print "Before IP:";
    
11. chomp($ip=<STDIN>);
    
12. print "After IP:";
    
13. chomp($new_ip=<STDIN>);
    
14. print "Before Port:";
    
15. chomp($port=<STDIN>);
    
16. print "After Port:";
    
17. chomp($new_port=<STDIN>);
    
18. 
    
19. system("perl -pi -e s/$port/$new_port/g $file");
    
20. system("perl -pi -e s/$ip/$new_ip/g $file");

复制代码

2gua

内存中操作，然后再覆写文件。

zk1878

Tie::File模块将文本文件的内容绑定到一个数组中，
这样对数组的任何操作都将直接是对文本文件的修改
以下是例子
use Tie::File;                                                                  

my @lines; # 文件关联数组                                                         
my $filename='./test.dat'; # 记录文件名                                          

tie(@lines,'Tie::File',$filename) or die; # 将记录文件同数组关联，默认为文本型文件
                                          # 记录分隔符使用"\r\n"或"\n"           

$lines[0]="Hello"; # 这里对数组内容的操作就直接反映到文件中去了                  
$lines[1]="world!"; # 增加一条新记录                                             
splice(@lines,1,0,"insert another line"); # 在老记录之间插入记录                                                      
delete $lines[0]; # 删除记录                                                     

untie(@lines); # 解除文件同数组的关联