オートメーターを使って文字変換はできないものでしょうか？

アイスクリーマ　様

早速、お試しいただき、また、貴重な検証結果のコメント、ありがとうございます。

おそらく、アイスクリーマ様の環境に私と同じ環境のPerlがインストールされていない可能性がありますね。

念のため、アイスクリーマ様の環境で/opt/local/bin配下にperlのモジュールが存在するか、ご確認いただけないでしょうか？お手数をおかけして恐縮です。（あるいは、アイスクリーマ様の環境でのPerlのインストール先につきまして、お知らせいただければ幸いです。）

（参考）

現在の私の環境での /opt/local/binの内容

kimurakazuoiMac:~ kimurakazuo$ ls -la /opt/local/bin/perl*

lrwxr-xr-x 1 root kimuraky 8 Mar 31 16:30 /opt/local/bin/perl -> perl5.12

lrwxr-xr-x 1 root kimuraky 8 Mar 31 16:30 /opt/local/bin/perl5 -> perl5.12

-rwxr-xr-x 2 root kimuraky 1474280 Mar 20 01:35 /opt/local/bin/perl5.12

lrwxr-xr-x 1 root kimuraky 8 Mar 20 01:37 /opt/local/bin/perl5.12.3 -> perl5.12

-rwxr-xr-x 2 root kimuraky 1146768 Mar 31 16:29 /opt/local/bin/perl5.8

lrwxr-xr-x 1 root kimuraky 7 Mar 31 16:30 /opt/local/bin/perl5.8.9 -> perl5.8

lrwxr-xr-x 1 root kimuraky 12 Mar 31 16:30 /opt/local/bin/perlbug -> perlbug-5.12

-rwxr-xr-x 2 root kimuraky 45807 Mar 20 01:35 /opt/local/bin/perlbug-5.12

-rwxr-xr-x 2 root kimuraky 44765 Mar 31 16:29 /opt/local/bin/perlbug-5.8

-rwxr-xr-x 2 root kimuraky 17965 Mar 31 16:29 /opt/local/bin/perlcc-5.8

lrwxr-xr-x 1 root kimuraky 12 Mar 31 16:30 /opt/local/bin/perldoc -> perldoc-5.12

-rwxr-xr-x 2 root kimuraky 236 Mar 20 01:35 /opt/local/bin/perldoc-5.12

-rwxr-xr-x 2 root kimuraky 236 Mar 31 16:29 /opt/local/bin/perldoc-5.8

lrwxr-xr-x 1 root kimuraky 12 Mar 31 16:30 /opt/local/bin/perlivp -> perlivp-5.12

-rwxr-xr-x 2 root kimuraky 12466 Mar 20 01:35 /opt/local/bin/perlivp-5.12

-rwxr-xr-x 2 root kimuraky 12286 Mar 31 16:29 /opt/local/bin/perlivp-5.8

lrwxr-xr-x 1 root kimuraky 15 Mar 31 16:30 /opt/local/bin/perlthanks -> perlthanks-5.12

-rwxr-xr-x 2 root kimuraky 45807 Mar 20 01:35 /opt/local/bin/perlthanks-5.12

-rwxr-xr-x 2 root kimuraky 44765 Mar 31 16:29 /opt/local/bin/perlthanks-5.8

kimurakazuoiMac:~ kimurakazuo$

です。

お手数をおかけいたしますが、よろしくお願いいたします。

私の環境は下記の通りで、MacOS X 10.6.7のデフォルトです。

This is perl, v5.10.0 built for darwin-thread-multi-2level

(with 2 registered patches, see perl -V for more detail)

Copyright 1987-2007, Larry Wall

Perl may be copied only under the terms of either the Artistic License or the

GNU General Public License, which may be found in the Perl 5 source kit.

Complete documentation for Perl, including FAQ lists, should be found on

this system using "man perl" or "perldoc perl". If you have access to the

Internet, point your browser at http://www.perl.org/, the Perl Home Page.

アイスクリーマ　様

早速、ご確認いただきまして、ありがとうございます。

10.6.7のデフォルトで、perl5.10.0がインストールされていることがわかりました。

さらに、そのperlモジュールのインストール先のpathにつきまして、お分かりになりませんでしょうか？

/usr/bin/perlでしょうか？度々で恐縮ですが、ご確認の程、よろしくお願いいたします。

もし、そうでしたら、kanji2num.plxの最初の1行の

/opt/local/bin/perl　→　/usr/bin/perl

に置き換えて、実行していただければ幸いです。

よろしくお願いいたします。

アイスクリーマ　様、みなさま

貴重なコメント、ありがとうございます。

お手数をおかけしては恐縮かと思い、同じ、ファイル名ですが、kanji2num.plxの第1行を修正したファイルをアップいたしましたのでお知らせいたします。お手数ですが、こちらで、ご確認いただければ、幸いです。

＊　以下のリンクを開きますと自動的にダウンロードが始まりますのでご注意ください。自己責任にてダウンロード願います。Apple Inc.

【民法：漢字-数字変換ワークフロー】

http://www2.ocn.ne.jp/~kimukazu/minpou.dmg

以上です。

ご指摘の通り、パスを変更する事で概ね期待通りの動作をしました。

ところで下記の記述が原因だと思うのですが、変換後のテキストの行頭に-nが挿入されていました。

`echo -n "" > $filename_new;`;

`echo -n "$line" >> $filename_new;`

アイスクリーマ　様

早速、ご検証いただき、また、貴重なコメントいただき、ありがとうございます。

変換結果の行頭の-nにつきまして、miの「検索」-「一覧」で調べましたが、当方の環境では、再現しておりません。

（写真）

処理系が異なることに依存するのでしょうか？

もう少しお時間をいただき、検討させていただきます。

貴重なコメント、感謝申し上げます。

みなさま

多くの時間を要してしまいましたが、ご指摘の問題を解決し、ほぼ目的とする漢数字-数字変換Automatorワークフローができましたので公開させていただきます。少しでも、みなさまのお役に立てれば幸いです。

【民法：漢数字-数字変換ワークフロー】

http://www2.ocn.ne.jp/~kimukazu/MacOSXapp/page01.html

動作環境

-Mac OSX 10.6.8 Snow Leopard

-Automator 2.1.1 (247.1)