小的不才，请问如何用$^I=""修改文件

mazelmiler

如题~

jsz

给你一个perl语言入门的例子好了，呵呵

#! /usr/bin/perl – w
use strict;
chomp(my $date = ‘ date’ );
$^I =“ .bak” ;
while(<>){
s/^Author:.*/Author: Randal L. Scharwartz/;
s/^Phone:.*\n//;
s/^Date:.*/Date: $date/;
print;
}

mazelmiler

不太明白！刚接触perl，麻烦解释一下

churchmice

ls的例子摘自learning perl
你自己看一遍就都知道了
总比一遍一遍在这边问好

小公猫

原帖由 jsz 于 2008-7-4 10:36 发表
给你一个perl语言入门的例子好了，呵呵

#! /usr/bin/perl – w
use strict;
chomp(my $date = ‘ date’ );
$^I =“ .bak” ;
while(){
s/^Author:.*/Author: Randal L. Scharwartz/;
s/^Phone:.*\n// ...

lz想要的是直接修改原文件
你这应该是生成一个.bak的文件吧