谁能介绍一下truncate在修改文件方面的具体用法？

qiyanse

1. chomp($BuildNum=<STDIN>);
   
2. open FR,"<test.xml" or "Cannot open test.xml:($!)\n";
   
3. open FW,"+<test.xml" or "Cannot open test.xml:($!)\n";
   
4.         
   
5.         while(<FR>)
   
6.         {         
   
7.           if(/\bBUILD\b\=/i){
   
8.          
   
9.                 s/(\bBUILD\b\=\")(?:.*)(\")/$1$BuildNum$2/i;
   
10.                 print FW $_;
    
11.           }else{print FW $_;}
    
12.         }
    
13.         truncate(FW,tell(FW));
    
14.         close FR;
    
15.         close FW;

复制代码

以上代码保存后可以执行，但是我不懂得  truncate(FW,tell(FW)); 在这里有什么特别的用处*？（另外，用truncate的时，有的时候在某行或某几行会多处几个字母，很奇怪）
如果没有  truncate(FW,tell(FW)); 程序也可以执行。

ly5066113

truncate
这个函数截断在 FILEHANDLE 上打开的或者 EXPR 命名的文件到指定的长度。

通俗点将，就是为了在不用临时文件的情况下，直接修改原文件。
你可以看到，上面的代码读、写都是对同一个文件。

qiyanse

谢谢你，但是我还是不懂，用truncate和不用trucate有什么不同？看起来结果都一样的啊。因为我的文件是xml格式的，而且我用了truncate之后会多加字母，这个我也不懂，是为什么？

ly5066113

可能我说的不准确，以代码为例吧：

1. $ seq 10 > test.xml
   
2. $ cat test.xml
   
3. 1
   
4. 2
   
5. 3
   
6. 4
   
7. 5
   
8. 6
   
9. 7
   
10. 8
    
11. 9
    
12. 10
    
13. $ cat test.pl
    
14. #! /usr/bin/perl
    
15. 
    
16. use strict;
    
17. use warnings;
    
18. 
    
19. open FR,"<test.xml" or die "Cannot open test.xml:($!)\n";
    
20. open FW,"+<test.xml" or die "Cannot open test.xml:($!)\n";
    
21. 
    
22. while(<FR>)
    
23. {
    
24.         print FW $_ if $. == 1;
    
25. }
    
26. 
    
27. truncate(FW,tell(FW));
    
28. close FR;
    
29. close FW;
    
30. $ test.pl
    
31. $ cat test.xml
    
32. 1

复制代码

1. $ seq 10 > test.xml
   
2. $ cat test.xml
   
3. 1
   
4. 2
   
5. 3
   
6. 4
   
7. 5
   
8. 6
   
9. 7
   
10. 8
    
11. 9
    
12. 10
    
13. $ cat test.pl
    
14. #! /usr/bin/perl
    
15. 
    
16. use strict;
    
17. use warnings;
    
18. 
    
19. open FR,"<test.xml" or die "Cannot open test.xml:($!)\n";
    
20. open FW,"+<test.xml" or die "Cannot open test.xml:($!)\n";
    
21. 
    
22. while(<FR>)
    
23. {
    
24.         print FW $_ if $. == 1;
    
25. }
    
26. 
    
27. #truncate(FW,tell(FW));
    
28. close FR;
    
29. close FW;
    
30. $ test.pl
    
31. $ cat test.xml
    
32. 1
    
33. 2
    
34. 3
    
35. 4
    
36. 5
    
37. 6
    
38. 7
    
39. 8
    
40. 9
    
41. 10

复制代码

qiyanse

太感谢了，:wink:  。现在懂了。谢谢你~~~

flw

tell 和 print 一起用会有 BUG 的吧。
不是同一个层面的东西。

hotsnow

原帖由 flw 于 2009-12-8 11:26 发表
tell 和 print 一起用会有 BUG 的吧。
不是同一个层面的东西。

我记得你以前写过的代码就是这样用的哦.没记错的话上面的代码应该是学你的,呵呵

flw

原帖由 hotsnow 于 2009-12-9 09:25 发表


我记得你以前写过的代码就是这样用的哦.没记错的话上面的代码应该是学你的,呵呵

你又是谁？

hotsnow

我是谁不重要嘛,关键是有bug要解决嘛.
flw 这么经典的代码,一定要记住了.呵呵