I am pretty new to perl. I was wondering how can I get two array return to my subroutine call.
my ( @nare, @baja)=givestats($xp);
It is giving me only one combined array of two variables. How should I solve this problem.
I want to arrays without any mix up.
Thanks,
Naresh
sub givestats {
my $xp=$_[0];
my @episodenum=();
my $count=1;#Flashback data is in $COR[1]
my @posreject=();
my @posaccept=();
my @flashaccept=();
my @eventtype=();
my @flashbacknum=();
#some code here******
return (@posaccept,@flashaccept);
}
On 3/9/06, Lynn. Rickards <[EMAIL PROTECTED]> wrote:
Lynn. Rickards wrote:
> [EMAIL PROTECTED] wrote:
>
>> Jan et al-
>>
>> Jan, I have this to you as well as the list because I have noticed
>> your name on a LARGE number of sites talking about WIN32::OLE and the
>> packages within it.
>>
>> I keep getting errors saying that no matter WHAT i have, range (xy) or
>> Cells (y,x) that Range and Cells errors out as not being a function.
>>
>> Could you explain to me what is wrong with my headers and or script? I
>> need to gather information on a large number of systems on a weekly
>> basis and populate an Excel spread sheet and this would help GREATLY
>> if i could get it working. when I made something quick and dirty using
>> perl to create a CSV that was able to give me what i needed to tweak
>> the sorting and pulling information out, so if you need to get
>> something else to show me the errors and explain that is ok.
>>
>> let me know if you would like me to find a host to link psinfo onto. I
>> believe it is freeware
>>
>> Thank you in advance,
>>
>> -Josh
>>
>> -----code follows-----
>
>
> < code snipped >
> As-is (after correcting mail formatting) the script itself
> generates a bunch of non-OLE errors. It would make it easier
> to assist if you were able to offer a minimal test-case without
> dependencies on a particular executable or network environment
> that reproduces the error...
>
> Also, exactly *what* is the OLE error you get...? Even that might
> help pinpoint.
>
> - Lynn.
OK, what I hope is the core error is syntactical - and the error
you mentioned makes sense -
Throughout, when you are setting Value, you are using parens...
$ws -> Range("A1") -> ('Value') = "Node";
...instead of curlies
$ws->Range("A1")->{Value} = "Node";
BTW the ' single quotes you use throughout to surround class members
are not necessary, though they apparently do no harm.
That done, I put Psinfo in place but running on localhost, and the
while loop...
while (!($examine[0] =~ m/OS Hot Fix.*/i)){
...just seems to run forever until I guess Excel runs out of patience
and craps out. Some error-checking might be in order in the loop.
HTH - Lynn.
_______________________________________________
ActivePerl mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
--
Naresh Bajaj, Intern,
Cardiac Rhythm Disease Management,
Medtronic Inc.,
763-514-3799
_______________________________________________ ActivePerl mailing list [email protected] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
