Problem auf Windows (gelöst) - #171004 (Allgemeines zu Perl)

Gast wer

2013-10-06 01:55

Code (perl): (dl )

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
my @satz = qw( foo bar );
for ( my $z = $#satz; $z >= 0; $z -- ) {
    splice(@satz,$z,1) if ($satz[$z] eq 'bar');
}

Code (perl): (dl )

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
my @satz = qw( foo bar );
$satz[$z] eq 'bar' and splice(@satz,$z,1) for ( reverse 0..$#satz );

Last edited: 2013-10-06 02:22:10 +0200 (CEST)