foreach my $var (@Liste) — $var eine Referenz?

So, ich wusste nie, dies und das möchte ich um einige clarifcation auf Sie. Ich weiß, wenn Sie

foreach (@list){

wenn Sie ändern $_ in dieser Schleife wird auf die tatsächlichen Daten. Aber, ich wusste nicht, dass, wenn Sie Tat

foreach my $var1 (@list){

Wenn Sie änderungen an $var1 in der Schleife, die Sie ändern würden, die die tatsächlichen Daten. :-/Also, gibt es eine Möglichkeit, eine Schleife über @Liste, aber halten Sie der variable einen nur-lese-Kopie, oder eine Kopie, wenn geändert wird, nicht ändern Sie den Wert im @list?

InformationsquelleAutor Ryan Detzel | 2009-06-18
  1. 10

    $var ist als alias für jedes Element in der Reihe.

    Sehen http://perldoc.perl.org/perlsyn.html#Foreach-Loops

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

    InformationsquelleAutor Sinan Ünür
  2. 9

    Einfachste Weg ist, einfach zu kopieren:

    foreach my $var1 (@list) {
    my $var1_scratch = $var1;

    oder

    foreach my $var1 ( map $_, @list ) {

    Aber wenn $var1 ist eine Referenz, $var1_scratch wird eine Referenz auf die gleiche Sache.
    Wirklich sicher sein, müsste man so etwas wie Lagerfähig::dclone zu tun, eine Tiefe Kopie:

    foreach my $var1 ( @{ Storable::dclone( \@list ) } ) {
}

    (ungetestet). Dann sollten Sie in der Lage sein, um sicher ändern $var1. Aber es könnte teuer werden, wenn
    @- Liste ist eine große datastructure.

    • Seien Sie vorsichtig, $var1 ist keine Referenz, sondern ein alias. Sehen Sie den Unterschied : my $var2=\$Liste[0]; print "$var2\n"; zeigt SCALAR(0x8171880)
    • Er meinte, wenn $var1 enthalten einen Verweis, wenn z.B. @Liste enthielt eine Reihe von HASH-Referenzen. Selbst wenn Sie brechen, das aliasing, Sie haben noch eine weitere Kopie der Referenz auf das gleiche hinaus.
    InformationsquelleAutor ysth
  3. 4

    Es ist ein alias, nicht eine Referenz. Wenn Sie möchten, erstellen Sie Ihre eigene Aliase (außerhalb von Z), die Sie verwenden können,Daten::Alias.

    • Umm... +0. Das +1 für den alias/Referenz Klärung und -1 für Anweisungen geben auf tun das Gegenteil von dem was der OP gefragt. (Einen alias zu erzeugen, im Gegensatz zu breaking aliasing.).
    • Carman ysth hatte schon die richtige Antwort gegeben, ich wurde nur darauf hin, dass es möglich ist, eigene Aliase erstellen.
    InformationsquelleAutor Chas. Owens
  4. 2

    Der einzige Unterschied zwischen diesen Schleifen:

    foreach (@array) { ... }
foreach my $var (@array) { ... }

    ist die loop-variable. Das aliasing ist eine Funktion von foreach, nicht die implizite variable $_. Beachten Sie, dass dies eine alias (ein anderer name für die gleiche Sache) und nicht eine Referenz (ein Zeiger auf eine Sache).

    In der einfachen (und häufigsten) Fall, können Sie brechen die aliasing, indem Sie eine Kopie:

    foreach my $var (@array) {
    my $copy = $var;
    # do something that changes $copy
}

    Dies funktioniert für normale Skalare Werte. Für Verweise (oder Objekte), die Sie brauchen würde, um eine Tiefe Kopie mit Lagerfähig oder Klon, das könnte teuer werden. Gebundene Variablen sind ebenso problematisch, perlsyn empfiehlt die Vermeidung der situation völlig.

    • oder Clone::Mehr oder Clone::Schnell
    • oder machen Sie eine Kopie in der foreach mit für meine $var (() = @array)
    InformationsquelleAutor Michael Carman
  5. 1

    Ich weiß nicht, wie zu zwingen, die Variablen werden by value anstatt by reference in die foreach-Anweisung selbst. Sie können kopieren Sie den Wert des $_ obwohl.

    #!/usr/perl/bin
use warnings;
use strict;

use Data::Dumper;

my @data = (1, 2, 3, 4);

print "Before:\n", Dumper(\@data), "\n\n\n";

foreach (@data) {
    my $v = $_;
    $v++;
}

print "After:\n", Dumper(\@data), "\n\n\n";

__END__
    • Wo Sie sagen my $v = shift; du meinst my $v = $_;.
    • Hinton korrigiert die Fehler. @Sukotto drucken $v in den Körper der Schleife, wie du es ursprünglich geschrieben, um zu sehen, Ihre Fehler.
    • Ja, ich meinte my $v = $_; 🙁
    InformationsquelleAutor Sukotto
  6. 0

    Machen Sie eine Kopie @Liste in der for-Anweisung:

    foreach my $var1 (() = @list) {
  # modify $var without modifying @list here
}
    InformationsquelleAutor MkV
Schreibe einen Kommentar