忘记密码   免费注册 查看新帖 | 论坛精华区

ChinaUnix.net

  平台 论坛 博客 认证专区 大话IT HPC论坛 徽章 文库 沙龙 自测 下载 频道自动化运维 虚拟化 储存备份 C/C++ PHP MySQL 嵌入式 Linux系统
最近访问板块 发新帖
查看: 583 | 回复: 2

perl替换文件内容 [复制链接]

论坛徽章:
0
发表于 2017-06-26 12:57 |显示全部楼层
#!/usr/bin/perl

print "ntpdate时间校对完毕\n";
#sleep(1);

open(NTP, "+>>/var/spool/cron/root") or die "/var/spool/cron/root 文件无法打开, $!";

while($_ = <NTP>){
        if($_ !~ /asia/){
                syswrite(NTP,"\n*/5 * * * * /usr/sbin/ntpdate 1.asia.pool.ntp.org > /dev/null 2 >&1\n");
        }
}
close(NTP);

无法成功添加内容。多谢。



论坛徽章:
7
戌狗
日期:2013-12-15 20:43:38技术图书徽章
日期:2014-03-05 01:33:12技术图书徽章
日期:2014-03-15 20:31:17未羊
日期:2014-03-25 23:48:20丑牛
日期:2014-04-07 22:37:44巳蛇
日期:2014-04-11 21:58:0915-16赛季CBA联赛之青岛
日期:2016-03-17 20:36:13
发表于 2017-06-27 01:17 |显示全部楼层
shishi:
  1. print "hello\n";

  2. my $cron    = '/var/spool/cron/root';
  3. my $ASIA    = "\n[ YOUR print data HERE ]\n";
  4. my $NO_ASIA = 1;

  5. open NTP, '+>>', $cron or die "$cron die, $!";
  6. seek NTP, 0, 0;

  7. while (<NTP>) {
  8.     $NO_ASIA = 0 if /asia/;
  9. }

  10. print NTP $ASIA if $NO_ASIA;

  11. close NTP;
复制代码

论坛徽章:
0
发表于 2017-06-27 13:39 |显示全部楼层
回复 2# rubyish

谢谢
您需要登录后才可以回帖 登录 | 注册

本版积分规则

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号 北京市公安局海淀分局网监中心备案编号:11010802020122
广播电视节目制作经营许可证(京) 字第1234号 中国互联网协会会员  联系我们:
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP