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

mazelmiler

UID: 25001
帖子: 2
积分: 4
在线时间: 10 分钟

1^# mazelmiler 发表于 2008-07-04 10:28

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

如题~

jsz

UID: 24467
帖子: 5
积分: 11
在线时间: 10 分钟

2^# jsz 发表于 2008-07-04 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//;
s/^Date:.*/Date: $date/;
print;
}

mazelmiler

UID: 25001
帖子: 2
积分: 4
在线时间: 10 分钟

3^# mazelmiler 发表于 2008-07-04 10:55

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

churchmice

UID: 31829
帖子: 2
积分: 4
在线时间: 10 分钟

4^# churchmice 发表于 2008-07-04 19:40

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

小公猫

UID: 32634
帖子: 1
积分: 2
在线时间: 10 分钟

5^# 小公猫发表于 2008-07-05 14:00

QUOTE:

原帖由 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的文件吧

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

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

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

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