HTMLエンコードのためのPerlスクリプト

このPerlスクリプトは"のような非HTMLキャラクタをHTML形式(")に変換する ものです。今のところ完全ではありませんが、-実は変換するキャラクタのリストを追加拡張 しなくてはならないのですが-、たいていは間に合うと思います。

スクリプトは以下のようなものです:

#!perl

# EnHTML by Peter N. Lewis
# Jan 1997

use Mac::BBEdit;


$text = Copy;
if ($text eq ";";) {
  SetSelection( 0, 99999999 );
  $text = Copy;
}

PresetUndo;

$text =‾ s/;/&;#59;/g;		# fix special chars
$text =‾ s/&;/&;amp;/g;
$text =‾ s/<;/&;lt;/g;
$text =‾ s/>;/&;gt;/g;
$text =‾ s/¥";/&;quot;/g;
$text =‾ s/";/&;quot;/g;
$text =‾ s/";/&;quot;/g;
$text =‾ s/'/'/g;
$text =‾ s/'/'/g;


Paste $text;

SetUndo;

ホーム もくじ 設定 HTML テクニック その他 フィードバック