Was bedeutet "select((select(s),$|=1)[0])" tun in Perl?

Ich habe gesehen, einige schrecklichen code in Perl geschrieben, aber ich kann nicht Kopf noch Schwanz der eine:

select((select(s),$|=1)[0])

Ist es in einigen Netzwerk-code, den wir verwenden, um die Kommunikation mit einem server, und ich vermute, es ist etwas zu tun mit Pufferung (da setzt es $|).

Aber ich kann nicht herausfinden, warum es mehrere select Anrufe oder die array-Referenz. Kann jemand mir helfen?

Zu verwirren und zu frustrieren Menschen, die haben, den code zu pflegen, D. H. Sie.

InformationsquelleAutor paxdiablo | 2008-10-13

63

Es ist eine böse kleine idiom für die Einstellung autoflush auf ein filehandle andere als STDOUT.

select() nimmt das filehandle geliefert und (im Grunde) ersetzt STDOUT, und es gibt die alten filehandle, wenn es fertig ist.

So (select($s),$|=1) leitet das filehandle (denken Sie daran select gibt die alte), und setzt autoflush ($| = 1). Es tut dies in einer Liste ((...)[0]) und gibt den ersten Wert (was ist das Ergebnis der select nennen - das original STDOUT), und dann geht , dass wieder in einem anderen select Wiederinstandsetzung der ursprünglichen STDOUT filehandle. Puh.

Aber jetzt verstehen Sie es (gut, vielleicht ;)), tun Sie dies:
```
use IO::Handle;
$fh->autoflush;
```
- Böse, warum genau?
- warum? SCHAUEN SIE ES!
- Sorry, ich dachte du meintest böse wie in den dodgy-Funktionalität, sondern Mangel-an-Klarheit. So es ist vorbei das Ergebnis der inneren select zu den äußeren auswählen, zulassen, indem Sie das original. Das macht Sinn, jetzt, aber du hast Recht, wahrscheinlich werde ich es verschrotten und verwenden autoflush.
- Ich schrieb, dass hässliche Stück code, lange bevor IO::Handle->autoflush existierte. Bitte lass ihn sterben einen leisen Tod. 🙂
- So ist Ihnen Schuld! Ich entschuldige mich für beschreibt es als 'böse', im Kontext von IO::Handle->autoflush nicht vorhanden, dann ist es in der Tat ein raffiniertes kleines Stück code 😉 (/me backpedals wütend)
- Ich sehe keinen Grund für die Verwendung der Lisp-ish-version. Auch in Abwesenheit von IO::Handle Sie schreiben können, viel mehr schön mit for zu topicalise der alte Griff für re-Auswahl. Siehe meine Antwort.
- perl -wE 'open OUTPUT, ">", undef; say select(OUTPUT)' nicht ausdrucken main::STDOUT. Warum?
- weil das erste argument zu say ist ein filehandle 😉 Versuchen say STDOUT select(OUTPUT).
InformationsquelleAutor Dan
29

Den Weg, um herauszufinden, jeder code ist zu pflücken es auseinander. Sie wissen, dass die Sachen in Klammern geschieht, bevor Sie Sachen draußen. Dies ist die gleiche Weise würden Sie, herauszufinden, was der code tut in anderen Sprachen.

Das erste bit ist dann:
```
( select(s), $|=1 )
```
Diese Liste hat zwei Elemente, die die Ergebnisse von zwei Operationen: eine, um die wählen Sie die s filehandle als Standard, dann einer, um $| einen wahren Wert. Die $| ist eines der pro-filehandle-Variablen, die gelten nur für die aktuell ausgewählte filehandle (siehe Verstehen von globalen Variablen bei Die Effektive Perler). Am Ende haben Sie eine Liste von zwei Elementen: der bisherige Standard-filehandle (das Ergebnis select), und 1.

Der nächste Teil ist ein literal-Liste slice ziehen Sie das Element bei index 0:
```
( PREVIOUS_DEFAULT, 1 )[0]
```
Dem Ergebnis, dass ist das einzige Element, das frühere Standard-filehandle.

Den nächsten Teil dauert, das Ergebnis an die Scheibe und benutzt es als argument, um einen weiteren Anruf zu select
```
 select( PREVIOUS_DEFAULT );
```
So, in Wirkung, die Sie sich gesetzt haben $| auf ein filehandle und landete wieder dort, wo Sie begonnen mit der Standard-filehandle.

InformationsquelleAutor brian d foy
20
```
select($fh)
```
Wählen Sie eine neue Standard-Datei-handle. Sehen http://perldoc.perl.org/functions/select.html
```
(select($fh), $|=1)
```
Schalten autoflush. Sehen http://perldoc.perl.org/perlvar.html
```
(select($fh), $|=1)[0]
```
Rückkehr der erste Wert des Tupels.
```
select((select($fh), $|=1)[0])
```
select es, D. H. wiederherstellen der alten Standard-Datei-handle.

Entspricht
```
$oldfh = select($fh);
$| = 1;
select($oldfh);
```
was bedeutet
```
use IO::Handle;
$fh->autoflush(1);
```
gezeigt, in der perldoc Seite.
- Wenn jemand nicht möchte IO::Handle die am wenigsten Sie tun könnten, ist, wickeln Sie diese Monstrosität in einer Funktion wie sub flush ($) { select((select($_[0]), $|=1)[0]); }
- Wenn du gehst, um es in eine Funktion, dann könnte man genauso gut schreiben Sie es den langen Weg mit den temporären halten der alten Griff. 🙂
- Eh, ich könnte in beide Richtungen gehen. Für Funktionen, die einfach, sobald es in eine Funktion, die Sie nie haben wirklich zu Blick auf Sie wieder, noch ist die Funktionalität einer flush Funktion jemals zu ändern. Vielleicht ist die schreckliche version ist etwas schneller. Vielleicht können Sie es verwenden, um zu erschrecken Praktikant.
InformationsquelleAutor kennytm
10

In einem anderen Ort, ich habe einmal vorgeschlagen, dass eine mehr verständliche version wäre also:
```
for ( select $fh ) { $| = 1; select $_ }
```
Dadurch bleibt die kompakte idiom alleinigen Vorteil, dass keine variable muss deklariert werden in den umgebenden Bereich.

Oder wenn Sie sich nicht wohl mit $_ können Sie schreiben es so:
```
for my $prevfh ( select $fh ) { $| = 1; select $prevfh }
```
Den Umfang der $prevfh beschränkt sich auf die for block. (Aber wenn Sie schreiben, Perl Sie haben wirklich keine Ausrede mehr scheu über $_.)
- Beide verkaufen und Randall Versionen sind weniger als offensichtlich, aber mindestens Randall hat den Vorteil, dass Sie kurz.. gibt es irgendein Grund, warum meine $old_fh = select($fh); $| = 1; select($old_fh); funktioniert nicht? Als wenn es die Verständlichkeit, die Sie für gehen es wäre eine deutlich sinnvollere Wahl
- Hast du irgendwelche Behauptungen über das es nicht funktioniert? In jedem Fall, wenn Sie wirklich wollen, eine vernünftige Wahl, die Sie verwenden werden, IO::Handle. Wie für die Kürze, Randall hat eine 1-4 Zeichen Vorteil je nach Leerzeichen.
- Das war eine ganz ehrliche Frage, übrigens. Ich habe noch nie in einer position, wo ich habe, es zu tun (zumindest dann, wenn der IO::Handle wurde noch nicht erhältlich).
- So gehen Sie vor und verwenden Sie es. Ich habe nicht behauptet, dass meine Lösung die beste war noch, dass jede andere Lösung nicht funktioniert; ich habe bloß angeboten, in den Geist der TMTOWTDI, ein Perl-ish eher als Lisp-ish idiom.
- Ich mag Aristoteles ' version besser als Randall ist, weil es sich nicht auf die Reihenfolge der Ausführung in einer Liste, die (mit Schneide meine Zähne auf Schema) bin ich misstrauisch.
InformationsquelleAutor Aristotle Pagaltzis
8

Es ist übermäßig clever-code für das einschalten buffer-flushing auf Griff s und dann re-Auswahl der aktuellen Griff.

Sehen perldoc -f select für mehr.

InformationsquelleAutor Andy Lester
2

bitte überprüfen Sie perldoc -f select. Für die Bedeutung von $|, überprüfen Sie bitte perldoc perlvar

InformationsquelleAutor ghostdog74
2

Ist es overoptimization zu überspringen, laden IO::Handle.
```
use IO::Handle;
$fh->autoflush(1);
```
ist sehr viel besser lesbar.
- Ich würde nicht sagen, dass overoptimization. mit lexikalischen filehandles ist ein relativ neue Ding
- Fellman: in nur einem Jahrzehnt" Sinn für neue, sowieso...
- wahr. Ich Arbeit mit einer Codebasis, hat eine Anzahl von Skripte von damals. Bis vor kurzem habe ich gewartet Dinge, die in perl geschrieben 4.
- Fellman: es kann verwendet werden, mit nicht-lexikalische filehandles zu.
- Ich wusste nicht, dass! Danke!
InformationsquelleAutor Alexandr Ciornii

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.