[原创] 脚本与批处理合二为一-----(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<a href="/tag/daima/" target="_blank" class="keywords">代码</a>写<a href="/tag/zaizheli/" target="_blank" class="keywords">在这里</a> #--------------------------------- # Perl End #--------------------------------- __END__ :endofperl ... 批处理语句写<a href="/tag/zaizheli/" target="_blank" class="keywords">在这里</a> ... @rem 重新将本<a href="/tag/wenjian/" target="_blank" class="keywords">文件</a>作为PERL脚本<a href="/tag/wenjian/" target="_blank" class="keywords">文件</a><a href="/tag/diaoyong/" target="_blank" class="keywords">调用</a> call perl "%<a href="/tag/dpn/" target="_blank" class="keywords">dpn</a>x0" %* ... 批处理语句写<a href="/tag/zaizheli/" target="_blank" class="keywords">在这里</a> ...