Seguindo a resposta de xhienne, este script perl definirá o tamanho de um fifo aberto existente:
#!/usr/bin/perl
# usage: name-of-open-fifo size-in-bytes
# http://unix.stackexchange.com/a/353761/119298
use strict;
use Fcntl;
my $fifo = shift @ARGV or die "usage: fifo size";
my $size = shift @ARGV or die "usage: fifo size";
open(FD, $fifo) or die "cannot open";
printf "old size %d\n",fcntl(\*FD, Fcntl::F_GETPIPE_SZ, 0);
my $new = fcntl(\*FD, Fcntl::F_SETPIPE_SZ, int($size));
die "failed" if $new<$size;
printf "new size %d\n",$new;
Coloque isso em um arquivo, diga ~/setfifo
, faça chmod +x
, e execute-o depois de ter criado e aberto seu fifo, por exemplo:
$ mkfifo /tmp/fifo
$ cat -n <>/tmp/fifo &
$ ~/setfifo /tmp/fifo 1048576
old size 65536
new size 1048576
Se o seu perl ainda não tiver as constantes F_GETPIPE_SZ
e F_SETPIPE_SZ
, você pode simplesmente usar os números apropriados encontrados procurando pelos arquivos C em /usr/include/
. São respectivamente 1024 + 8 e 1024 + 7. Aqui está o script perl resultante:
#!/usr/bin/perl
# usage: name-of-open-fifo size-in-bytes
# http://unix.stackexchange.com/a/353761/119298
use strict;
# int fcntl(int fd, int cmd, ...) F_GETPIPE_SZ,void F_SETPIPE_SZ,int
# /usr/include/asm-generic/fcntl.h #define F_LINUX_SPECIFIC_BASE 1024
# /usr/include/linux/fcntl.h #define F_SETPIPE_SZ (F_LINUX_SPECIFIC_BASE + 7)
sub F_SETPIPE_SZ{ 1024+7; }
sub F_GETPIPE_SZ{ 1024+8; }
my $fifo = shift @ARGV or die "usage: fifo size";
my $size = shift @ARGV or die "usage: fifo size";
open(FD, $fifo) or die "cannot open";
printf "old size %d\n",fcntl(\*FD, F_GETPIPE_SZ, 0);
my $new = fcntl(\*FD, F_SETPIPE_SZ, int($size));
die "failed" if $new<$size;
printf "new size %d\n",$new;