[linux-programming] sed

[net]

saya bikin file perl yg isi nya seperti ini
#!/opt/lampp/bin/perl -W

sub daemonize;

use File::Compare;
use File::Copy;
my $sec_counter = 0;

&daemonize;

while(1) {
        snort_config();
}

sub snort_config {
system("cat /usr/local/snort/snort.conf  | grep var | grep HOME_NET |
grep -v \"^#\" | head -n 1 > filename");
        if 
(compare("/root/melihat_koneksi/filename","/IardFileServer/www/pa/config/filename")
!= 0) {
system("cat /root/melihat_koneksi/filename > $var");
system("cat /IardFileServer/www/pa/config/filename > $var1");
                system("sed -i -e 's/$var/$var1' /usr/local/snort/snort.conf");
        }
}

isi dari filename itu var HOME_NET 10.14.200.0/24
rencananya mau rubah yg di /usr/local/snort/snort.conf dari
10.14.200.0/24 jadi yg ada di file
/IardFileServer/www/pa/config/filename

-- 
Berhenti langganan: [EMAIL PROTECTED]
Arsip dan info: http://linux.or.id/milis