Perl到InDesign CS4示例（OS X）

Posted 2021-02-26

This example demonstrates a way to control Adobe InDesign from Perl. Tested on MacOS X 10.5.7 and INDD.

#!/opt/local/bin/perl -w
# ^^^ your hashbang may vary
 
use strict;
use warnings;
 
 
`/usr/bin/osascript <<-HereDoc
 
tell application "Adobe InDesign CS4"
do script "
 
	// start your javascript code controlling InDesign here
 
	var myObject = app.selection[0]; // grabs selected object in INDD
	alert(myObject); // show object kind
 
	// javascript code ends here
 
" language javascript
end tell
 
HereDoc`;