calid

/usr/local/java-apps
├── bin
│   └── myapp -> ../myapp/bin/myapp
└── myapp
    ├── bin
    │   └── myapp
    └── lib
        ├── dependency1.jar
        ├── dependency2.jar
        ├── dependency3.jar

calid

repositories {
    maven { url 'http://internalrepo.example.com' }
}

dependencies {
    runtime 'mygroup:myapp:1.0'
}

apply plugin: 'application'

calid

uploadArchives {
    repositories {
        mavenDeployer {
            repository url: 'file:///tmp/testRepo'

            pom.whenConfigured { p ->
                // get all unresolved dependencies in our pom
                def unresolved = p.getDependencies()
                                  .grep { it.version == '+' }

calid

ØMQ Perl Performance Comparison: FFI vs XS bindings

Comparison of the performance of FFI vs XS zeromq bindings. For FFI the ZMQ::FFI bindings are used, first using FFI::Raw on the backend and then using FFI::Platypus. For XS ZMQ::LibZMQ3 is used.

Comparison is done using the zeromq weather station example, first by timing wuclient.pl using the various implementations, and then by profiling wuserver.pl using Devel::NYTProf. When profiling the server is changed to simply publish 1 million messages and exit.

calid

use Sys::SigAction qw(timeout_call);

my $timed_out = timeout_call 3, sub {   # schedules SIGALRM
    my $ctx = ZMQ::FFI->new();
    my $s   = $ctx->socket(ZMQ_REQ);

    $s->connect("ipc:///tmp/test-zmq-ffi-$$");
    $s->send('ohhai');

    $s->close();     # bug here, linger not set

calid

#include <zmq.h>
#include <assert.h>
#include <stdio.h>

int main(void)
{
    int rc;

    void *context = zmq_ctx_new();
    void *socket  = zmq_socket(context, ZMQ_SUB);

calid

use strict;
use warnings;

use Test::More;

use AnyEvent;
use EV;
use ZMQ::FFI;
use ZMQ::FFI::Constants qw(ZMQ_PUSH ZMQ_PULL);

calid

$ for i in {{1..10}}; do ./run syncsub & done
[1] 2719
[2] 2720
[3] 2721
[4] 2722
[5] 2723
syncsub with jeromq
[6] 2725
syncsub with jeromq
syncsub with jeromq

calid

import zmq

c = zmq.Context()
s = c.socket(zmq.DEALER)
s.connect('ipc://*')
s.send_string('ohhai')
s.send_string('ohhai')
s.send_string('ohhai')

print('Done')

calid

local *Foo::c = sub { print "IN MY C\n" };
my $f = Foo->new();
Foo::c();
Foo::d();
e();
undef $f;

__END__

Output