README

Perl-OSX-Clipboard: Scripts to manipulate a Mac OS X-clipboard.
See: null

pb_client.pl

use strict;
use warnings;
use IO::Socket::UNIX;

my $socket_file = shift || '/tmp/pb_server.pl.sock';

my $connection = IO::Socket::UNIX->new(
    Type => SOCK_STREAM,
    Peer => $socket_file,
) or die $!;

my $data = '';
my $read;
while ($connection->sysread($read, 1024)) {
    $data .= $read;
}
print $data;
$connection->close;

pb_server.pl

use strict;
use warnings;
use IO::Socket::UNIX;
 
my $socket_file = shift || '/tmp/pb_server.pl.sock';
unlink $socket_file if -e $socket_file;

my $listen = IO::Socket::UNIX->new(
    Type   => SOCK_STREAM,
    Local  => $socket_file,
    Listen => SOMAXCONN,
) or die $!;

while (my $connection = $listen->accept) {
    open my $pbpaste, '-|', 'pbpaste' or next; 
    my $data;
    {
        local $/;
        $data = <$pbpaste>;
    }

    $connection->syswrite($data);
    $connection->close;
}