Command Prompt + Perl 脚本编写笔记

  输出到文件字符

>覆盖输出到文件

>>追加输出到指定文件

 

连接两个执行

& 执行命令1然后执行命令2

&&如果执行命令1成功，则执行命令2

||如果执行命令1失败，则执行命令2

 

CHOICE选择语句

如以下：

CHOICE /C:123

在数字1、2、3中选择操作。

 

CALL语句

调用外部批处理程序

CALL C:"WINDOWS"NEW_BATCHFILE.BAT

调用外部程序

CALL C:"calc.exe

 

FOR...IN...DO 循环语句

这段代码将在(A, B, C)中当获得B时将输出"B is in the set!"

FOR %%b in (A, B, C) DO IF %%b == B echo B is in the set!

将输出C:"windows"desktop下所有文件列表

FOR %%c in (C:"windows"desktop"*.*) DO echo %%c

GOTO语句

goto EOF或者goto :EOF都可以执行。

 

 

IF, IF EXIST, IF NOT EXIST

IF EXIST C:"tempfile.txt DEL C:"tempfile.txt

IF NOT EXIST C:"tempfile.txt COPY C:"WINDOWS"tempfile.txt C:"tempfile.txt

 

换行操作符
代码太长，用^可以换行，例如：

copy file.txt file2.txt

可以更改为:

copy file.txt^   file2.txt

 

批处理文件名后跟参数问题

1. 用%加数字表示，如%1,%2,%3等,但以下只表示命令后的参数，如run -c -d中的-c和-d等参数。

      if (%1) == (-?) goto MENU

      if (%1) == (-1) goto 1

      if (%1) == (-3) goto 2

      if (%1) == (-4) goto 3

 2. 用%0可取批处理文件本身文件名。比如run -c 输出%0，则显示run；若run.bat -c则输出run.bat等。

 

创建用户自定义变量

set a=1

set b=2

 

判断文件是否存在语句

IF EXIST, IF NOT EXIST

IF EXIST C:"tempfile.txt DEL C:"tempfile.txt

IF NOT EXIST C:"tempfile.txt COPY C:"WINDOWS"tempfile.txt C:"tempfile.txt

 

 下面是我用来学习的例子(Command Prompt 与 Perl的结合)：

@ECHO   OFF
REM  --------------------------------
REM       Created by Lihua
REM  --------------------------------
BREAK = ON  
if   ( %1 )   ==   ( -? )   goto  MENU
if   ( %1 )   ==   ( - 1 )   goto   1
if   ( %1 )   ==   ( - 2 )   goto   2
if   ( %1 )   ==   ( -perl )   goto  perl
if   ( %1 )   ==   ( - 4 )      goto   4
:MENU
ECHO   1  -  FOR    IN    DO
ECHO   2  - demo
ECHO   3  - Crosses
ECHO   0  -  EXIT
goto  EOF
: 1
FOR  %%c in  ( D: \ * . * )   DO   echo  %%c
goto  EOF
: 2
FOR  %%b in  ( A ,  B ,  C )   DO   IF  %%b  ==  B  echo  B is in the  set ! 
goto   :EOF
:perl
echo  %~dp0
echo  %*
setlocal
perl . exe -w -x %~f0 %*
endlocal
goto  EOF
: 4
echo  I^
 am^
 boss^
 here^
!!!
goto  EOF
:EOF
EXIT   / b


# !perl
print ( " [zivsoft.com]\n " );
__END__