Skip to content

Instantly share code, notes, and snippets.

@adam-stokes

adam-stokes/websocket2.pl

Created February 12, 2014 01:13
Show Gist options
  • Save adam-stokes/8947999 to your computer and use it in GitHub Desktop.
Save adam-stokes/8947999 to your computer and use it in GitHub Desktop.
Download ZIP
websocket2
Raw
websocket2.pl
#!/usr/bin/env perl
use Mojo::Transaction::WebSocket;
use DDP;
my $endpoint = 'wss://10.0.3.1:17070/';
my $ws = Mojo::Transaction::WebSocket->new(
remote_address => '10.0.3.1',
remote_port => '17070',
);
p $ws;
$ws->send(json => {"RequestId"=> 150, "Type"=>"Pinger", "Request"=>"Ping", "Params" =>{text=>"test"}});
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment