overginign two arrays to a package!

[RBCS]

Hello,

Why are in the package Testing all the Vars from arr1 and arr2 in the
@array1 array and the @array2 empty?

Roman

___________________________

my (@tasks);
my (@args);

my $ResultofTesting = Testing->info($par1, $par2, @arr1, @arr2);


ackage Testing;

sub info{
my( undef, $param1, $param2, @array1, @array2 ) = @_;

 

[Paul Lalli]

Subject: Re: overginign two arrays to a package!

I have *no* idea what that first word is supposed to be. Please
consider at least using a spell checker.

Why are in the package Testing all the Vars from arr1 and arr2 in the
@array1 array and the @array2 empty?

my (@tasks);
my (@args);

my $ResultofTesting = Testing->info($par1, $par2, @arr1, @arr2);


package Testing;

sub info{
my( undef, $param1, $param2, @array1, @array2 ) = @_;

Because that's how subroutines work in Perl. More generally, that's
how lists and arrays work in Perl. Arrays "flatten" when making a list
assignment. If you want to keep track of where one array ended and
another began, you have to use references.

my $ResultOfTesting = Testing->info($par1, $par2, \@arr1, @arr2);

sub info {
my $class = shift; #don't throw this away...
my ($param1, $param2, $ref1, $ref2) = @_;
my @array1 = @{$ref1};
my @array2 = @{$ref2};
# . . .
}

Please read:
perldoc perlsub
perldoc perlreftut

Paul Lalli

 

[RBCS]

Hello Paul

Thanks

I Got it...!

Roman

I have *no* idea what that first word is supposed to be. Please consider
at least using a spell checker.


Because that's how subroutines work in Perl. More generally, that's how
lists and arrays work in Perl. Arrays "flatten" when making a list
assignment. If you want to keep track of where one array ended and
another began, you have to use references.

my $ResultOfTesting = Testing->info($par1, $par2, \@arr1, @arr2);

sub info {
my $class = shift; #don't throw this away... my ($param1, $param2,
$ref1, $ref2) = @_; my @array1 = @{$ref1};
my @array2 = @{$ref2};
# . . .
}
}
Please read:
perldoc perlsub
perldoc perlreftut

Paul Lalli

 

[Tad McClellan]

my $ResultOfTesting = Testing->info($par1, $par2, \@arr1, @arr2);

^^^

You missed a backslash:

my $ResultOfTesting = Testing->info($par1, $par2, \@arr1, \@arr2);

 

[Anno Siegel]

^^^

You missed a backslash:

my $ResultOfTesting = Testing->info($par1, $par2, \@arr1, \@arr2);

Not necessarily. Change

to

sub info {
my( $class, $param1, $param2, $ref1, @array) = @_;

to make it work.

Anno

 

[Brian McCauley]

Not necessarily.

TMTOWTDI! However some are preferable to others.

Change


to

sub info {
my( $class, $param1, $param2, $ref1, @array) = @_;

to make it work.

Yes that works. But when you come along next week and want to add
another argument to info() you'll curse yourself.

Also as a stylistic convention I'm certainly in favour of shifting a
method's class/self argument off @_ as a separate operation from
unpacking the remainder of the argument list.

 

[Brian McCauley]

Please consider at least using a spell checker.

See also:

http://www.geocities.com/SouthBeach/1915/chequer.html

sub info {
my $class = shift; #don't throw this away...
my ($param1, $param2, $ref1, $ref2) = @_;
my @array1 = @{$ref1};
my @array2 = @{$ref2};

I think you should point out that copying the arrays like this could be
expensive and usually not necessary. It is often simpler to work with
$ref1 and $ref2 dierctly.