ideal742 score 6
2017/03/05 17:49 投稿
| 外部のPerlファイルを読み込んで変換することができました。 |
| 参照URL |
| http://www.kiwi-us.com/~mizusawa/penguin/html_hint/as_x/index.shtml#as_perl |
| 以下アップルスクリプトソース |
| --半角カタカナ→全角カタカナ |
| set aStr to do shell script "perl Perlファイルのパス " & aStr |
| 以下Perlのソース |
| ＃!/usr/bin/perl |
| use Encode; |
| use Encode::JP::H2Z; |
| $decoded = $ARGV[0]; |
| Encode::from_to($decoded, "utf-8", "euc-jp"); |
| ＃ 半角カナ→全角カナ |
| Encode::JP::H2Z::h2z(\$decoded); |
| Encode::from_to($decoded, "euc-jp", "utf-8"); |
| print "$decoded\n"; |
| exit; |
| 調べては試して試行錯誤の繰り返し。 |
| もっともっと理解ですが、なかなか。 |
| もっともっと理解したいですが、なかなか。 |
