请教一个关于进程和管道的问题

yalechen

下一段代码，父进程进程往管道写数据，子进程读取并写入文件，我想把123和456分别写入两个文件，应该怎么改？（现在123456都写入了test1.txt文件），谢谢
        $pid = open(OPENSSL, "|-");
        $SIG{ALRM} = sub { $errormessage = $tr{'broken pipe'}; goto SERVERCERT_ERROR;};
        if ($pid) {        # parent
            print OPENSSL "1\n";
            print OPENSSL "2\n";
            print OPENSSL "3\n";
            print OPENSSL "4\n";
            print OPENSSL "5\n";
            print OPENSSL "6\n";
            close (OPENSSL);
            if ($?) {
                $errormessage = "$tr{'openssl produced an error'}: $?";
                goto SERVERCERT_ERROR;
            }
        } else {        # child
          open(TS,">>test.txt");
                 print TS <STDIN>;
          close(TS);   

          open(TS1,">>test1.txt");
                  print TS1 <STDIN>;
          close(TS1);
        }