Re: foreach loops

Here is one way:

use strict;

my @names = ('rita', 'sue','bob', 'daisy');
$, = ' ';
$\ = "\n";
foreach  (0 .. $#names) {
    print @names[$_, $_+1];
}
[download]

Output:

rita sue
sue bob
bob daisy
daisy
[download]

Comment on Re: foreach loops Select or Download Code

Replies are listed 'Best First'.
Re^2: foreach loops by johngg (Canon) on Oct 07, 2006 at 23:25 UTC
If warnings are switched on you will get an 'Use of uninitialized value ...' message once you get to the last time around the loop as print tries to access one more element than is in the array. This stops the warning. `use strict; use warnings; my @names = qw{rita sue bob daisy}; $, = q{ }; $\ = qq{\n}; foreach (0 .. $#names) { print $_ == $#names ? $names[$_] : @names[$_, $_ + 1]; }` [download] Cheers, JohnGG	[reply] [d/l]
Re^3: foreach loops by richill (Monk) on Oct 08, 2006 at 07:57 UTC
Thank you everyone. I think I've strayed into the relms of perl magic. What are these operators called? I'd like to find out more about them $, $\	[reply]
Re^4: foreach loops by lyklev (Pilgrim) on Oct 08, 2006 at 12:28 UTC
They are not operators but variables. The `$,` is the string that gets printed between fields automatically, nothing by default. The `$\` is what gets printed after allf fields, again nothing by default. If you set it to `"\n"`, every `print` command will print a newline. All these nice variables can be found in the perlvar documentation.	[reply] [d/l] [select]
Re^4: foreach loops by shmem (Chancellor) on Oct 08, 2006 at 12:42 UTC
perlvar; for `$/` and `$\` see also The parable of the falling droplet	[reply] [d/l] [select]