in reply to Re: Open an application from windows registry
in thread Open an application from windows registry

Hello, if i sepcifiy the path in registry without using the content of $version it works. I tryied with "" and running it as admin, it makes unfortunately no difference.
  • Comment on Re^2: Open an application from windows registry

Replies are listed 'Best First'.
Re^3: Open an application from windows registry
by Corion (Patriarch) on Feb 27, 2017 at 08:38 UTC

    Single quotes don't interpolate variables. Double quotes do.

    use Win32::TieRegistry (Delimiter => '/');
my $version=2.1;

my $key_single = 'HKEY_LOCAL_MACHINE/Software/SPS/$version';
my $key_double = "HKEY_LOCAL_MACHINE/Software/SPS/$version";

print "Single quotes: <$key_single>\n";
print "Double quotes: <$key_double>\n";

    [download]

    See perlop

[reply]
[d/l]
      Thanks, i ran it again as admin and it worked.
[reply]
Re^3: Open an application from windows registry
by huck (Prior) on Feb 27, 2017 at 09:34 UTC

    edit: nevermind, it had typos and got me confused, i guess i should be asleep 

    use Win32::TieRegistry (Delimiter => '/');
my $version=2000;
{
my $mykey0 = $Registry->{"HKEY_LOCAL_MACHINE/SOFTWARE/ActiveState/Acti
+vePerl/$version"};
print 'MK0:'.$mykey0."\n"; 
}
{
my $mykey2 = $Registry->{"HKEY_LOCAL_MACHINE/Software/ActiveState/Acti
+vePerl/$version"};
print 'MK2:'.$mykey2."\n"; 
}

{
my $mykey = $Registry->{"HKEY_LOCAL_MACHINE/SOFTWARE/ActiveState/Activ
+ePerl/$version/"};
print 'MK1:'.$mykey."\n"; 
my $mykeyval = $mykey->{'Help//'};
print 'MV1:'.$mykeyval."\n"; 
}

{
my $part='TroubleShooters'; 
my $mykey = $Registry->{"HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/DeviceM
+anager/$part/"};
print 'ms1:'.$mykey."\n"; 
my $mykeyval = $mykey->{'/TroubleShooter-3'};
print 'ms2:'.$mykeyval."\n"; 
}

__END__ 
my $version='2.1';

my $mykey = $Registry->{"HKEY_LOCAL_MACHINE/SOFTWARE/SPS/$version/"};
my $mykeyval = $mykey->{'/AppsDir'};
$mykeyval2="$mykeyval"."\\start.exe";

system("$mykeyval2");

    [download]
    This works just fine, no caps, no slash needed at end, does need double quotes.

    this is original with typos

    use Win32::TieRegistry (Delimiter => '/');
my $version=2000;
{
my $mykey0 = $Registry->{"HKEY_LOCAL_MACHINE/SOFTWARE/ActiveState/Acti
+vePerl/$version"};
print 'MK0:'.$mykey."\n"; 
}
{
my $mykey2 = $Registry->{"HKEY_LOCAL_MACHINE/Software/ActiveState/Acti
+vePerl/$version"};
print 'MK2:'.$mykey."\n"; 
}

{
my $mykey = $Registry->{"HKEY_LOCAL_MACHINE/SOFTWARE/ActiveState/Activ
+ePerl/$version/"};
print 'MK1:'.$mykey."\n"; 
my $mykeyval = $mykey->{'Help//'};
print 'MV1:'.$mykeyval."\n"; 
}

{
my $part='TroubleShooters'; 
my $mykey = $Registry->{"HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/DeviceM
+anager/$part/"};
print 'ms1:'.$mykey."\n"; 
my $mykeyval = $mykey->{'/TroubleShooter-3'};
print 'ms2:'.$mykeyval."\n"; 
}

__END__ 
my $version='2.1';

my $mykey = $Registry->{"HKEY_LOCAL_MACHINE/SOFTWARE/SPS/$version/"};
my $mykeyval = $mykey->{'/AppsDir'};
$mykeyval2="$mykeyval"."\\start.exe";

system("$mykeyval2");

    [download]
    Result 
    MK0:
MK2:
MK1:Win32::TieRegistry=HASH(0xb6e354)
MV1:C:\Perl\html\index.html
ms1:Win32::TieRegistry=HASH(0xa3ec64)
ms2:hcp://help/tshoot/Err_Hardw_Error3.htm

    [download]
    First you need the double quotes,
    Second SOFTWARE is all caps,
    Third "subkey-name" has to end in a slash (delimiter).

    http://search.cpan.org/~adamk/Win32-TieRegistry-0.26/lib/Win32/TieRegistry.pm
    "Hash key string ends with a delimiter
    If the key string ends with a delimiter, then it is treated as a subkey name or path of subkey names separated by delimiters."

    what i think should work for you is below the __END__, i cant test it 'cuz i dont have SPS

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom