请问如何把替换的字符串保存在源文件

honbj

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

1^# honbj 发表于 2007-10-25 14:29

请问如何把替换的字符串保存在源文件

#!/bin/perl

open(FH1,"/b");
      while($line1=<FH1>){
                     $line1=~s/^/ab/;
            }
      }

文件b的内容如下

cde
cde

变成
abcde
abcde

怎么才能直接在源文件里生效呢谢谢

bernana

UID: 9972
帖子: 188
积分: 432
在线时间: 2 天

2^# bernana 发表于 2007-10-25 14:44

s/(.*)/ab$1/ ??

honbj

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

3^# honbj 发表于 2007-10-25 14:48

这个也没有在文件里直接该我现在想直接在源文件生效
有大侠知道吗? 谢谢!!

formalin14

UID: 22155
帖子: 166
积分: 381
在线时间: 1 天 13 小时

4^# formalin14 发表于 2007-10-25 17:11

没有特别直接的方法, 只能重写, 或者直接用vi或emacs的正则替换功能.

perljoker

UID: 30669
帖子: 88
积分: 202
在线时间: 10 小时

5^# perljoker 发表于 2007-10-25 17:19

File::Tie
米写错吧

Lonki

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

6^# Lonki 发表于 2007-10-25 17:34

QUOTE:

原帖由 perljoker 于 2007-10-25 17:19 发表
File::Tie
米写错吧

写错了:>
Tie::File

ulmer

UID: 6072
帖子: 148
积分: 340
在线时间: 1 天 6 小时

7^# ulmer 发表于 2007-10-25 17:55

Key word: Edit the file just in place
Methods: using Perl switch -i -p -e
Example: perl -i -p -e 's/(.*)/ab$1/' your_file
Help: perl -h

--ulmer

honbj

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

8^# honbj 发表于 2007-10-26 16:46

请问不用命令行在程序里能实现吗谢谢

ubac

UID: 8216
帖子: 71
积分: 163
在线时间: 7 小时

9^# ubac 发表于 2007-10-26 16:55

QUOTE:

honbj

发表于 2007-10-26 16:46
请问不用命令行在程序里能实现吗谢谢

当然可以了
其实就是模拟手动修改的过程嘛
1、读文件到程序中
2、修改对应的位置
3、把修改后的信息写回文件

FinalBSD

UID: 46729
帖子: 18
积分: 41
在线时间: 10 分钟

10^# FinalBSD 发表于 2007-10-26 17:01

perl -pi -e ...