perl替换文件内容

squall1

#!/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);

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

rubyish

shishi:

1. print "hello\n";
   
2. 
   
3. my $cron    = '/var/spool/cron/root';
   
4. my $ASIA    = "\n[ YOUR print data HERE ]\n";
   
5. my $NO_ASIA = 1;
   
6. 
   
7. open NTP, '+>>', $cron or die "$cron die, $!";
   
8. seek NTP, 0, 0;
   
9. 
   
10. while (<NTP>) {
    
11.     $NO_ASIA = 0 if /asia/;
    
12. }
    
13. 
    
14. print NTP $ASIA if $NO_ASIA;
    
15. 
    
16. close NTP;

复制代码

squall1

回复 2# rubyish

谢谢