关于perl中$^I的使用

oscillator_cn1

各位：      最近正在折腾使用perl修改文件。关于$^I的使用，有点问题，自己想不明白。因此，想问问大家，到底哪里错了？
      按照搜出来的例子，新建一个文件，命名为”nn“，里面内容是”my name is hahah"。perl脚本如下:

1. #!/usr/bin/perl -w
   
2. use strict;
   
3. 
   
4. $^I='.bak';
   
5. open IN,"nn";
   
6. while(<IN>){
   
7.     s/name/N/;
   
8.     print;
   
9. }
   
10. 
    

复制代码

   
运行 “perl test.pl"，屏幕上显示的结果是”My N is hahah"   
而运行“cat nn”，则还是原来的内容，“name”并没有被“N"给替换，而且也没有"nn.bak"文件生成。
我想请问大家，到底是哪个地方我弄错了呢？

sjtusonic

回复 1# oscillator_cn1


   换成双引号试试看：$^I=".bak";

oscillator_cn1

回复 2# sjtusonic

试了一下，一样的结果。。。。

iamr

1. open IN,"nn";是打开只读文件；你要建文件，要用open IN,">nn";
2. print不加file handle，是往屏幕上打印，不会打到文件里

sjtusonic

回复 4# iamr


   哈哈，原来问题在此，ls很细心：）

oscillator_cn1

回复 4# iamr
谢谢！