----- Original Message -----
From: "Sisyphus" <[EMAIL PROTECTED]>
>
> That should work, except that the variable you set is called
> %FOO_TOKEN%_DIR, and the one you asked for is called %%FOO_TOKEN%_DIR%
> (which is different and doesn't exist - hence the uninitialised value).
>
Aaah ... sorry, didn't read properly. The following maybe what you're after,
though I'm still not sure that I understand correctly:
use warnings;
use strict;
my $foo_token_dir = "FOO_TOKEN";
my $foo_token_value = `set $ENV{$foo_token_dir}`;
print "\$foo_token_value: $foo_token_value\n";
# or rather:
$foo_token_value = (split /=/, `set $ENV{$foo_token_dir}`)[0];
print "\$foo_token_value: $foo_token_value\n";
__END__
Cheers,
Rob
_______________________________________________
Perl-Win32-Users mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
