D
Doctor_mizo
Guest
Perl - Pattern matching between two machines?
I have this code:
use File::Tail;
$|++;
$name="C:\users\Mizo\desktop\log.t...
$file=File::Tail->new(name=>$name, maxinterval=>1,interval=>1, adjustafter=>1);
while (defined($line=$file->read)) {
if ($line=~/^Request:.*rules\.txt/i){
print "$line";
}
}
I am sending this agent from Linux machine to Windows machine to do pattern matching between the rules file and the log file..
but I have a problem that ..
How to make the agent get the rules from rules.txt which is in linux??
and if it's not possible how to send the rules file with the agent
with a simple code if you don't mind..
I have this code:
use File::Tail;
$|++;
$name="C:\users\Mizo\desktop\log.t...
$file=File::Tail->new(name=>$name, maxinterval=>1,interval=>1, adjustafter=>1);
while (defined($line=$file->read)) {
if ($line=~/^Request:.*rules\.txt/i){
print "$line";
}
}
I am sending this agent from Linux machine to Windows machine to do pattern matching between the rules file and the log file..
but I have a problem that ..
How to make the agent get the rules from rules.txt which is in linux??
and if it's not possible how to send the rules file with the agent
with a simple code if you don't mind..