Cheers,
Ovid

Update: I tested your method of looking up hash elements and it appears to work:

use warnings;
my %hash1 = ( test => 3 );
my %hash2 = ( bobby => 15,
              what  => 'thehell' );

print "good\n" if %hash1->{'test'} < %hash2->{'bobby'};
print "good1\n" if $hash1{'test'} < $hash2{'bobby'};
[download]

Also, just because you have a particular key in existence does not mean that it's defined.

Make sure that %USERLIST->{...} is changed to $USERLIST{...}.

Join the Perlmonks Setiathome Group or just click on the the link and check out our stats.

For reasons that I've never been able to get an answer to, the following syntax is valid:

@array->[$idx];
%hash->{$key};
[download]



japhy -- Perl and Regex Hacker

Here's a guess :)

The -> notation implies a context -- in fact, it implies that whatever to the left is a reference, and whatever is to its right is "owned" by the referred-to object.

Perl seems pretty smart about context.

So, in these cases, it interprets the thing to the left as a reference to the object named, and voila, does the right thing, since the "members" are being referred to properly.

If you try to use ref() on the whole "thing" (hash or array) you won't see it as a reference because it is simply interpreting the "thing" in a scalar context, though.

Update:
Looking in perlref there is the cryptic comment:

. References of the appropriate type can spring into existence if you dereference them in a context that assumes they exist. Because we haven't talked about dereferencing yet, we can't show you any examples yet.

(See number 6).

I'm guessing that's the case here.

now i get this

Name "main::USERLIST" used only once: possible typo at D:\BIN\SCRIPTS\
+PerlScripts\45daysold\45daysold.pl line 44.
Name "main::USER_INFO" used only once: possible typo at D:\BIN\SCRIPTS
+\PerlScripts\45daysold\45daysold.pl line 44.
[download]

after chnaging it to this if ( $USERLIST->{$USER}->{'TIME'} < $USER_INFO->{'LastLogon'})

I notice that you are using an odd syntax for looking up hash keys. While %hash->{key} seems to work, the proper syntax is $hash{key}. The $ indicates that this is a scalar value, while the {key} indicates that it is an element of a hash.

Finally, regarding the question about warnings. my %USERLIST is unrelated to the issue of uninitialized value warnings, which apply only to scalar values. You may want something like this:

if (defined $USERLIST{$USER}{'TIME'}
    and defined $USER_INFO{'LastLogon'}
    and $USERLIST{$USER}{'TIME'} < $USER_INFO{'LastLogon'})
[download]

Thanks to all I solved the problem using this


if (not defined $USERLIST{$USER}{'TIME'}) {$USERLIST{$USER}{'TIME'}=0}
if ( $USERLIST{$USER}{'TIME'} < $USER_INFO{'lastLogon'})
{
   %USERLIST->{$USER}->{'TIME'} = $USER_INFO{'lastLogon'};
   %USERLIST->{$USER}->{'DISABLED'} = "DISABLED" if ($USER_INFO{'flags
+'} & UF_ACCOUNTDISABLE)
}
[download]

#!/usr/local/bin/perl -l -w

use strict;

my %hsh;

# Not '$hsh{hello} = 1' ???!!!
%hsh->{hello} = 1;

for (keys %hsh) {
 print "$_=$hsh{$_}";
}
[download]