使用Perl或者Python加载Praat脚本在DOS命令窗口直接执行

通常一个完整的项目过程中，使用了多个Praat脚本，这时候如果频繁通过打开Praat，再打开脚本去执行，非常麻烦，如果这样的过程过于重复，可以考虑通过使用Perl或者Python写一个流程，把脚本都放到这个流程里，执行，不需要去打开Praat。Praat提供了这样的方便，它有一个Command窗口执行的文件，叫praatcon.exe，这个文件也可以在官方网站下载到。

下载地址：

5. The console Praat (for experienced Praat script writers only!)

There is also a special program called Praatcon,which you run from a console window (the "command prompt"). Download the following zip folder:

64-bit edition: praatcon5381_win64.zip (3 July 2014; 5.7 MB)

32-bit edition: praatcon5381_win32.zip (3 July 2014; 5.4 MB)

This zip folder contains Praatcon(.exe),which is the Praat console application. You should not double-click it. To run it,write a Praat script and specify that script on the command line,optionally with arguments,e.g.:

???praatcon playsinewave.praat 377 0.9

?

可以根据自己的计算机操作系统位数选择相应的下载包。

?

下载了之后放在计算机的某个位置，比如放在E:praatcon.exe

?

在这里给出一个测试脚本，脚本的目的是获取某个文件夹内某种文件的文件名列表，请注意如果这样的脚本是针对不同目录进行操作的，需要在脚本里使用form对话框给出参数，从而这样的参数也可以在调用这个脚本的时候给出。

form test
	sentence openPath E:TranWav
	sentence savePath E:dir.txt
	sentence extName .wav
endform

Create Strings as file list: "fileList",openPath$+extName$
fileNum=Get number of strings
for ifile from 1 to fileNum
	selectObject: "Strings fileList"
	fileName$=Get string: ifile
	appendFileLine: savePath$,fileName$
endfor

脚本需要三个参数，第一个是原来的文件所在的目录，第二个参数是产生的列表所在的路径，第三个参数是指过滤什么类型的文件。

使用Perl调用这个脚本的方法是：

$commandline=sprintf("E:praatcon.exe E:GetFileNames.Praat E:wav E:dir.txt .wav");
system($commandline);

第一个是Praatcon.exe所在的路径，第二个是脚本所在的路径，第三个是脚本里的第一个参数，后面两个同理。

?

而使用Python也同样：

import os
os.system('E:praatcon.exe E:GetFileNames.Praat E:wav E:dir.txt .wav')