Re: printing arrays

There are several ways:

use List::MoreUtils qw/mesh/;
print join ' ', mesh @ID, @name;
[download]

# you lose the order and every id must be unique
my %h;
@h{@ID} = @name ;
print join ' ', %h;
[download]

or ...

Boris

Comment on Re: printing arrays Select or Download Code

Replies are listed 'Best First'.
Re^2: printing arrays by rir (Vicar) on Dec 31, 2008 at 16:23 UTC
Once you have the list that you want to print; you don't need to use ~~a join~~ `join`, instead you can just print it with `$,` set appropriately. `$,` is also known as `$OFS` and `$OUTPUT_FIELD_SEPARATOR`; use `perldoc perlvar`. ~~This can be much more efficient even with small lists.~~ `my @arr = ( 1, "Ali", 2, "Bobbi", 3, "Charli" ); local $, = " "; print @arr, $/;` [download] Be well, rir Updated: join usage Updated: efficiency comment deleted.	[reply] [d/l] [select]
Re^3: printing arrays by borisz (Canon) on Jan 01, 2009 at 13:43 UTC
Using `$,` is just another way. But internally `$,` use `join` and is __not__ faster or more efficient as the `join` statement. Boris	[reply] [d/l] [select]
Re^4: printing arrays by rir (Vicar) on Jan 02, 2009 at 04:22 UTC
You are right; thanks for the correction. Be well rir	[reply]
Re^2: printing arrays by Spooky (Beadle) on Dec 31, 2008 at 15:13 UTC
..thanks so much!	[reply]