You might want to use parens around your list %Projects?
i.e.
my(%Projects) = (
#Server Products
'CaptureServer' =>
{ 'WorkingDirectory' =>
"$ProjectDir\\Src\\CaptureComponents\\CaptureServer",
'CommandLine' => { 'Release' => "devenv /release /rebuild /out
CaptureServer.out Cap
'Debug' => "devenv /debug /rebuild /out
CaptureServer.out Capture
},
(etc...)
)
Your referencing your whole hash.
> I have the folowing:
> my(%Projects) = {
>
> #Server Products
>
> 'CaptureServer' =>
> { 'WorkingDirectory' =>
> "$ProjectDir\\Src\\CaptureComponents\\CaptureServer",
> 'CommandLine' => { 'Release' => "devenv /release /rebuild /out
> CaptureServer.out Cap
> 'Debug' => "devenv /debug /rebuild /out
> CaptureServer.out Capture
> },
>
> (etc...)
> };
>
> foreach $project (keys %Projects) {
>
> $wd = $Projects{$project}{'WorkingDirectory'};
>
> print "Building $Type $project in $wd: ...\n";
>
> }
>
> Yet when I run it I get:
>
> *** 100-05-15 14:54:08 Building Release HASH(0x8c98e10) in : ...
>
> I am obviously missing something in the syntax. I thought that $project
> would be a string ('CaptureServer' etc.).
>
> Any ideas as to what I am doing wrong?
>
> Thank you.
>
> Kevin Burton
> [EMAIL PROTECTED]
>
>
> ---
> You are currently subscribed to perl-win32-users as:
> [EMAIL PROTECTED]
> To unsubscribe, forward this message to
> [EMAIL PROTECTED]
> For non-automated Mailing List support, send email to
> [EMAIL PROTECTED]
>
>
---
You are currently subscribed to perl-win32-users as: [archive@jab.org]
To unsubscribe, forward this message to
[EMAIL PROTECTED]
For non-automated Mailing List support, send email to
[EMAIL PROTECTED]
