Perl替换IP

lin_wang

1^# lin_wang 发表于 2008-04-03 14:18

比如IP地址的配置文件eth0
IP=192.168.1.1

怎么用Perl替换掉里面的IP地址？

#!/usr/bin/perl

use strict;
use warnings;

my ($ip) = (`/sbin/ifconfig eth0` =~ /inet addr:(\d+\.\d+\.\d+\.\d+)/);

flw

2^# flw 发表于 2008-04-03 14:28

perldoc -f s

lin_wang

3^# lin_wang 发表于 2008-04-03 14:34

QUOTE:

原帖由 flw 于 2008-4-3 14:28 发表
perldoc -f s

Perl正则里的s替换？
但是，需不需要用open开一个文件句柄呢？

__lxmxn__

4^# __lxmxn__ 发表于 2008-04-03 15:00

需要开句柄打开文件读取IP啊，武汉的兄弟~

lin_wang

5^# lin_wang 发表于 2008-04-03 15:16

QUOTE:

原帖由 __lxmxn__ 于 2008-4-3 15:00 发表
需要开句柄打开文件读取IP啊，武汉的兄弟~

IP我不是已经获取了吗？
我现在要做的是将eth0这个文件里旧的IP替换掉

apile

6^# apile 发表于 2008-04-03 17:28

开一个新file..储存跟旧的文件一模一样....然後把新的IP存进去..再copy回来...
记得原来的要备份成.bak..这样子如果出问题..也可以救回来

shijiang1130

7^# shijiang1130 发表于 2008-04-03 17:36

redhat 的ip配置文件在/etc/sysconfig/network-scirpts.
改里面就行了啊。`/sbin/ifconfig eth0`？？