Løbe igenne array

selvfølgelig kan man det... den ikke så pæne måde er noget i retning af

kan ikke lige finde en smartere måde på denne tid af døgnet...

#!/usr/bin/perl

my @array=('xxx', 'xxx', 'xxx', 'iii', 'hfgsd', 'wersdf', 'ghjfsdf', 'iii');

my @temparray = ();
my $test = 0;

print "array: \n";
print @array;

foreach $value (@array) {
        if (($test%2) == 0) {
                push(@temparray,$value);
        }
        if ($value eq 'iii') {
                $test++;
        }
}

@array = @temparray;

print "array: \n";
print @array;

Hvis du kender positionerne er det nemt (indbygget funktion:
splice()) - ellers må vi lede efter dem. Eksempel:

@a = ('a','b','c','x','d','e','f','g','x','h','i');
@b = ();

for ($i=0; $i<=$#a; $i++) {
  if ($a[$i] eq 'x') {
    push(@b,$i);
  }
}

if ($#b>=1) {
  splice(@a,$b[0],$b[1]-$b[0]+1);
  print join(',',@a);
} else {
  print 'Ikke fundet';
}

print "\n";

Jeg prøver at lære, så hvis jeg ydmigt må spørger om:

    if (($test%2) == 0) {

Hvad i alverden betyder %2 i denne if?

og det samme med

  if ($#b>=1) {


Her undrer jeg mig over $#b (hvad betyder denne # i denne sammenhæng?)

p.s. sorry hvis dette er banalt, men Perl er ret nyt for mig.

Når @b er et array, angive $#b nummeret på det største
index. Skal der som her fx være 2 elementer, nemlig
nummer 0 og nummer 1, så skal nummeret på det højeste
være 1 (eller evt højere)

Det hos Thomas er om tallet er lige eller ej (% er modulus
operatoren)