Perl foreach und die änderung der Schleife variable

Schreibe ich ein script in Perl und habe eine Frage zu Perl foreach konstruieren.

Scheint es, dass, wenn Sie ändern die loop-Variablen ändert sich auf das eigentliche array. Ist dies in der Tat der Fall, oder habe ich etwas getan, vollständig falsch?

Will ich ändern, um eine Zeichenfolge wie abc.abc#a zu abc_abc_a (Unterstriche für nicht alpha-numerische Zeichen), aber ich brauche zum beibehalten des ursprünglichen Wertes in den array für die spätere Verwendung.

Ich habe code, der ungefähr so aussieht:

@strings = ('abc.abc#a', 'def.g.h#i');
foreach my $str (@strings){
    $str =~ s/[^0-9A-Za-z]/_/g;
    print $str, "\n"; #Actually I use the string to manipulate files.
}

Ich konnte das problem lösen, indem Sie Folgendes tun:

@strings = ('abc.abc#a', 'def.g.h#i');
foreach my $str (@strings){
    my $temp = $str; #copy to a temporary value
    $temp =~ s/[^0-9A-Za-z]/_/g;
    print $temp, "\n"; #$str remains untouched...
}

aber es ist ein effizienter Weg, dies zu erreichen?

Vielen Dank!

InformationsquelleAutor KLee1 | 2010-07-09

foreach perl

16

Du bist nicht verrückt, das ist normal Verhalten. Sehen perldoc perlsyn unter Foreach-Schleifen:

Wenn jedes element der LISTE ist ein lvalue, Sie können es ändern, durch ändern von VAR innerhalb der
loop. Umgekehrt, wenn jedes element der LISTE ist KEIN lvalue, jeder Versuch, zu ändern, dass
element scheitern wird. In anderen Worten, die "foreach" loop-index-variable erfolgt eine implizite
alias für jedes Element in der Liste, die Sie Durchlaufen.

Andere Schleife mit Iteratoren wie anzeigen haben ein ähnliches Verhalten:
```
map BLOCK LIST  
map EXPR,LIST
```
...

Beachten Sie, dass $_ ist ein alias für die Liste Wert, so kann es verwendet werden, um zu ändern
Elemente der LISTE. Dies ist zwar nützlich und unterstützt, kann
Ursache bizarre Ergebnisse, wenn die Elemente der LISTE sind nicht
Variablen. Mit einem normalen "foreach" - Schleife für diesen Zweck wäre
klarer in den meisten Fällen.
Siehe auch "grep" für ein array aus den Elementen
von der ursprünglichen Liste, für die der BLOCK oder EXPR den Wert true ergibt.
Könnte man umschreiben Ihrem code auf diese Weise, das würde zumindest speichern Sie hinzufügen eine extra Zeile:
```
my @strings = ('abc.abc#a', 'def.g.h#i');
foreach my $str (@strings){
    (my $copy = $str) =~ s/[^0-9A-Za-z]/_/g;
    print $copy, "\n";
}
```
InformationsquelleAutor Ether

Können Sie immer eine Kopie des Arrays vor dem ändern von Elementen ('my' Hinzugefügt zu beschwichtigen strict), viz.:

my @strings = ('abc.abc#a', 'def.g.h#i');
foreach my $str (my @temp = @strings) {
    $str =~ s/[^0-9A-Za-z]/_/g;
    print "$str\n"; #Actually I use the string to manipulate files.
}
use Data::Dumper;
print Dumper(\@strings);

gibt:

abc_abc_a
def_g_h_i
$VAR1 = [
          'abc.abc#a',
          'def.g.h#i'
        ];

@temp nicht haben Bereich außerhalb der foreach Schleife.

InformationsquelleAutor MkV

2

Sind Sie richtig. Als Programming Perl Staaten, die loop-variable ist ein alias für das aktuelle array-element und speichern Sie aus der Schleife variable, wenn alle änderungen werden keine Auswirkungen auf den ursprünglichen Wert.

InformationsquelleAutor David Harris

my @strings = ('abc.abc#a', 'def.g.h#i');

print join( "\n", ( map { $_ =~ s/[^0-9A-Za-z]/_/gr } @strings ) )."\n";

Den r funktioniert nur in Perl 5.14 und bis.

InformationsquelleAutor Michel

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.