Wie dereferenziert ihr? - #176802 (Allgemeines zu Perl)

rosti

2014-08-11 11:09

User since
2011-03-19
3463 articles
BenutzerIn

Quote
Wenn der Dref-Bandwurm zu arg lang wird, selbst mit -> in nächste Zeilen untereinander, benutze ich "Zwischenvariablen", um zwischenzuspeichern.

Mache ich auch so, insbesondere dann, wenn Referenzen übergeben werden, wo damit in der sub zu sehen ist, welcher Zweig am Wickel ist. In speziellen Fällen schalte ich eine weitere Methode ein zur Datenabstraktion, Beispiel:

Es gibt eine Interface-Methode control(), welche aufgerufen wird, wenn HTTP-Request-Parameter im Spiel sind.

Code (perl): (dl )

sub control{
   my $self = shift;
   # wir könnten jetzt über $self->{PARAMS}
   # auf die Parameter zugreifen
   # die Abstraktion sieht jedoch den Aufruf einer weiteren Methode vor:
   $self->param();
}

Das sichert die Austauschbarkeit des Parsers, weil nicht jeder Parser, den ich einsetze, die Referenz
$self->{PARAMS} erzeugt. Ab Aufruf der Methode $self->param() ist die weitere Datenverarbeitung dann wieder einheitlich.

PS: Dreh- und Angelpunkt ist natürlich auch eine Referenz: $self->{CGI}, es lebe der Pfeil ;)
Last edited: 2014-08-11 22:25:19 +0200 (CEST)