Re: capturing entries from the Registry

Replies are listed 'Best First'.
Re^2: capturing entries from the Registry by blueAdept (Beadle) on Jun 10, 2004 at 17:39 UTC
Because `$rec` is declared within the loop the hash/reference storage with the array is OK.(if uncommented as you said) Initially when I tried to prove this I saw the same memory address printed each iteration - so I thought you were onto something. I always thought declaration of a lexical within a loop meant new memory was allocated at that declaration, but apparently perl is smart enough that if you're not storing a reference away of the variable that it doesn't allocate new space for it on the next iteration. Simply storing away a reference to the variable though changes all that though. my @array; for ( 0 .. 5) { my $foo; $foo->{x} = $_; print "$foo->{x} - (Foo = " . $foo . ")\n"; push @array, $foo if (defined($ARGV[0])); } for (my $y = 0; $y < scalar(@array); $y++) { print "Stored Value at $y: $array[$y]->{x}\n"; } =pod When run without $ARGV[0] being defined: 0 - (Foo = HASH(0x182f168)) 1 - (Foo = HASH(0x182f168)) 2 - (Foo = HASH(0x182f168)) 3 - (Foo = HASH(0x182f168)) 4 - (Foo = HASH(0x182f168)) 5 - (Foo = HASH(0x182f168)) and with it defined: 0 - (Foo = HASH(0x182f168)) 1 - (Foo = HASH(0x1825490)) 2 - (Foo = HASH(0x18254d8)) 3 - (Foo = HASH(0x1825520)) 4 - (Foo = HASH(0x1825568)) 5 - (Foo = HASH(0x18255b0)) Stored Value at 0: 0 Stored Value at 1: 1 Stored Value at 2: 2 Stored Value at 3: 3 Stored Value at 4: 4 Stored Value at 5: 5 =cut [download]	[reply] [d/l] [select]
Re^3: capturing entries from the Registry by eric256 (Parson) on Jun 10, 2004 at 17:51 UTC
His my needs to be inside the loop though. Here is his `my $rec; $x->GetValues(\%vals ); for my $item (keys %vals) {` [download] He then assigns stuff to $rec inside the for loop, not to $item, if it where $item then he would be fine. So the `my $rec` needs moved down a few lines like.. `$x->GetValues(\%vals ); for my $item (keys %vals) { my $rec;` [download] But this still doesn't get the desired results because he is looping over the hash keys instead of just looking up the values like i showed in my last post. ___________ Eric Hodges	[reply] [d/l] [select]
Re^4: capturing entries from the Registry by blackadder (Hermit) on Jun 11, 2004 at 09:08 UTC
Oh God,...Tried few things to no avail! But I think I know what to do - ...I think!! - I will go through the %vals and get apps names, save the apps names in an array, go through each element in the array and rematch it against the %vals again and obtain the InstallSource this time round...I will give this a spin and see Thanks for your help. I'll be back. btw: how do I get rid of the empty registry entries? this is an example of the registry dump of an empty registry record; `$VAR1 = { '' => [ '', 1, '' ] };` [download] I tried the followin to to avail! `$x->GetValues(\%vals ); #print Dumper \%vals; for my $item (keys %vals) { #next if ($item eq ''); #din't work #next if ($item=~ /\W+/g ); # nor did this #next if ($item=~ /\W/g ); # no #next if ($item =~ /^[^\w]/); # no next unless ($item !~ /\W/); #no print "$item"; } print "---------\n";` [download] Thanks for the help. UPDATE1 *****Please ignore the above** This has worked; `$x->GetValues(\%vals ); #print Dumper \%vals; $rec->{app} = $vals{DisplayName}[2] if ( exists $vals{Display +Name}); $rec->{path} = $vals{InstallSource}[2] if ( exists $vals{Inst +allSource}); print "App : $rec->{app} print "Path :$rec->{path} \n"; print "---------\n";` [download] but, if the install source doesn't exits the this is display I get back; Use of uninitialized value in concatenation (.) or string at U:\script +s\listapps4.pl line 23. App : --------- Use of uninitialized value in concatenation (.) or string at U:\script +s\listapps4.pl line 23. App : --------- App : Apple Quicktime Pro 5.0.2 --------- App : Apple Quicktime Pro 5.0.2 --------- App : Apple Quicktime Pro 5.0.2 --------- App : Apple Quicktime Pro 5.0.2 --------- App : Apple Quicktime Pro 5.0.2 --------- App : Apple Quicktime Pro 5.0.2 --------- App : Apple Quicktime Pro 5.0.2 --------- App : Apple Quicktime Pro 5.0.2 --------- App : Apple Quicktime Pro 5.0.2 --------- App : Apple Quicktime Pro 5.0.2 --------- App : Apple Quicktime Pro 5.0.2 --------- App : Internet Explorer Q837251 --------- [download] And Not sure why is some entries are duplicated UPDATE2 ****** Ok, This gor rid of the errors `$rec->{app} = $vals{DisplayName}[2] if ( exists $vals{DisplayName}); $rec->{path} = $vals{InstallSource}[2] if ( exists $vals{Inst +allSource}); print "$rec->{app}" if ($rec->{app}); print "$rec->{path}" if ($rec->{path});` [download] But still don't know why Im still getting duplicates? UPDATE3 **************** Ok, I got around it this, but don't know if its the best solution? `$x->GetValues(\%vals ); $rec->{app} = $vals{DisplayName}[2] if ( exists $vals{Display +Name}); if ( exists $vals{InstallSource}) { $rec->{path} = $vals{InstallSource}[2]; } else { $rec->{path} = 'N/A'; } push (@source,$rec) if ($rec->{app}); } $Key->Close; } } print "\nListing Application information\n"; for my $apps (@source) { print "DisplayName\t: $apps->{app}"; print "InstallSource\t: $apps->{path}"; print "------------------------------------------------\n"; }` [download] But it works,...Thanks very much	[reply] [d/l] [select]