RE: how to pass multi array as args

[Charles K. Clarkson]

Max <[EMAIL PROTECTED]> wrote:
: 
: I test this and it works, there must be some other
: way, but i am only a newbie on perl, 
: 
: mysub("@a", "@b", "@c");
: 
: sub mysub {
:   my @a = shift;
:   my @b = shift;
:   my @c = shift;
: }


    Let's try a little test:

#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

my @x = 1 .. 3;
my @y = 'a' .. 'c';
my @z = 'aa' .. 'ac';

print Dumper [ [EMAIL PROTECTED], [EMAIL PROTECTED], [EMAIL PROTECTED] ];


mysub("@x", "@y", "@z");

sub mysub {
    my @x = shift;
    my @y = shift;
    my @z = shift;
    print Dumper [ [EMAIL PROTECTED], [EMAIL PROTECTED], [EMAIL PROTECTED] ];
}

__END__

prints:

$VAR1 = [
          [
            1,
            2,
            3
          ],
          [
            'a',
            'b',
            'c'
          ],
          [
            'aa',
            'ab',
            'ac'
          ]
        ];

$VAR1 = [
          [
            '1 2 3'
          ],
          [
            'a b c'
          ],
          [
            'aa ab ac'
          ]
        ];


    See the difference?


HTH,

Charles K. Clarkson
-- 
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968-8328


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]