Any ideas why this won't write to a file?? 1

[jewel464g]

The script write to stdout, but won't write to a file. Does anyone know what's going on?? I have to have this done by Friday, so I would really appreciate ANY help. Thanks so much.

Jewel



#!/usr/bin/perl -w
BEGIN { unshift @INC,"./blib/lib/";}
use File::Tail 0.98;
$name="/var/log/snort/alert" unless $name=shift @ARGV;
$debug=shift @ARGV || 0;


#open the file for writing, append to whatever data may be there
open (file2, ">> /var/log/snort/alert2&quot || die "opening alert2: $!";

print "Looking at $name \n";

#
# This is the old, pure object, interface
#
$file=File::Tail->new(name=>$name,debug=>$debug,interval=>1,maxinterval=>5,
adjustafter=>20,errmode=>"return&quot or
die "Could not open $name: $!";

while ($line=$file->read) {
if ($Found) {
print $line;
print file2 $line;
$Found = 0;
next;
}
if($line =~ /Priority: 1/){
print $line;
print file2 $line;
$Found = 1;
}
}

 

[raider2001]

The you need to give print the filehandle argument.

print file2 "hello";

 

[jewel464g]

Isn't that what I'm doing with this line?

print file2 $line;

 

[raider2001]

Sorry didn't see that line. Well what you have should work assuming you are getting to that line. Is the file "/var/log/snort/alert2" being created at all. If the file is there, then the open worked. As a test, you could add a 'print file2 "hello";' line right after the open.

Good Luck

 

[jewel464g]

Yes it's creating it and it's opening it, But it just isn't writing to the file. I have already tried your suggestion with the test, I used print file2 "123"; and still nothing. I've used the same syntax in another program and it worked fine. Do you think the tail stuff is somehow messing it up??

 

[LightElf]

file2 -> FILE2
???

 

[toolkit]

Perhaps you need to force a flush?

$| = 1;
OR:
use FileHandle
autoflush OUTPUT 1;

Cheers, Neil

 

[jewel464g]

Hi toolkit,

Does it matter where I put this in the program??

Thanks,
Jewel

http://www.geocities.com/jewel464g/

When faced with a decision, always ask, 'Which would be the most fun?'

 

[jewel464g]

Thanks toolkit, you're my hero!!

Jewel

http://www.geocities.com/jewel464g/

When faced with a decision, always ask, 'Which would be the most fun?'

 

[toolkit]

;-)