勝手に小作り

dankogaiさんの404 Blog Not Found:勝手に添削 - Ajaxでデバッグしよう - ＠ITにてflookが必要なのかが論争になっているようなのでヒントだけ指し示した。

use strict;
use warnings;

open my $tokuhirom, '>>/tmp/child' or die $!;
open my $oppaisan, '>>/tmp/child' or die $!;

print $tokuhirom "tokuhirom\n";
print $oppaisan "oppaisan\n";

print $tokuhirom "tokuhirom\n";
print $oppaisan "oppaisan\n";

print $tokuhirom "tokuhirom\n";
print $oppaisan "oppaisan\n";

close $tokuhirom;
close $oppaisan;

この結果が以下の通りである。

tokuhirom
tokuhirom
tokuhirom
oppaisan
oppaisan
oppaisan

私が言うのもおこがましいですが、子種がミックスされないので子供が出来ない。

oppaisanが攻めにまわると

use strict;
use warnings;

open my $tokuhirom, '>>/tmp/child' or die $!;
open my $oppaisan, '>>/tmp/child' or die $!;

print $tokuhirom "tokuhirom\n";
print $oppaisan "oppaisan\n";

print $tokuhirom "tokuhirom\n";
print $oppaisan "oppaisan\n";

print $tokuhirom "tokuhirom\n";
print $oppaisan "oppaisan\n";

close $oppaisan;
close $tokuhirom;

逆になる

oppaisan
oppaisan
oppaisan
tokuhirom
tokuhirom
tokuhirom