PostScriptの8進数エンコーディングをデコードするワンライナー

Tweet

昨日のエントリで使った PostScript エンコーディングをデコードするワンライナーについて説明します。

ワンライナー

Unix や Mac OS X では、こんな感じで実行してください。

$ more hoge.ps | perl -pe 's/\\([0-7]{3})/pack("C",oct($1))/ego;'
 

Windows+ActivePerl ではこんな感じで実行してください。シェルの関係で、ダブルクォーテーションとアポストロフィを入れ替えました。

>more hoge.ps | perl -pe "s/\\([0-7]{3})/pack('C',oct($1))/ego;"
 

使用例

昨日のエントリで出した、OPI コメントを解読してみます。

Windows+ActivePerl:

echo "%ALDImageFileName: (Volume1:test:\225\275\220\25418\224N \221\262\213\306\217\330\217\221.eps)"| perl -pe "s/\\([0-7]{3})/pack('C',oct($1))/ego;"
 

Mac OS X:（iconv で出力をコンソールのエンコーディングに合わせよう！）

echo "%ALDImageFileName: (Volume1:test:\225\275\220\25418\224N \221\262\213\306\217\330\217\221.eps)"| perl -pe 's/\\([0-7]{3})/pack("C",oct($1))/ego;' | iconv -f SJIS -t utf-8
 

～～～

これで、PostScript の中身を読むのも恐くないと思います。

検索しやすいように、単独エントリとして書いておきました。

（2006-02-24 8.30訂正）
title要素
修正前）PostScriptエンコーディングをデコードするワンライナー
修正後）PostScriptの8進数エンコーディングをデコードするワンライナー

2006.02.23 00:01 投稿　大野 義貴 [Script] | 固定リンク |

echo "%ALDImageFileName: (Volume1:test:\225\275\220\25418\224N \221\262\213\306\217\330\217\221.eps)"| perl -pe 'print "$_";'