我有一个批处理脚本执行一些处理和调用一些perl脚本.
我的问题是如果有一种方法将perl代码直接放入批处理脚本,并运行两种类型的脚本.
解决方法
Active Perl已经做了这么多年了！
下面是一个骨架.你只能调用perl一次.因为通过它-x开关说你会发现这个文件中嵌入的perl代码,perl读取文件,直到找到一个perl shebang(#！… perl)并开始在那里执行. Perl会忽略__END__之外的所有内容,而且因为你告诉DOS去转发endofperl,所以直到找到标签就不会有任何麻烦.
@rem = '--*-Perl-*-- @echo off perl -x -S %0 %* goto endofperl @rem -- BEGIN PERL -- '; #!d:/Perl/bin/perl.exe -w #line 10 use strict; __END__ :endofperl
