[PERL] IO::Socket

[the_brain]

Es geht um Dateiübertragung: Wenn ich eine Textdatei übertragen will, dann enthält diese ja normalerweise mehrere Zeilenumbrüche. Das heisst, dass ich jede Zeile einzeln senden muss - oder wie?

mache das jetzt etwa so:




open (FILE, "<$file") || return 1;
@inhalt_der_textdatei = <FILE>;
print $remote_socket @inhalt_der_textdatei;
close (FILE) || return 2;


so gehts aber wie gesagt wegen der zeilenumbrüche nicht - weiss einer wie ich das besser machen kann? evtl. vorher komprimieren? oder alles in hex umwandeln?

gruss
martin

[Badsteve]

sende doch einfach jede Zeile einzeln, wenn es so nicht geht.



print $socket $_ foreach @array;


Ansonsten könnte man die Datei noch "join"en. Einfach mal probieren.

Steve