切换IP地址(perl)

#!/bin/perl

@ARGV=glob '/etc/sysconfig/network-scripts/ifcfg-eth0';

$^I=".bak";
while(<>){
        s/^#(IPADDR|GATEWAY)/\1/ && print && next;


        s/^(IPADDR|GATEWAY)/#\1/;


        print;
}