perl script not reading exclusion file
by vinmansbrew from LinuxQuestions.org on (#6D1PE)
I have a perl script that I use to generate a list of names, for a mailing listserv. I use an inclusion list, and exclusion list, to add or block names, as needed.
Well, for some time, the exclusion part has not been reading properly. The inclusion part works fine, but something is stopping the exclusion from working as intended.
The script does not fail, there are no errors.
So, I am not sure what the problem is. My perl is a bit older, but I don't think that is directly the problem. I have 5.16.3, the script itself, was written on an older version.
So, it's possible my syntax, while "correct", doesn't actually work. I have others that work, and I've tried to recreate the exclusion file. So, I am not sure what the problem is.
I should probably add, that the script calls a file that has email addresses in it, that I want excluded. I've checked the permissions on this file, and ACLs, and they appear to be perfectly fine.
Quote:
Well, for some time, the exclusion part has not been reading properly. The inclusion part works fine, but something is stopping the exclusion from working as intended.
The script does not fail, there are no errors.
So, I am not sure what the problem is. My perl is a bit older, but I don't think that is directly the problem. I have 5.16.3, the script itself, was written on an older version.
So, it's possible my syntax, while "correct", doesn't actually work. I have others that work, and I've tried to recreate the exclusion file. So, I am not sure what the problem is.
I should probably add, that the script calls a file that has email addresses in it, that I want excluded. I've checked the permissions on this file, and ACLs, and they appear to be perfectly fine.
Quote:
| my $mExcludingFile = "excludes/everyone.txt"; my $includingFile = "includes/everyone.txt"; my @mArray = (); my $mLine; my $mCountAll = 0; my $mCountOrig = 0; my $mCountAdd = 0; my $mCountDel = 0; open(ROFILE, "<", $mExcludingFile) or die("Can't open $mExcludingFile exception file!"); while(<ROFILE>) { push(@mArray, $_); } close(ROFILE); my $mArrayNow; my $entry; |