Applescript

‘Applescript’ タグのついている投稿

ChatGPT3.5でのスクリプティングを試してみた

2023/04/12

　話題の生成系AI、OpenAIのChatGPTでのスクリプトコード作成を遅ればせながら簡単に試してみました。2023年4月現在、無料で使えるのはChatGPT3.5ですのでそちらでのテストになります。なお、Bing Chatはまだ順番待ち状態なので素のChatGPTです。試した言語はAppleScriptとPerlになります。

　まずAppleScriptです。DTP作業で多用する処理を試しました。

・Photoshopの画像のカラーモードをグレースケールに

　結果：×
概要：「convert mode」ではなく「change mode to」にしないとエラーになる。

・Photoshopの画像の解像度を350dpiに

　結果：×
概要：「set resolution to」ではなく「resize image resolution」にしないとエラーになる。

・InDesignドキュメント内のJIS X 0213外の文字だけを赤くする

　結果：×
概要：文法がおかしいらしくスクリプトエディタでの保存自体ができない。JIS X 0213外の文字の判別式もこんなに短いわけがない。

Perl

　次にPerlのテストです。なお何も指定せずにコードを生成させたら内部文字列UTF-16のコードを出してきたので内部文字列UTF-8を指定して再生成しました。条件をちゃんと指定するのは大事ですね。また、動作チェック時に「use utf8;」の指定を書き足しています。

・与えられた文字列内にJIS X 0213外の文字が含まれているかどうかのチェック

　結果：×
概要：JIS X 0213はラテンアルファベットを含んでいるので（参考）、説明自体がおかしい。まあJIS規格は著作物扱いのはずなのでここですんなり出てきてしまったらむしろ問題かもしれない。

・与えられた文字列内にcp932の機種依存文字が含まれているかどうかのチェック

　結果：×
概要：判定ルーチン自体は正しいように見えるのだが、判定のリストがおかしいらしくよく問題になる丸数字やローマ数字が引っかからない。そこを書き換えられれば実用範囲か。

・与えられた文字列内にUnicodeのBMP（基本多言語面）外の文字が含まれているかどうかのチェック

　結果：○
概要：これは問題なかった。

　どうもChatGPT3.5の時点では、AppleScriptのような比較的マイナーな言語やJIS X 0213など日本のローカル規格の学習は足りていないのかもしれません。文法自体はパーツとしては使えそうに見えるのでその辺を割り切って使うなら許容範囲でしょうか。つまり元々コードが書ける人が時短目的で使うのなら有用かもしれないですね。いずれバージョンが進めば今回問題になったような「学習が足りない」ことが原因の間違いは減っていきそうですが、「AIにどういった問いを与えるのか」はおそらく相当先まで人間が考えるしかないので、そこをやれる人が効率化のために使うツールという位置づけになるのかなと思った次第です。

（2023.4.12）

タグ: AI, Applescript, ChatGPT, Perl
カテゴリー: 未分類 | コメントはまだありません »

macOS12.3でスクリプトが動かなくなったので修正した

2022/06/14

　先日、macOS12.3へのアップデートを実施したところ、これまで動いていたいくつかのスクリプトが動かなくなりました。調べてみたところどうやらPython2.x系のランタイム環境が削除された影響だったようです。今後のために対処した方法を置いておきます。

VivliostyleをローカルPC内サーバーで展開するコードの修正

　以前、こちらに書いたものを社内でもずっと使っているのですが、こちらでローカルWebサーバ起動処理にPython2系を使っていたために動かなくなりました。これは単純にPython3を使ってサーバを起動すればよいので、

python -m SimpleHTTPServer 8000

1	python -m SimpleHTTPServer 8000

を

python3 -m http.server 8000

1	python3 -m http.server 8000

に書き換えて終了。以下に一応全文を置いておきます。

######vivliostyleフォルダ、表示するepubファイルの順でパスを指定するとepubファイルをVivliostyleで起動する。Mac専用。######
use utf8;
#Encodeモジュールをインポート
use Encode qw/encode decode/;

######Vivliostyleで表示する際のCSS追加指定######
my $addVivliostyleCss = "&renderAllPages=true&userStyle=data:,/*%3Cviewer%3E*/%0Aimg,%20svg%20%7B%20max-inline-size:%20100%25%20!important;%20max-block-size:%20100vb%20!important;%20object-fit:%20contain%20!important;%20%7D%0A/*%3C/viewer%3E*/%0A\@page%20:left%20%7B%0Amargin-right:%2010mm;%0A\@bottom-left%20%7B%0Acontent:%20counter(page);%0Amargin-left:%205pt;%0Amargin-bottom:%206mm;%0Awriting-mode:%20horizontal-tb;%0Afont-weight:%20normal;%0Afont-family:%20serif-ja,%20serif;%0A%7D%0A%7D%0A\@page%20:right%20%7B%0Amargin-left:%2010mm;%0A\@bottom-right%20%7B%0Acontent:%20counter(page);%0Amargin-right:%205pt;%0Amargin-bottom:%206mm;%0Awriting-mode:%20horizontal-tb;%0Afont-weight:%20normal;%0Afont-family:%20serif-ja,%20serif;%0A%7D%0A%7D%0A\@page%20:first%20%7B%0A\@bottom-left%20%7B%0Acontent:%20%27%27;%0A%7D%0A\@top-left%20%7B%0Acontent:%20%27%27;%0A%7D%0A%7D&spread=true"; #見開き表示、画像表示最適化、ノンブル表示の指定を追加
#############################################

#vivliostyleパッケージのパスを取得
my $vivliostyleFolderPath = $ARGV[0];
$vivliostyleFolderPath = decode('UTF-8', $vivliostyleFolderPath);
#パッケージの親ディレクトリのパスを取得（そこを起点にローカルWebサーバを起動する）
my $currentFolderPath = $vivliostyleFolderPath;
$currentFolderPath =~ s@^(.+?)/[^/]+$@$1@;
#vivliostyleフォルダ名を取得
my $vivliostyleFolderName = $vivliostyleFolderPath;
$vivliostyleFolderName =~ s@^.+?/([^/]+)$@$1@;

#表示するepubファイルのパスを取得
my $epubFilePath = $ARGV[1];
$epubFilePath = decode('UTF-8', $epubFilePath);

#乱数代わりに日時の数字を取得してepub解凍フォルダ名決定
my $getDateTimeNowCommand = 'date "+%Y%m%d%H%M%S"';
chomp(my $datetimenow = `$getDateTimeNowCommand`);
my $epubUnzipFoldername = "vivliostyleepubtmp_" . $datetimenow;
#テンポラリフォルダ無ければ作る
unless (-d $currentFolderPath . "/tmp"){mkdir $currentFolderPath . "/tmp"};
#テンポラリフォルダにEPUBファイルを解凍する
my $epubUnzipCommand = "unzip " . $epubFilePath . " -d " . $currentFolderPath . "/tmp/" . $epubUnzipFoldername;
system $epubUnzipCommand;

#ローカルWebサーバ起動処理
my $serverStartCommand = 'osascript -e \'tell application "Terminal" to do script "cd ' . $currentFolderPath . ';python3 -m http.server 8000"\'';
system $serverStartCommand;

#ディレイ処理
my $delayCommand = "osascript -e 'delay 2'";
system $delayCommand;

#Vivliostyle Viewer起動
my $openVivliostyleCmd = 'osascript -e \'tell application "Google Chrome" to open location "http://localhost:8000/' . $vivliostyleFolderName . '/viewer/index.html#b=http://localhost:8000/tmp/' . $epubUnzipFoldername . $addVivliostyleCss . "\"'";
system $openVivliostyleCmd;

######vivliostyleフォルダ、表示するepubファイルの順でパスを指定するとepubファイルをVivliostyleで起動する。Mac専用。######

use utf8;

#Encodeモジュールをインポート

use Encode qw/encode decode/;

######Vivliostyleで表示する際のCSS追加指定######

my $addVivliostyleCss = "&renderAllPages=true&userStyle=data:,/*%3Cviewer%3E*/%0Aimg,%20svg%20%7B%20max-inline-size:%20100%25%20!important;%20max-block-size:%20100vb%20!important;%20object-fit:%20contain%20!important;%20%7D%0A/*%3C/viewer%3E*/%0A\@page%20:left%20%7B%0Amargin-right:%2010mm;%0A\@bottom-left%20%7B%0Acontent:%20counter(page);%0Amargin-left:%205pt;%0Amargin-bottom:%206mm;%0Awriting-mode:%20horizontal-tb;%0Afont-weight:%20normal;%0Afont-family:%20serif-ja,%20serif;%0A%7D%0A%7D%0A\@page%20:right%20%7B%0Amargin-left:%2010mm;%0A\@bottom-right%20%7B%0Acontent:%20counter(page);%0Amargin-right:%205pt;%0Amargin-bottom:%206mm;%0Awriting-mode:%20horizontal-tb;%0Afont-weight:%20normal;%0Afont-family:%20serif-ja,%20serif;%0A%7D%0A%7D%0A\@page%20:first%20%7B%0A\@bottom-left%20%7B%0Acontent:%20%27%27;%0A%7D%0A\@top-left%20%7B%0Acontent:%20%27%27;%0A%7D%0A%7D&spread=true"; #見開き表示、画像表示最適化、ノンブル表示の指定を追加

#############################################

#vivliostyleパッケージのパスを取得

my $vivliostyleFolderPath = $ARGV[0];

$vivliostyleFolderPath = decode('UTF-8', $vivliostyleFolderPath);

#パッケージの親ディレクトリのパスを取得（そこを起点にローカルWebサーバを起動する）

my $currentFolderPath = $vivliostyleFolderPath;

$currentFolderPath =~ s@^(.+?)/[^/]+$@$1@;

#vivliostyleフォルダ名を取得

my $vivliostyleFolderName = $vivliostyleFolderPath;

$vivliostyleFolderName =~ s@^.+?/([^/]+)$@$1@;

#表示するepubファイルのパスを取得

my $epubFilePath = $ARGV[1];

$epubFilePath = decode('UTF-8', $epubFilePath);

#乱数代わりに日時の数字を取得してepub解凍フォルダ名決定

my $getDateTimeNowCommand = 'date "+%Y%m%d%H%M%S"';

chomp(my $datetimenow = `$getDateTimeNowCommand`);

my $epubUnzipFoldername = "vivliostyleepubtmp_" . $datetimenow;

#テンポラリフォルダ無ければ作る

unless (-d $currentFolderPath . "/tmp"){mkdir $currentFolderPath . "/tmp"};

#テンポラリフォルダにEPUBファイルを解凍する

my $epubUnzipCommand = "unzip " . $epubFilePath . " -d " . $currentFolderPath . "/tmp/" . $epubUnzipFoldername;

system $epubUnzipCommand;

#ローカルWebサーバ起動処理

my $serverStartCommand = 'osascript -e \'tell application "Terminal" to do script "cd ' . $currentFolderPath . ';python3 -m http.server 8000"\'';

system $serverStartCommand;

#ディレイ処理

my $delayCommand = "osascript -e 'delay 2'";

system $delayCommand;

#Vivliostyle Viewer起動

my $openVivliostyleCmd = 'osascript -e \'tell application "Google Chrome" to open location "http://localhost:8000/' . $vivliostyleFolderName . '/viewer/index.html#b=http://localhost:8000/tmp/' . $epubUnzipFoldername . $addVivliostyleCss . "\"'";

system $openVivliostyleCmd;

PDFのページ数の取得

　PDFのページ数を取得して全ページPhotoshopで画像変換する処理をAppleScriptで自動化していましたが、ページ数取得にPython2系を使っていたため動かなくなりました。

　従来のコードはこちらの記事を参照にしたものです。これはPyObjCというものを通じて処理をしているようなので単純なPython3への置き換えではうまくいきそうにありません（無理でした）。ただ、この場合PDFのページ数が取れればよいので手段は何もPythonに限らずともよいはずです。ちょっと調べてみたところシェルでPDFのページ数を取得するためのかなりの手段が見つかりました。
　このうち、とりあえず追加インストールが必要なさそうな「mdls」を使用する形で書き換えました（市川せうぞー師匠アドバイスありがとうございます）。Spotlight検索用のメタデータを使用するため信頼性は低いとのことなのですが、ユースケース的には支給されたPDFを画像変換し、変換後の画像は目視で確認しますのでまあうちの場合はこれで大丈夫でしょう。コード的には以下のような形です。

on run {pdfFilePathValue}
	set pagenum to my pdfPageCount(pdfFilePathValue)
end run

--- 与えられたPDFのページ数を返す
on pdfPageCount(aPDF)
	return (do shell script ("mdls -name kMDItemNumberOfPages -raw " & aPDF)) as integer
end pdfPageCount

on run {pdfFilePathValue}

set pagenum to my pdfPageCount(pdfFilePathValue)

end run

--- 与えられたPDFのページ数を返す

on pdfPageCount(aPDF)

return (do shell script ("mdls -name kMDItemNumberOfPages -raw " & aPDF)) as integer

end pdfPageCount

　何か問題が出るようであればexiftoolあたりを使う形に置き換えてもよいかなと思っています。

（2022.6.14）

タグ: Applescript, mac, Python, shell, vivliostyle
カテゴリー: 未分類 | コメントはまだありません »

AppleScriptやXojoからシェルに処理を投げると通らない場合の対処

2022/04/01

　少し前に仕事マシンがM1 MBAに切り替わったワケですが、OSがmacOS 12 Montereyになったことで（以前からあるにはあったけどなんとかなってた）AppleScriptやXojoなどの別環境内からシェルに処理を投げた際に「ターミナルでは通っていた一部の処理が通らなくなる」現象が顕在化し、だいぶ頑張って解決したので数年後に同じことで困らないように記録を残しておきます。

そもそもなんでそういう現象が起きるのか

　Macの「ターミナル」はbashやzshといった「シェル」を使うためのアプリです。Windowsで言うところのコマンドプロンプトですね。で、例えばOSに元々入っているバージョンとは違うPerlやPythonを使いたいとか、非標準モジュールを入れて使いたいといったような場合にはmacの場合はパッケージマネージャーのHomebrewやMacPortsをまず入れてその後それを使ってさまざまな必要なものを入れていって環境を構築するわけですが、入れたものを有効にするために「パスを通す」作業が度々発生します。これは作業手順自体は検索すればいくらでもWebで見つかるのですが、要はシェル（bashやzsh）の環境設定ファイルである「.bash_profile」や「.zshrc」にシェルの起動時に自動実行する設定（環境変数の設定など）を記述しておく作業です。これをやることでいちいち実行ファイルのあるディレクトリに移動してからコマンドを実行するようなことをしないでも良くなるわけです。

設定が読み込まれなかったためエラーが発生

　ただ、「.bash_profile」や「.zshrc」への記述は、あくまでターミナルでシェルを起動した際に読み込まれる設定であるため、AppleScriptやXojo内からシェルに処理を投げた場合には適用されません。このため、ターミナルでは通っていた処理が通らなくなったりします。

シェルに処理を投げる際に設定を読ませれば処理は通る

　ではどうすればよいのかと言うと、例えばApplescriptの場合なら以下のように

do shell script "eval \"$(/opt/homebrew/bin/brew shellenv)\"" & ";brew --version"

1	do shell script "eval \"$(/opt/homebrew/bin/brew shellenv)\"" & ";brew --version"

　命令文の前に環境設定の記述をセミコロンで繋げて実行してやれば処理が通ります（この場合サンプルとしてHomebrewのバージョンを表示させている）。環境設定の記述はターミナルで処理が通っているのなら現在有効にしているシェルの設定ファイルのどこかに記述があるはず。

bashやzshの環境設定を読み込んで実行するようにした

　ただ、上記の方法だとApplescript等のコード自体に各環境に依存する表記を追記することになるため、違うマシンにスクリプトを持って行くとたちまち動かなくなるといったような話になりそうです。それはできれば避けたいため、シェルの環境設定ファイル自体を読み込むperlスクリプトを作ってみました。

#! /usr/bin/perl
use utf8;
#各対象設定ファイルを読み込んで配列に収納（いらなければ配列から消す）
my @targetConfigFiles = ('.zprofile', '.zshrc', '.bash_profile', '.bashrc');
#各コンフィグ行を収納する配列を定義してpath_helper実行を最初に収納
my @eachConfigDeclaration;
push (@eachConfigDeclaration, 'eval "$(/usr/libexec/path_helper)"');
foreach $targetFile(@targetConfigFiles){
	open(IN, $targetFile);
		my @tagetFileText = <IN>;
		#なんか空行が入るので改行コード統一
		$eachLineTxt = join("",@tagetFileText);
		$eachLineTxt =~ s@\x0D\x0A@\x0D@g;
		$eachLineTxt =~ s@\x0A@\x0D@g;
		@tagetFileText = split("\x0D",$eachLineTxt);
		foreach (@tagetFileText){
			#exportもしくはevalで始まる行のみ抽出して@eachConfigDeclarationに収納
			if ($_ =~ /^(export|eval).+?$/){
				#セミコロンがダブるとエラーになるので行末にあったら消す
				$_ =~ s@^(.+?);$@$1@g;
				#ダブルクォートのエスケープ
				$_ =~ s@"@\"@g;
				push (@eachConfigDeclaration, $_);
			}
		}
	close (IN);
}
#連結して文字列として返す
my $joinedString = join(";",@eachConfigDeclaration);
$joinedString =~ s@"@\"@g;
print $joinedString;
exit;

#! /usr/bin/perl

use utf8;

#各対象設定ファイルを読み込んで配列に収納（いらなければ配列から消す）

my @targetConfigFiles = ('.zprofile', '.zshrc', '.bash_profile', '.bashrc');

#各コンフィグ行を収納する配列を定義してpath_helper実行を最初に収納

my @eachConfigDeclaration;

push (@eachConfigDeclaration, 'eval "$(/usr/libexec/path_helper)"');

foreach $targetFile(@targetConfigFiles){

open(IN, $targetFile);

my @tagetFileText = <IN>;

#なんか空行が入るので改行コード統一

$eachLineTxt = join("",@tagetFileText);

$eachLineTxt =~ s@\x0D\x0A@\x0D@g;

$eachLineTxt =~ s@\x0A@\x0D@g;

@tagetFileText = split("\x0D",$eachLineTxt);

foreach (@tagetFileText){

#exportもしくはevalで始まる行のみ抽出して@eachConfigDeclarationに収納

if ($_ =~ /^(export|eval).+?$/){

#セミコロンがダブるとエラーになるので行末にあったら消す

$_ =~ s@^(.+?);$@$1@g;

#ダブルクォートのエスケープ

$_ =~ s@"@\"@g;

push (@eachConfigDeclaration, $_);

}

close (IN);

}

#連結して文字列として返す

my $joinedString = join(";",@eachConfigDeclaration);

$joinedString =~ s@"@\"@g;

print $joinedString;

exit;

　exportもしくはevalで始まる行を抽出してセミコロンで繋げたものを返すので、あとはそれを実際に実行する処理の前に連結してシェルに処理を投げればOKです。

Applescriptに組み込んだ

Applescriptに組み込んだ場合は以下のような感じ。上のperlスクリプトをshellconfigexec.plの名称でスクリプトバンドル形式ファイル内のContents/Resourcesフォルダに保存して実行しています（macOS 12 Montereyではアプリ形式で保存しようとするとエラーが出て保存できなかったりするため、スクリプトバンドル形式で保存してスクリプトメニューから実行）。

tell application "Finder"
	--スクリプト自体のパス位置を得る
	set thisFldr to (path to me as alias) as string
	set thisFldr to POSIX path of thisFldr
	--パス内に空白文字が含まれていた場合の対策
	set thisFldr to (ASCII character (34)) & thisFldr & (ASCII character (34))
	--perlscriptのパスを合成
	set shellConfigExecpath to thisFldr & "Contents/Resources/shellconfigexec.pl "
	--シェル初期設定読み込み
	do shell script "cd ~;perl " & shellConfigExecpath
	set shellConfigExeString to result
end tell

do shell script shellConfigExeString & ";brew --version"
set returndString to result
display dialog returndString

tell application "Finder"

--スクリプト自体のパス位置を得る

set thisFldr to (path to me as alias) as string

set thisFldr to POSIX path of thisFldr

--パス内に空白文字が含まれていた場合の対策

set thisFldr to (ASCII character (34)) & thisFldr & (ASCII character (34))

--perlscriptのパスを合成

set shellConfigExecpath to thisFldr & "Contents/Resources/shellconfigexec.pl "

--シェル初期設定読み込み

do shell script "cd ~;perl " & shellConfigExecpath

set shellConfigExeString to result

end tell

do shell script shellConfigExeString & ";brew --version"

set returndString to result

display dialog returndString

　シェルの設定ファイルの処理を全部引っこ抜いて実行が乱暴すぎるという場合は読み込みファイルを独自定義してルートディレクトリに置いておき、それを指定して読み込ませればよいです。

（2022.4.4）

タグ: Applescript, shell, 環境変数
カテゴリー: 未分類 | コメントはまだありません »