Home > Programs > FileMakerPro

FileMakerPro Archive

FileMakerにターミナルコマンドの結果を渡す

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 + AppleScript で Perl

FileMaker Pro + AppleScirpt + Perl

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 をつける

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

ホーム > Programs > FileMakerPro

Profile
カテゴリー
Tag cloud
最近の投稿
Archive
SBM Ranking
Flickr

By Erik Rasmussen
RSS はてなダの最近の記事
META

Return to page top