如何通过批处理文件将stdin发送到perl程序？

Question

我想将许多文件/字符串处理成perl，不要等待批处理文件中的stdin响应，.How会是批处理文件吗？

例如我有test.pl，内容是

my $o=<STDIN>;

print "$o\n";

my $c=<STDIN>;

print "$c\n";

批处理文件随时用不同的stdin执行test.pl

考虑批处理文件的功能是

perl test.pl <stdin> <stdin> 
perl test.pl <stdin> <stdin> 
perl test.pl <stdin> <stdin> 
perl test.pl <stdin> <stdin> 

然后我想知道如何将stdin发送到test.pl。

Answer 1

在这里你必须使用@ARGV来接收数据。它应该如下：

force

您可以执行程序，如下所示：

my $o=$ARGV[0];

print "$o\n";

my $c=$ARGV[1];

print "$c\n";

您将输出作为

perl test.pl argument_1a argument_2a