perl 命令行模式不能使用* ？

brotherjam

在windows下，想对文件夹下所有的文件操作，想直接命令行执行，
perl -p -i.bak -e "s/a/b/g" *.txt
这里*不好用，只能把所有的文件名敲上。
有没有什么好方法解决这个问题啊？

blackold

你用的是哪种windows系统？

flw

原帖由 blackold 于 2009-9-20 08:58 发表
你用的是哪种windows系统？

哪种 Windows 都不行。

在 MSDOS/Windows 的设计当中，
通配符是由应用程序负责解释的，而非 shell（explorer.exe/cmd.exe/command.exe/command.com），
因此，你的程序想要在 Windows 下支持通配符，
那你得为此写几行代码。

blackold

有理！

向flw学习!

flw

@ARGV = map { glob $_ } @ARGV;
or
use Win32::Autoglob;
or
perl -MWin32::Autoglob -p -i.bak -e "s/a/b/g" *.txt

[ 本帖最后由 flw 于 2009-9-20 20:26 编辑 ]

brotherjam

原帖由 flw 于 2009-9-20 20:21 发表
@ARGV = map { glob $_ } @ARGV;
or
use Win32::Autoglob;
or
perl -MWin32::Autoglob -p -i.bak -e "s/a/b/g" *.txt

受教了，谢谢！