如何将丢弃到BATCH文件的文件名称回显到PERL？

Question

我试过这个：

ECHO %~nx1 | my_script.pl

我的perl脚本包含以下行：

open(SRC, <STDIN>) or die ("failed to open $a\n");

我是Perl的新手，所以任何帮助都会非常感激！

Answer 1

my $qfn = <STDIN>;
chomp $qfn;
open(my $fh, '<', $qfn)
   or die ("Can't open \"$qfn\": $!\n");

while (<$fh>) { ... }

但是将路径作为参数传递会更有意义。

my_script.pl "%~nx1"

然后Perl脚本可以缩减为

while (<>) { ... }