HTMLのタグ変換、改行変換などのCGI/PERLスクリプト

よく使うHTMLのタグや改行のCGI/PERLスクリプト

#
# 改行コードを削除する
#


sub delete_crlf{
  my ( $val ) = @_;

  $val =~ s/¥x0d¥x0a//g;
  $val =~ s/¥x0d//g;
  $val =~ s/¥x0a//g;
  return $val;
}

#
# タグをエンコードする
#


sub ignore_tag{
  my ( $val ) = @_;

  $val =~ s/&/&amp;/g;
  $val =~ s/</&lt;/g;
  $val =~ s/>/&gt;/g;
  $val =~ s/"/&quot;/g;
  return $val;
}

#
# タグをデコードする
#


sub allow_tag{
  my ( $val ) = @_;

  $val =~ s/&amp;/&/g;
  $val =~ s/&lt;/</g;
  $val =~ s/&gt;/>/g;
  $val =~ s/&quot;/"/g;
  return $val;
}

カテゴリ内の記事

404ファイルが存在しないを自前で作る(2005/09/14)
.htaccessでSSIを有効に(2005/09/24)
HTMLのタグ変換、改行変換などのCGI/PERLスクリプト(2005/10/01)
メール送信のcgi/perlスクリプト関数(2005/10/01)
配列の個数(2005/10/05)
FTPコマンドで自動ログイン(2006/04/11)
お気に入り追加(2006/05/02)
続）メールのヘッダをＭＩＭＥエンコード(2006/05/08)
Perl Net::ftpで単純なFTP送信(2006/05/12)
Perlでsocketのタイムアウト(2006/07/12)