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";
-- Hofmator
In reply to Re: using join with a print ref statement
by Hofmator
in thread using join with a print ref statement
by Bismark
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |