File not being written to and no errors?
From: Arichmond (arichmond_at_snap.org)
Date: 07/29/04
- Previous message: Randy W. Sims: "Re: Modifying @INC"
- Next in thread: Jeff 'Japhy' Pinyan: "Re: File not being written to and no errors?"
- Reply: Jeff 'Japhy' Pinyan: "Re: File not being written to and no errors?"
- Maybe reply: Arichmond: "RE: File not being written to and no errors?"
- Messages sorted by: [ date ] [ thread ] [ subject ] [ author ]
Date: Thu, 29 Jul 2004 08:18:22 -0400 To: <beginners@perl.org>
I have a file I am trying to read and write to, it's obviously opening
it ie.. No errors but not writing to it.
Since no errors are being produced I can't figure out why?
In short I am reading the file to see if I previously sent an email
concerning a "name" and if I have then don't send another email, if I
have not then do send an email.
I am pretty sure of the logic as I receive the email, but it is not
writing the new "name" to the file.
Above and below, I am opening another file read/write in the same way
and it works just fine. Any suggestions on how to check what's going on?
I am using strict, warnings and diagnostics and everything appears to be
clear.
File:
-rwxrwxrwx 1 root root 11 Jul 28 08:59 sent
1)
#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
use Net::NBName;
use Fcntl ':flock';
use Net::Ping::External qw(ping);
our ($d,$m,$y)=(localtime(time-86400))[3..5];$m+=1;$y+=1900;
...
...
2)
our $done='/var/scripts/snmp/sent';
our %sent=();
...
...
3)
open (DONE,"+>>$done") or die "Cannot open file: $!";
flock (DONE, 1);
foreach (<DONE>){
chomp($_);
$sent{$_}="";
}
....
...
if (exists $sent{$mapn}){
}else{
...
...
4)
}elsif($ns && ($ns->as_string =~ /^(.*)\s*\<00\>/i)) {
push @mailbody, "AN
UNAUTHORIZED Device Was Detected\n";
push @mailbody,
"$maprh,$maprb,$maprp,$maprm,$mapip,$1\n";
print DONE "$1\n";
...
...
5)
...
flock(DONE, 8);
close(DONE);
...
Thanks,
Rich
- Previous message: Randy W. Sims: "Re: Modifying @INC"
- Next in thread: Jeff 'Japhy' Pinyan: "Re: File not being written to and no errors?"
- Reply: Jeff 'Japhy' Pinyan: "Re: File not being written to and no errors?"
- Maybe reply: Arichmond: "RE: File not being written to and no errors?"
- Messages sorted by: [ date ] [ thread ] [ subject ] [ author ]
Relevant Pages
|
|
