Chinaunix首页 | 论坛 | 博客
  • 博客访问: 2485423
  • 博文数量: 357
  • 博客积分: 1241
  • 博客等级: 中尉
  • 技术积分: 4864
  • 用 户 组: 普通用户
  • 注册时间: 2011-01-27 06:48
个人简介

下死功夫,动活脑筋;读好书,交益友

文章分类

全部博文(357)

文章存档

2019年(12)

2018年(23)

2017年(67)

2016年(45)

2015年(51)

2014年(58)

2013年(53)

2012年(42)

2011年(6)

分类: PERL

2014-01-02 11:16:23

删除一个ip地址

my $strTemp = "";
open(FILE,"/etc/steelport/round-robin.txt");
while()
{
       
        if(/192.168.9.196/)
        {
                  #先删除指定行,为空行
                $_ =~ s/^\w*$_//g;
                #删除空行
                $_ =~ s/^\s*$_//g;
        }
        $strTemp = $strTemp.$_;
        #print "  ",$strTemp;
}
open(FILE,"> /etc/steelport/round-robin.txt");
print FILE $strTemp;
close FILE;

阅读(1852) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~
评论热议
请登录后评论。

登录 注册