perl 怎样同时读写一个文件

sellie

需求:
打开一个文件, 读入一行,然后做些操作, 把结果以覆盖的方式写回这行. 然后再下一行.到文件结束.
谢谢!

jason680

command line: argument with -i
perl code: $^I

"perldoc perlvar" and search /\^I  
      ...
      $INPLACE_EDIT
       $^I     The current value of the inplace-edit extension.  Use "undef"
               to disable inplace editing.  (Mnemonic: value of -i switch.)

sellie

有点抽象.不太理解.
我具体化一下.
有个文件file.txt, 每行一个人名.
Tom
Jerry
Helen

我的程序需要读入这个文件,逐行判断是男的还是女的.程序运行完会把file.txt更新成
Tom  Male
Jerry Male
Helen Femal

求一段使用$INPLACE_EDIT范例程序. 不要command line

kurri

1. #!/usr/bin/perl
   
2. @ARGV = "file.txt";
   
3. local $^I='';
   
4. while (<>) {
   
5.         s/(Tom|Jerry)/$1 Male/;
   
6.         s/(Helen)/$1 Femal/;
   
7.         print;
   
8. }

复制代码

sellie

自己又研究了下,这个命题可能mission impossible.
应该需要中间文件过渡.

dreamsdark

我以前也遇到过同样到问题，想要直接写回去好像是不可能的
必须对整个文件进行重写

jason680

楼上...都没有人看到4楼 ??

当然自己做可能会更好...
因为-i, $^I 在Windows 好像不work($^I='' didn't work on Windows)

C:\bat\CU>perl file.pl
Can't do inplace edit without backup at file.pl line 5.

modify the code to local $^I='.bak';

C:\bat\CU>perl file.pl

C:\bat\CU>type file.txt
Tom Male
Jerry Male
Helen Femal

C:\bat\CU>type file.txt.bak
Tom
Jerry
Helen

sellie

我在5楼post的时候4楼差不多也在同时在post.所以没有看到.
$INPLACE_EDIT的方法本质上其实也是通过中间文件了. 考虑的程序的易读性,我准备自己实现了--读一个文件,写成另一个. 完了改下名.删掉旧的.

freewind31

回复 8# sellie
一直是这么做的，呵呵
直接把文件内容读入变量，修改后，删除原来文件，创建同名文件，然后写入

   

kurri

回复 9# freewind31
直接向原文件写入比较好吧，万一你没有原文件的删除权限呢