pipe vs socket

bench-unixsocket-pipe.pl

#!/usr/bin/perl

use warnings;
use strict;

use utf8;
use open qw(:std :utf8);
use Benchmark qw(:all) ;
use Socket;

sub null_reader($) {
    my ($fh) = @_;

    my $cnt = 0;
    my $str;
    while(1) {
        read $fh, $str, 1024 or exit;
        $cnt++;
    }
}

sub writer($) {
    my ($fh) = @_;
    print $fh "b" x 512;
}

my ($r, $w);
pipe $r, $w;

my ($rs, $ws);
socketpair $rs, $ws, AF_UNIX, SOCK_STREAM, PF_UNSPEC;


if (!fork) {
    close $w;
    null_reader $r;
}

if (!fork) {
    close $ws;
    null_reader $rs;
}


cmpthese(
        10000000    => {
            pipe    => sub { writer $w },
            socket  => sub { writer $ws }
        }
);

result.txt

           Rate   pipe socket
pipe   513084/s     --    -5%
socket 540833/s     5%     --