会社のファイルサーバーにPerlなどのスクリプトを置いて、それをFileMaker Proから実行させることが多々ある。
なので、実行する前にサーバーへ接続しないといけないので、作ったスクリプト。

try
	do shell script "touch /Volumes/[ServerName]/[LogFile]"
on error
	mount volume "afp://[ServerIP]/[VolumeName]" as user name "[UserName]"
	do shell script "touch /Volumes/[ServerName]/[LogFile]"
end try

こんな感じ。

do shell script "touch /Volumes/[ServerName]/[LogFile]"
は、使用するファイルに “touch” 、要するに触れるかどうかを試す。ここでもしエラーが発生しなければ、既にサーバーはマウント済みとなるので、スクリプトは終了。

on error は もしダメだったとき。
mount volume "afp://[ServerIP]/[VolumeName]" as user name "[UserName]"
を実行してボリュームをマウントする。さらに念のため、”touch” を再度実行。

ちなみに、この後のエラー処理はあえてさせてない。エラーがもし出たらFileMaker側で処理するため。
一度接続を試してみて、ダメだったら何かここでは解決できないエラーがあるという判断の上です。

ボリュームマウントのところは、
mount volume "afp://[ServerIP]/[VolumeName]" with password "[PassWord]" as user name "[UserName]"
とすると、パスワードも一緒に送ってくれる。但しすべてのユーザーに利用権限を与えないため、今回の場合は入れてない。
パスワードが無くてもFinderのいつものダイアログで、パスワードの入力を求められる。このとき「パスワードを記憶する」のチェックボックスにチェックを入れれば、次回から入力を求められることは無い。
また、ユーザー名も同じくスクリプト上に書かなくてもいい。ユーザー毎にIDを発行してる場合などは各パソコンで記録させればok!

AppleScriptを使って、FileMakerにターミナルコマンドの結果を渡す方法です。
ファイル名等を取得し、それをFileMakerに読み込ませる必要があったので、調べました。

どうやら、FileMakerに変数を作って値を受け渡すことは出来ないようなので、グローバルフィールド等に値を渡すことになります。

FileMakerの「Appleスクリプトを実行」スクリプトステップに下記のように書き込みます。

set _ls to do shell script "ls -1" --変数 _ls に Terminalコマンド "ls -1"の返値をセット

tell application "FileMaker Pro Advanced"
	set cell "f1" of current record to _ls as string --変数 _ls を フィールド f1 へ変数の値を書き込み
end tell

1行目でターミナルコマンドコマンドを実行し、結果を _ls 変数にセットします。
4行目でファイルメーカーで現在開いているファイルのフィールド名 f1 に1行目の変数 _ls をセット

今回の場合ファイルの指定などを行う必要はありません。

FileMaker のスクリプトと同じように、実行をしているファイルがデフォルトで指定される為です。
他のファイルに値を書き込む必要がある場合は、そのファイルからスクリプトを実行するなどを行えばできます。

FileMaker ProのWebビューアーを使ったスパイダリング(HTMLの収集)に限界が来たので、Perlでの開発を現在行っている。
HTMLのダウンロードという意味では、Perl等をかましてレンダリング・目的のHTML以外(画像等)のダウンロードを行わせないようにすれば、さほど変わらないのだが、スクレーピング(HTMLを分解し、必要な情報のみを抽出)は桁外れにPerlの方が早い。

ということで、FileMaker Pro → AppleScript → Perlという流れで情報収集を行っている。

FileMakerからAppleScriptを実行する方法はスクリプトステップの「AppleScriptを実行」というのは説明するまでもないか？ｗ

AppleScriptからPerlを実行する時はdo shell scriptを使う

do shell script "perl 〜.pl"

“”の間はターミナルで実行している命令と一緒。

perlを実行する手前でcdコマンドを実行したい時等は、

do shell script "cd ./Document/; perl 〜.pl"

というに、セミコロン(;)で区切って複数の命令を書く。

PerlをTerminalから実行する時、色々とメッセージを返すようにしていたとしても、コマンドの実行が終わるまで基本的に何も出来ない。
なので、基本的にlogとしてデーターを残すようにしている。

do shell script "cd ./Document/; perl 〜.pl > 〜.log"

もうちょっと、AppleScript

作ったperlのスクリプトではLWP::UserAgentを使っているのだが、１ページダウンロードに通常1秒〜1.5秒かかっている。
ただし、何故か分からないのだが、同じスクリプトを２コ同時に実行すると、実行して少し経ってから１ページのダウンロードが0.3秒〜0.7秒にまでスピードアップする。

スクリプトを２つ実行することで、結果的に２倍のスピード！
──というのならばまだ分かるのだが、スクリプトを２つ実行することで、４倍以上のスピードが出るのは何故だ？
ちなみに、２つ実行してスピードが速くなった後に、片方のスクリプトを停止しても、１ページのダウンロードが0.3秒〜0.7秒というスピードは変わらない。
※通常１秒間に数ページみに行くのは相手側のサーバーに負担になります。マナー違反になるので注意！

１つのドメインに対してのみ現在は行っているので、もしかすると相手側のサーバー側の問題なのかもしれないが謎だ…。
お分かりになる方いらしたら、是非教えて頂きたい。

とりあえず原因は不明だが「なら、２つ以上のPerlを同時に動かせばいいのか！」という結論に至り、バックグラウンドでdo shell scirptを実行出来ないかと調べてみると、アップルのテクニカルノートにあった。do shell script in AppleScript

do shell script "perl 〜.pl > 〜.log 2>&1 &"

とすれば良いらしい。
これを上手く使えば、分割処理が出来るので更なるスピードアップも望める！

さらに色々調べていると面白そうな記事を発見！
AppleScript で Perl に GUI をつける

これは、かなり勉強になりそう。後日挑戦してみたい。