防止Perl程序在使用system向sh终端写入数据后打印换行符

system("echo 'data' | sh");
print "\n";  # 打印换行符

my $result = system("echo 'data' | sh");
if ($result == 0) {
    # 命令执行成功
} else {
    # 命令执行失败
}

use IPC::Open3;

my $pid = open3(\*WRITE, \*READ, \*ERROR, "sh");
print WRITE "data\n";
close WRITE;

my $output = <READ>;
print $output;
close READ;

my $error = <ERROR>;
print $error;
close ERROR;