勝手に小作り
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