在我以前写的博文[脚本与批处理合二为一-----(1)JaveScript篇]中实现Javascript与批处理的混搭,但很多TX可能更喜欢用PERL,其实用相同的原理也可以将PERL和批处理进行融合:使用PERL和批处理都能接受的语句将代码分流.
请看下面的代码(扩展名为bat),关键在前三行,对于这三行对于perl来说是一个数组定义,而对于批处理来说是两个注释语句和一个跳转语句,这样就实现了在不同解释器下的不同代码流:
1 首先文件作为批处理代码执行
2 由于第二行代码(goto)直接跳转到16行(:endofperl),执行一些批处理代码做一些预处理,
2 然后在23行(call perl...)将批处理文件当做Perl脚本文件装载到perl解释器
3 Perl代码将从第一行执行到第14行(__END__)退出
4 然后从24开始继续执行批处理代码做一些后处理