[原创] 脚本与批处理合二为一-----(2)Perl篇

????? 在我以前写的博文[脚本与批处理合二为一-----(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开始继续执行批处理代码做一些后处理

@rem = 'Perl read this as an array & skip the goto @goto endofperl @rem '; #-------------------------------- # Perl Begin #-------------------------------- #PERL代码写在这里 #--------------------------------- # Perl End #--------------------------------- __END__ :endofperl ... 批处理语句写在这里 ... @rem 重新将本文件作为PERL脚本文件调用 call perl "%dpnx0" %* ... 批处理语句写在这里 ...