PERL Scripting Support Thread

[Tamblot]

---

Im currently working with PERL scripts for our hardware evaluation and it just crossed my mind to create a thread about PERL script support.

Anybody out there who have expertise and are familiar on this can post their solutions to problems and issues raised here.

Right now, Im using ActivePerl 5.8.8.822. My editors are Komodo Edit 4.2.0 and Code Wright 7.5.

[Tamblot]

To start with, does anybody here have an idea on automation of Excel thru PERL script. Below is the chart plotting lines from the script I'm using for my hardware evaluation.

my $Range = $Sheet->Range($B);
my $Chart = $Excel->Charts->Add;
$Chart->{ChartType} = xlXYScatter;
$Chart->SetSourceData({Source => $Range, PlotBy => xlColumns});
$Chart->{HasTitle} = 1;
$Chart->ChartTitle->{Text} = "FO vs MSE";

What I want is that I can create legends automatically. Anybody?

[Tamblot]

Here is some concern that I have today. Its about subroutines.

# main program
$val = 1;
...
...
sbr1($val);
sbr2($val);
#end of main program

sub sbr1{
$a = @_; # $a receives the value of $val. This is a scalar.
printf"$a\n";
}


sub sbr2{
@m = @_; # $a receives the value of $val. This is an array.
$a = $m[0];
printf"$a\n";
}

If I run the script, I get different values of $a. Any idea why?

[cold_fusion]

On sbr2, you are passing parameter $val which is not an array.
If the function asks for an array var, array should be passed.
Sbr1 is ok because $val is scalar (=1).

[Tamblot]

thanks for the reply.

But in Perl, either you have this subroutine,

sbr1($a);

or this one

sbr1($a,$b,@c);

All of those passed variables are dumped into one variable and that is @_ and can the be broken down into $_[0], $_[1]...,$_[n];

now if im going to do this

$x = @_;

I am suppose to expect that the content of my $x would be the content of $_[0], right?

Any comment?

[cold_fusion]

>sbr1($a,$b,@c);
>All of those passed variables are dumped into one variable and that is @_ and can the be broken down into $_[0], $_[1]...,$_[n];
Correct.

But your

>$x = @_;

is illegal because, the parameter @_ is an array.
If you want to pass a single scalar parameter and assign it to $a use:

$a = $_[0]

[bishop__]

Exist Global Inc. is urgently looking for Perl Developers.

Please see this link if interested: https://www.istorya.net/forums/jobs/5...er-urgent.html