Perl 名前付きパイプ FIFOを作る方法

スポンサーリンク

#!/usr/local/bin/perl -w
use strict;

sub main {
	my $path = '/tmp/foo.fifo';
	my $mode = 0600;
	if (-p $path) {
		unlink $path;
	}
	use POSIX;
	if(! mkfifo($path, $mode) ) {
		die "can not mkfifo(${path}, ${mode}): $!";
	}

	my $pid = fork();
	if ($pid ==0) {
		open(FIFO, "> ${path}")
		or die "can not open ${path}: $!";
		print FIFO "foo\n";
		print FIFO "bar\n";
		close(FIFO);
		exit;
	}
	open(FIFO, "< ${path}")
	or die "can not open ${path}: $!";
	while(<FIFO>) {
		print;
	}

	wait;
	close(FIFO);
	unlink $path;
	exit (0);
}
& main;

スポンサーリンク

いつもシェア、ありがとうございます！

スポンサーリンク

過去ログ

2020 : 01 02 03 04 05 06 07 08 09 10 11 12
2019 : 01 02 03 04 05 06 07 08 09 10 11 12
2018 : 01 02 03 04 05 06 07 08 09 10 11 12
2017 : 01 02 03 04 05 06 07 08 09 10 11 12
2016 : 01 02 03 04 05 06 07 08 09 10 11 12
2015 : 01 02 03 04 05 06 07 08 09 10 11 12
2014 : 01 02 03 04 05 06 07 08 09 10 11 12
2013 : 01 02 03 04 05 06 07 08 09 10 11 12
2012 : 01 02 03 04 05 06 07 08 09 10 11 12
2011 : 01 02 03 04 05 06 07 08 09 10 11 12
2010 : 01 02 03 04 05 06 07 08 09 10 11 12
2009 : 01 02 03 04 05 06 07 08 09 10 11 12
2008 : 01 02 03 04 05 06 07 08 09 10 11 12
2007 : 01 02 03 04 05 06 07 08 09 10 11 12
2006 : 01 02 03 04 05 06 07 08 09 10 11 12
2005 : 01 02 03 04 05 06 07 08 09 10 11 12
2004 : 01 02 03 04 05 06 07 08 09 10 11 12
2003 : 01 02 03 04 05 06 07 08 09 10 11 12

サイト

Vim入門

C言語入門

C++入門

JavaScript/Node.js入門

Python入門

FreeBSD入門

Ubuntu入門

セキュリティ入門

パソコン自作入門

ブログ

トップ

---