2011-03-20T17:40:29 rosti

[...]
Leider kann ich aufgrund meiner Perlversion den Code nicht testen.

Du kannst den Code ja in etwas funktional Äquivalentes umschreiben, was kein given und when verwendet, dann sollte es auch mit älteren Perlversionen laufen.

Quote

[...]
In Summa bin ich am Überlegen, ob es vielleicht doch besser ist, ein eigenes kleines Modul zu schreiben, etwa Net::HTTP10 (nur HTTP/1.0) und ein eigenes Objekt erstellen dem eine Callbackfunktion mitgegeben wird, die exact 794 Bytes aus dem Socket liest
[...]

Da HTTP/1.0 in der Tat noch sehr einfach gestrickt ist, dürfte es kein allzu großer Aufwand sein, eine eigene Clientimplementation dafür zu bauen. Andererseits ist es trotz allem unnötiger Aufwand, da es solchen Code ja schon gibt.

Wenn Dir mein Ansatz nicht gefällt, dann solltest Du vielleicht darüber nachdenken, nicht so eine niedrige Abstraktionsebene wie Net::HTTP zu verwenden, sondern gleich etwas wie LWP zu benutzen — damit reduziert sich das absetzen einer einfachen GET-Anfrage auf einen einzigen Befehl, wohingegen der Aufwand, HTTP/1.0 selbst zu implementieren mit Sicherheit noch größer ist, als der meinen Lösungsansatz zu verwenden und auf Perl 5.8.x zu portieren.