Read for.

Normally, you want to provide C++ and Perl with syntactically correct code though.

The way of performing a loop over a list of array elements in Perl is usually:

foreach (@Array) {
    next if $_ eq "DontPrintMe";
    print $_;
};
[download]

I like to put an explicit name in instead of $_, like so:

for my $value (@array) {
  do_something_with($value);
}
[download]

Going back to the C/C++ style comparison, I also think $value is more readable than $array[$i], but that's a matter of opinion and/or of naming things well.

But remember that $value is not available outside the for loop. If you're worried about knowing where you are in the array, I've found I don't need to worry most of the time or I can just create put 'my $i = 0;' before the loop and do $i++ each time round.

How can you feel when you're made of steel? I am made of steel. I am the Robot Tourist.
Robot Tourist, by Ten Benson

What does "powerful" mean in this context? In Perl I'd be tempted to:

$_ ne "DontPrintMe" and print for @Array;
[download]

but that may be too much power for the masses who may be happier with:

for (@Array) {
   next if $_ eq "DontPrintMe";
   print;
}
[download]

although for someone from a C/C++ background that may still be a little blinding and would expect to see the rather more Cish:

for (my $i = 0; $i < @Array; ++$i) {
   print $Array[$i] unless $Array[$i] eq "DontPrintMe";
}
[download]

which of course is still not toned down to a C/C++ level of power, but possibly looks familiar enough not to cause offense.

You probably want something like;

for($i=0; $i < @Array; $i++) 
{
...
}
[download]

We have been encouraging the following syntax:

for my $i (0..$#Array) 
{
...
}
[download]

It's just as efficient, and much more readable.

That is fair enough. I wasn't trying to recommend a better way, only answer the question asked.

for(my $i=0; $i < scalar(@array); $i++) {
    print $array[$i], "\n";
}
[download]

for( @array ) {
    print $_, "\n";
}
[download]

Goodness, there are so many ways of doing that sort of thing in Perl…

#!perl

use strict;

use warnings;

my @array;

@array = <DATA>;

print (grep { !/^DontPrintMe$/} @array);

__DATA__
print me!
no, print me!
DontPrintMe
Look out for open manholes
Do print me!
[download]

Incidentally, Perl is Turing-complete, as are quite a few other programming languages. Stating that Perl is "almost as powerfull[sic] as C++" is, first, incorrect, and, second, could be construed as insulting, as it seems to imply that "real programmers don't use Perl."

I would normally see this as a soluition:

foreach ( @array ) {

  print $_ unless ( $_ eq "DontPrintMe" );
}
[download]

You already have a couple of different ways to do it in this thread -- but you could also use map in a void context; I'll leave that for you to discover (and avoid).