<div dir="ltr"><div class="gmail_extra"><div class="gmail_quote"><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex">

<div dir="ltr"><div class="im"><div><br>get_data(Device, Socket) -><br>  case io:get_line(Device) of<br>
    {ok, Data} -><br>      gen_tcp:send(Socket, Data),<br>      get_data(Device, Socket);<br>    eof -> <br>      file:close(Device),<br>      gen_tcp:close(Socket)<br>  end. <br></div></div></div></blockquote></div>

<br></div><div class="gmail_extra"><br></div><div class="gmail_extra">from erl -man io</div><div class="gmail_extra"><br></div><div class="gmail_extra"><div class="gmail_extra">get_line(Prompt) -> Data | eof | {error, Reason}</div>

<div class="gmail_extra">get_line(IoDevice, Prompt) -> Data | eof | {error, term()}<br></div><div><br></div><div><br></div><div>get_line doesn't return {ok, Data}, also you may want to use get_line(Device, "")</div>

<div><br></div><div>cheers,</div><div><br></div></div></div>