Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?

Re: WebSocket idle

by haukex (Abbot)
on Jan 03, 2018 at 19:29 UTC ( #1206622=note: print w/replies, xml ) Need Help??

in reply to WebSocket idle

I'm not sure because you haven't shown any code, but it sounds to me like you might be using a blocking sleep call or something like it? Just a thought: have you considered using non-blocking I/O in an event loop? I've successfully used POE several times now, it has a little bit of a learning curve but if you get into it, it's pretty useful. Its Cookbook even includes an example Websocket client.

Replies are listed 'Best First'.
Re^2: WebSocket idle
by Anonymous Monk on Jan 03, 2018 at 20:27 UTC

    I've been using event loops, but I haven't been able to get the loop to triage to my sub when there are no other events. I've only been able to force my sub to run as a periodic event. Here is the code I have now, but it doesn't actually read any frames. Maybe the subscription isn't being sent correctly? It shows the logic I am trying to accomplish, though.

    #!/usr/bin/perl use strict; use IO::Socket::SSL; use IO::Framed; use Net::WebSocket::Frame::text; use Net::WebSocket::Parser; use Net::WebSocket::Endpoint::Client; use Net::WebSocket::Handshake::Client (); use Net::WebSocket::HTTP_R (); use HTTP::Response; use JSON::XS; use Data::Dumper; my @prods = qw(BTC-USD LTC-USD ETH-USD); my $host = ''; my $wssurl = "wss://$host/"; my $port = 443; my $inet = IO::Socket::SSL->new("$host:$port") or die "failed connect or ssl handshake: $!\n$SSL_ERROR"; $inet->blocking(0); my $handshake = Net::WebSocket::Handshake::Client->new( uri => $wssurl ); print "REQ HEADERS:\n".$handshake->to_string()."\n"; syswrite $inet, $handshake->to_string() or die $!; my $buffer = ''; my $cnt = 0; my $line = <$inet>; while($line ne "\r\n") { $buffer.= $line; $line = <$inet>; } print "RESP HEADERS:\n$buffer\n"; my $resp = HTTP::Response->parse($buffer); Net::WebSocket::HTTP_R::handshake_consume_response( $handshake, $resp +); #See below about IO::Framed my $iof_r = IO::Framed->new($inet); $iof_r->allow_empty_read(); my $parser = Net::WebSocket::Parser->new( $iof_r ); my $iof_w = IO::Framed->new($inet); my $ept = Net::WebSocket::Endpoint::Client->new( parser => $parser, out => $iof_w, ); my $subscribe = { type => 'subscribe', product_ids => \@prods, channels => ['full'] }; my $payload = encode_json($subscribe); print $payload."\n"; $iof_w->write( Net::WebSocket::Frame::text->new( payload => $payload ) ); while(1) { while(1) { # we are catching up print "get next frame\n"; my $frame = $ept->get_next_message(); print "\$frame = \"$frame\"\n"; last unless($frame); load_frame(decode_json($frame)); } # we are caught up somethinghard(); # catch up again } sub somethinghard { print "something hard\n"; sleep 1; } sub load_frame { my ($frame) = @_; my $data = decode_json($frame); print Dumper($data); }

      What you've shown isn't really the kind of event loop I meant (see e.g. POE) - but that might not be necessary in this case. My understanding from the somewhat sparse documentation (the module is apparently still in beta) and a look at some of the code is that it will return undef if there is currently no message available. Without having the time to test myself at the moment, it sounds to me like this is the "idle" event you are looking for. I don't think you need nested loops either, a single loop with an if/elsif after get_next_message should be enough. Note there is also Time::HiRes that you can use to keep precise track of the timings if you like. And be careful with sleeps, depending on the message frequency, you may not need them at all and you might unnecessarily block your code. And a final nitpick: you seem to be using the term "frame" when you mean "message", I recommend sorting that out so there is no confusion when reading the code.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1206622]
[marto]: I can't remember exactly, but it has been years since I last saw the name listed in 'Other users'
[Corion]: Heh - vroom came with interesting news - the site will likely be migrated away from *BSD to Ubuntu soonish... Hopefully I can give the new environment a test drive before it spins up :)

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (7)
As of 2018-07-19 07:49 GMT
Find Nodes?
    Voting Booth?
    It has been suggested to rename Perl 6 in order to boost its marketing potential. Which name would you prefer?

    Results (404 votes). Check out past polls.