Thread Problem auf Windows (8 answers)
Opened by bianca at 2013-10-05 23:41

Gast wer
 2013-10-06 01:55
#171004 #171004
Code (perl): (dl )
1
2
3
4
5
6
7
8
#!/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 )
1
2
3
4
5
6
#!/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)

View full thread Problem auf Windows