###This takes counts the keys from the the in the hash previously populate from the file and puts it into scalar
my $oldsize = keys %old;
#Does the compare, and if the count of hash keys from the <$in> and different from the hash keys of @command has increased (i.e. new keys added)
if( keys %old > $oldsize ) # only write if new ips added
## If file is there then read contents into keys and associating a value of blank or () means new line?
## why wouldn't you do @old{<$in>} = undef; , would it be wrong?
@old{ <$in> } = (); # note: keys have \n
In this case no difference but possibly misleading you to think
@old{<$in>} = 1; would assign the value 1 to all the keys
from <$in> which is not the case. Try this simple example
#!/usr/bin/perl
use strict;
use Data::Dumper;
my @keys = ('a','b','c');
my %hash=();
@hash{@keys} = 1;
print Dumper \%hash;
__END__
$VAR1 = {
'c' => undef,
'a' => 1,
'b' => undef
};
poj
Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
Read Where should I post X? if you're not absolutely sure you're posting in the right place.
Please read these before you post! —
Posts may use any of the Perl Monks Approved HTML tags:
- a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
|
For: |
|
Use: |
| & | | & |
| < | | < |
| > | | > |
| [ | | [ |
| ] | | ] |
Link using PerlMonks shortcuts! What shortcuts can I use for linking?
See Writeup Formatting Tips and other pages linked from there for more info.
|
|