for-Schleife $i variabel gestalten - #104225 (Allgemeines zu Perl)

renee

2007-12-28 21:03

User since
2003-08-04
14371 Artikel
ModeratorIn

Wenn Du splice benutzen willst, musst Du allerdings das Array umgekehrt durchlaufen, sonst gibt es Probleme...

Code (perl): (dl )

#!/usr/bin/perl

use strict;
#use warnings;
use Data::Dumper;

my @array = (1..10);

for my $i ( 0..$#array ){
    if( $array[$i] % 2 == 0 ){
        splice @array,$i,1;
    }
    else{
        print $array[$i],"\n";
    }
}

print "=" x 50, "\n";
@array = (1..10);

for my $i ( reverse 0..$#array ){
    if( $array[$i] % 2 == 0 ){
        splice @array,$i,1;
    }
    else{
        print $array[$i],"\n";
    }
}

Ausgabe:

Code: (dl )

C:\>splice.pl
1
==================================================
9
7
5
3
1

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/