RE: arrays

[Charles K. Clarkson]

[EMAIL PROTECTED] <[EMAIL PROTECTED]> wrote:

: @array = map {"$_ P *NULL*"} (@array);

    That solution makes a nice subroutine:

my @array = (
    'Sun-router rack1.2 leeds',
    'Cisco-router rack3.2 skem',
    'Sun-switch rack2.3 manchester', );

concat_array( ' P *NULL*', [EMAIL PROTECTED] );

print Dumper [EMAIL PROTECTED];

sub concat_array {
    my( $string, $array_ref ) = @_;
    @$array_ref = map "$_$string", @$array_ref;
}


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]