in reply to vars going out of scope!

Strange, I only get the use of uninitialized value, and the elements of the array are printed. The uninitialized value comes from the fact you let $cnt become scalar @array. But the last element of the array has index scalar (@array) - 1. Use either for (my $cnt = 0; $cnt < @array; $cnt) { ... }, or 
    foreach my $elem (@array) {
        print $elem;
    }

[download]

Abigail

Replies are listed 'Best First'.
Re: Re: vars going out of scope!
by aquarium (Curate) on Apr 23, 2003 at 01:04 UTC
    thanks for your quick post....maybe i should have used original code, which at moment i don't have access to as it's on a customer site with dial-up and someone else is in there at moment. the original code, which i re-wrote to use arrays. the jist of the original code was: 
    # no strict or warnings
$bla = "this and that";
$file = "c:\filea";
system("echo $bla > $file");  # this works
if (1==1) #not the actual test, but it goes in this test
{
  system("echo $bla > $file");  #this never occurs
  #if run by an exe that calls Perl -U this_script
  #and passes output to IIS
  #it does work from cmd prompt
}

    [download]
    is this a perl install issue? stacks? weird stuff!

    Chris

[reply]
[d/l]
      This is an IIS issue. Your installation of Perl is OK. You have to remember that IIS is running as a different account. If your script doesn't have permissions to accomplish the task, usually your script will just not run that part. When you make system calls w/in your Perl scripts that are run via IIS, you have to remember to set your environment just as if you were running it from the same cmd.exe environment. The easiest way (not the safest) is to use IIS admin tool to set your script up to run as you and then restart the server. If it runs as expected, that means you have to think about the security issues of running it that way, but it gets it working in the short term. This was a problem for Net::Ping users that developed IIS apps to use it... their scripts had to be run as Admin... yuch. Win32::PingICMP uses a dll which is the same that Win uses to allow anonymous ping. Hope that helps :) (been there too) JamesNC :0)
[reply]
        thanks a lot...will look into it from that angle in the morning at work. Chris
[reply]

In Section Seekers of Perl Wisdom