Habe folgendes Beispiel:

warum klappt das nicht?

Er erzählt mir immer etwas von wegen "Not a HASH reference".
Wenn ich mir dann mal $hashref ohne Parameter ausgeben lasse, dann krieg ich auch immer nur ne CODE(X)-Funktionsreferenz zurück anstatt der gewünschten Hashref.

Du hast eigentlich dir schon die Antwort selber gegeben. $hashref ist eine Funktionsreferenz, keine Hashreferenz. Anwelcher Stelle wird denn die Funktion aufgerufen?

Die Funktion wird in einer anderen Funktion aufgerufen, in etwa so:


Ich mache dies, damit ich einfache Variablen-Namen wie $sth, @bind usw. mehrfach innerhalb einer Funktion nutzen kann.
Ich hatte früher benannte Funktionen hierfür, aber das ist mir mittlerweile trotz zahlreiche Objekte zu unübersichtlich.
Ich bin zudem kein Freund von langen Variablen-Namen und bleibe lieber bei $sth, @bind, $id usw.

Übrigens: Die anonymen Funktionen sind meistens relativ klein. In der Regel wird nur ein kleines SQL-Statement ausgeführt.
Ich hab blos keine Lust mir jedesmal neue Namen für irgendwelche Handles usw einfallen zu lassen, deshalb möchte ich sie lieber verschachten (s.o.).

Man beachte das ->(). Ohne das ->() erzeugst Du eine Subroutinenreferenz und weist diese dann $hashref zu. Mit dem ->() wird erst die Subroutinenreferenz erzeugt, durch das ->() ausgeführt und das Ergebnis der Subroutine an $hashref zugewiesen...

Hi,

warum nicht so?



[edit]code reviewed[/eidt]

ich finde das zu komplziert und arbeite auch nicht so gerne mit do. $/ bin ich auch nicht gewohnt.

Ich hab aber mal noch eine andere Frage:
auf das vorherige Bsp:

Wo ist eigentlich der Unterschied zu:


Wie oft wird $hashref denn nun ausgeführt? Nur einmal zum Zeitpunkt der Deklarierung? Oder jedesmal, wenn ich irgendwo $hashref auftaucht?

Konkret:

Ist diese Funktion jetzt statisch oder nicht? Das wäre ja blödsinn, wenn bei jedem print die ganze Datenbankabfrage neu ausgeführt wird.

Froschpopo+2007-12-28 08:15:48--

Die Funktion wird in einer anderen Funktion aufgerufen, in etwa so:

Code (perl): (dl )

1
2
3
4
5
6
7
8
9
10
11

sub ablauf {
   my $users = sub {
      #%liste erarbeiten
      return \%liste;
   };

   my $fotos = sub {
      #%liste erarbeiten
      return \%liste;
   };
}

Wie kommst du darauf, dass hier ein Funktion aufgerufen wird? Du weist den Variabeln eine sub-Referenz zu, mehr nicht.

Wobei das für mich, so wie du es beschreibst, keinen Sinn macht. Diese Variante dient ja nicht der Übersichtlichkeit, sondern um Funktionen zur Laufzeit zu erzeugen, die an anderer Stelle aufgerufen werden, damit kannst du verschiedene Verhaltensweisen mit dem gleichen Objekt oder Funktion erzeugen.

Hi,

ich finde "do {}" weniger kompliziert als "sub {}->()";

$/ ist jedem freigestelt zu nutzen oder nicht. Steckt ja nur im Anschauungscode.

$hashref wird gar nicht ausgeführt, da es nur eine Code-Referenz ist.

Der referenzierte Code wird jedesmal ausgeführt, wenn $hashref entsprechend dereferenziert wird.

Froschpopo+2007-12-28 09:44:47--

Code (perl): (dl )

1
2
3
4
5

my $hashref = sub {
    return shift;
};
print $hashref->(5),"\n";
print $hashref->(125),"\n";

Wo ist eigentlich der Unterschied zu:

Code (perl): (dl )

1
2
3
4
5

my $hashref = sub {
    return int(rand(1000));
};
print $hashref->(),"\n";
print $hashref->(),"\n";  #ergibt dasselbe ergebnis wie beim ersten print()

Wie oft wird $hashref denn nun ausgeführt? Nur einmal zum Zeitpunkt der Deklarierung? Oder jedesmal, wenn ich irgendwo $hashref auftaucht?

Du weist dem Skalar eine Funktion zu ausgeführt wird sie erst mit dem Aufruf ->(). Im zweitem Beispiel mit einem festen Rückgabewert. Im ersten wird der Parameter den du übergibst zurückgegeben.

Froschpopo+2007-12-28 09:44:47--

Konkret:

Code (perl): (dl )

1
2
3
4
5

my $hashref = sub {
    return $dbh->selectrow_array("SELECT * FROM users");
};
print $hashref->(),"\n";
print $hashref->(),"\n";

Ist diese Funktion jetzt statisch oder nicht? Das wäre ja blödsinn, wenn bei jedem print die ganze Datenbankabfrage neu ausgeführt wird.

Natürlich wird diese bei dem Aufruf neu ausgeführt. Ich habe wirklich den Eindruck, dass du was ganz anderes willst

Froschpopo+2007-12-28 09:44:47--

Wo ist eigentlich der Unterschied zu:

Code (perl): (dl )

1
2
3
4
5

my $hashref = sub {
    return int(rand(1000));
};
print $hashref->(),"\n";
print $hashref->(),"\n";  #ergibt dasselbe ergebnis wie beim ersten print()

Wie oft wird $hashref denn nun ausgeführt?

Zweimal

Quote

Nur einmal zum Zeitpunkt der Deklarierung?

nein

Quote

Oder jedesmal, wenn ich irgendwo $hashref auftaucht?

Immer dann wenn Du $hashref->() machst... Und nur dann wenn Du mit ->() perl sagst, dass die Subreferenz dereferenziert und ausgeführt werden soll!