Re: using join with a print ref statement

So if I get you right, $searchresult is a reference to an array. Then the following should work:

print ref $searchresult
 ? "Located Part Number: @{[join ':', @$searchresult ]}\n"
 : "Your Part Number ($part) Rev ($rev) could not be found....\n";

# or

local $" = ':';
print ref $searchresult
 ? "Located Part Number: @{ $searchresult }\n"
 : "Your Part Number ($part) Rev ($rev) could not be found....\n";
[download]

-- Hofmator

Comment on Re: using join with a print ref statement Download Code

Replies are listed 'Best First'.
Re: Re: using join with a print ref statement by Bismark (Scribe) on Jan 20, 2003 at 17:56 UTC
The first suggestion worked. I was way off in my attempts. I figured that 'join' had to come earlier in the statement. Thanks very much for the help Kerry "Yet what are all such gaieties to me Whose thoughts are full of indices and surds?" quotes the Lama	[reply]