fix: TOC, unclosed code block, header

[[_TOC_]]

- Amazon Web Services [日本語](http://aws.amazon.com/jp/) / [英語](http://aws.amazon.com/)

- [Product Advertising API](https://affiliate.amazon.co.jp/gp/advertising/api/detail/main.html)

- [Release Notes](http://aws.amazon.com/releasenotes/Product-Advertising-API)

[[_TOC_]]

# 概要

- Apache の error_log を HTML テーブルとして整形する。

- mod_security 対応。

[[_TOC_]]

- 関数名を指定しなくても関数定義するだけで自動的にハッシュに登録されるサンプル。

- 型グロブを使って定義されている関数をスキャンする。

- [AutoHashedFuncs.zip](AutoHashedFuncs.zip)

```Perl

# 関数名を指定しなくても関数定義するだけで自動的にハッシュに登録される。

# EOF

```

- [perldoc.jp](http://perldoc.jp/) / [Perlのリファレンスとネストしたデータ構造](http://perldoc.jp/pod/perlref)

- [サンプルコードによるPerl入門](http://d.hatena.ne.jp/perlcodesample/) / [型グロブとシンボルテーブル](http://d.hatena.ne.jp/perlcodesample/20080614/1213428778)

[[_TOC_]]

- [CPAN:DBIx-Custom](http://search.cpan.org/dist/DBIx-Custom) を使用して MS SQL Server に対してクエリを実行するサンプル。

- Where 句に「:UserID{=}」とか付け加えたいとこだけど、「$dbi->not_exists」がうまく働いてなくて値無しだとハングアップするみたいだ。

- というか MS SQL Server の ODBC はハングアップし過ぎ。ちゃんとエラー出して止まってくれ。

- [DBIx-Custom.zip](DBIx-Custom.zip)

```perl

#!/usr/bin/perl

# DBIx::Custom サンプル

# EOF

```

```

# DB接続情報

Driver: ODBC

DSN: _Driver_:Driver={SQL Server}; Server={_Server_}; Database=_DB_; Trusted_Connection=_Trusted_Connection_; AutoTranslate=_AutoTranslate_;

```

- [[DBIx::NamedParams|Perl/DBIx-NamedParams]]

- [CPAN:DBIx-Custom](http://search.cpan.org/dist/DBIx-Custom)

- [CPAN:DBIx-Custom/lib/DBIx/Custom/Where.pm](http://search.cpan.org/dist/DBIx-Custom/lib/DBIx/Custom/Where.pm)

[[_TOC_]]

- mysql でも prepare でプレースホルダとして ? じゃなく名前で指定できるようにする。

- 同じ名前を繰り返し使ってもエラーにならない。

- こっちより [CPAN:DBIx-Custom](http://search.cpan.org/dist/DBIx-Custom) の方が柔軟で高機能だなー。どうしたもんか。

- [CPAN:DBIx-NamedBinding](http://search.cpan.org/dist/DBIx-NamedBinding) に比べると、bind_param_ex の１回でバインドできるのと型指定できる点が勝ってるかな。

- 「:名前-型」でスカラー値を bind する。

```perl

my $sql_insert = qq{

$sth_insert->execute() or die( "$DBI::errstr\n" );

```

- 「:名前{個数}-型」で配列値を個数個分 bind する。

```perl

my $sql_select = qq{

$sth_select->execute() or die( "$DBI::errstr\n" );

```

- 「:名前+-型」で配列値を配列要素個分 bind する。<br />

prepare_exの引数としてSQL文と共に割り当てるハッシュを指定する必要がある。

```perl

$sth_select->execute() or die( "$DBI::errstr\n" );

```

- プレースホルダの解析結果、解析後の SQL 文、バインドされる値をログファイルに書き出します。

- ファイル名を省略すると、ホームディレクトリ(Linux: 環境変数 HOME, Windows: 環境変数 USERPROFILE)にログファイル(DBIx-NamedParams.log)が作られます。

```

DBIx::NamedParams::debug_log( 'testNamedParams.log' );

```

```

my %DrvTypeToSQLType = $dbh->driver_typename_map();

```

- [[MySQL の例|#MySQL_DataType_Map]]

- [[MS SQL Server の例|#MSSQL_DataType_Map]]

- driver_typename_map メソッドが返すハッシュを調整。DB が MS SQL Server の場合、datetime および smalldatetime に対して DATE ではなく WVARCHAR を割り当てるようにした。

- driver_typename_map メソッド追加。その DBD で使用できるデータタイプに対応する SQL タイプ名のハッシュを返す。

- デバッグログのファイル名を指定できるようにした。ログの体裁の調整。

- MS SQL Server 版のサンプルを作成。datetime 型にバインドするのに DATETIME じゃなくて WVARCHAR(VARCHAR) 使わなくちゃいけないなんて、そんなん考慮しとらんよ…。

- 機能面での追加・変更はなし。

- 「use base;」を「use parent;」に変更。

- import にて、継承元である DBI の import を呼び出すようにしたけど、不要かも？

- bind_param_ex にて、「no warnings;」を「no warnings 'uninitialized';」に変更。

- bind_param_ex にて、$ref_hash が HASH であることを確認するようにした。

- prepare_ex のときに @_NamedParams をクリアするようにした。

- [NamedParams.zip](NamedParams.zip)

```perl

# DBI::db::prepare, DBI::st::bind_param を拡張する。

# http://www.TakeAsh.net/wiki/?Perl/DBIx-NamedParams

# EOF

```

```perl

#!/usr/bin/perl

# DBIx::NamedParams のテスト

# EOF

```

```

# DB接続情報

Driver: mysql

#DSN: "_Driver_:database=_DB_:host=_Server_" # Windows

```

```sql

SET SQL_MODE="NO_AUTO_VALUE_ON_ZERO";

) ENGINE=MyISAM DEFAULT CHARSET=utf8 AUTO_INCREMENT=1 ;

```

```

---

- { Name: リオ, State: 1 }

- { Name: アーニャ, State: 6 }

```

```perl

#!/usr/bin/perl

# DBIx::NamedParams のテスト

# EOF

```

```

# DB接続情報

Driver: ODBC

DSN: _Driver_:Driver={SQL Server}; Server={_Server_}; Database=_DB_;

```

```sql

USE [TestDB]

GO

# EOF

```

```

Perl version: 5.010001

DBI version: 1.616

WVARCHAR

```

```

---

bigint: BIGINT

year: SMALLINT

```

```

---

bigint: BIGINT

xml: WLONGVARCHAR

```

- [[DBIx::Custom|Perl/DBIx-Custom]]

- [安全なウェブサイトの作り方](http://www.ipa.go.jp/security/vuln/websecurity.html) 安全なSQLの呼び出し方

- [CPAN:perl](http://search.cpan.org/dist/perl) POSIX strftime

[[_TOC_]]

- 使用しているフォントは「小塚明朝 Std - M」。

- EPS中で「Shift_JIS」で指定する場合は「KozMinStd-Medium-90ms-RKSJ-H」と記述する。(横書き)

- 画像の埋め込みは行っていない。

- ソースコードと出力されるEPSファイル<br />

[createEPS.zip](createEPS.zip)

- EPSファイルをAcrobat Distiller 6でPDFに変換したもの<br />

[ToneChart.pdf](ToneChart.pdf)

- [[Typography_PDF|etc/Typography_PDF]]

- [[文字コード|Perl/文字コード]]

[[_TOC_]]

- 入力された文字列の中の改行など直接記述できない文字にバックスラッシュを付けてエスケープする。

- PHP関数 [addcslashes](http://jp2.php.net/manual/ja/%66%75%6e%63%74%69%6f%6e%2e%61%64%64%63%73%6c%61%73%68%65%73%2e%70%68%70) / [stripcslashes](http://jp2.php.net/manual/ja/%66%75%6e%63%74%69%6f%6e%2e%73%74%72%69%70%63%73%6c%61%73%68%65%73%2e%70%68%70)

- ２つ目の引数にハッシュを指定することで別の変換を行うことができます。

addcslashes, stripcslashes という関数名は付けられないなぁ。

- \xXX 形式には対応していません。

- [EscapeSlash.zip](EscapeSlash.zip)

# C言語スタイルで文字列のエスケープ/アンエスケープを行う

# by TakeAsh

# ネタ元 http://jp2.php.net/manual/ja/function.addcslashes.php

# EOF

```

# EscapeSlash.pm の動作テスト

use strict;

# EOF

```

- [[Microsoft SQL Server インポート/エクスポート|Perl/MSSQL_ImpExp]]

- [勝手に添削 - 40行で作るPerl用テンプレートエンジン](http://blog.livedoor.jp/dankogai/archives/50940023.html)

- [Perlメモ](http://www.din.or.jp/~ohzaki/perl.htm) / [改行コードを統一する](http://www.din.or.jp/~ohzaki/perl.htm#CRLF_Unify)

- [perldoc.jp](http://perldoc.jp/) / [Perlのリファレンスとネストしたデータ構造](http://perldoc.jp/pod/perlref) / [あまりシンボリックではないリファレンス](http://perldoc.jp/pod/perlref#Not-so-symbolic32references)

[[_TOC_]]

- [shrink.zip](shrink.zip)

# 画像一括縮小

# 「PDATA」以下のpngファイルを1/2,1/3,1/4に縮小し「PDATA2」「PDATA3」「PDATA4」へ保存する。

# EOF

```

[[_TOC_]]

- GMT を [CPAN:HTTP-Date](http://search.cpan.org/dist/HTTP-Date) および Perl 標準機能のみを使ってローカルタイムに変換する。

- GMTtoLocal2 は時差の指定は無視する。

- [GMTtoLocal.zip](GMTtoLocal.zip)

```perl

#!/usr/bin/perl

# EOF

```

```

Source 2011-11-23T00:00:00Z

HTTP::Date 2011-11-23 09:00:00

Standard 2012-02-29 06:00:00

```

- [CPAN:HTTP-Date](http://search.cpan.org/dist/HTTP-Date)

- [CPAN:Time-Local](http://search.cpan.org/dist/Time-Local)

- [CPAN:Time-Piece](http://search.cpan.org/dist/Time-Piece)

- [GMT による時間表現文字列を JST に変換する Perl コード片](http://chalow.net/2010-03-01-5.html)

- [サンプルコードによるPerl入門](http://d.hatena.ne.jp/perlcodesample/)

[[_TOC_]]

- [Google Directions API](http://code.google.com/intl/ja/apis/maps/documentation/directions/)を使って経路情報を得る。

- [Static Maps API](http://code.google.com/intl/ja/apis/maps/documentation/staticmaps/)を使って経路情報付き画像を得る。

- 事前にカレントディレクトリに保存用ディレクトリ「map」を作成しておく必要がある。

>gmap.pl 東京 サンフランシスコ

```

- [gmap.pl](gmap.pl)

#!/usr/bin/perl

# gmap.pl

# 始点終点の経路情報と地図画像を得る。

# EOF

```

- [[JavaScript/GoogleMapAPI]]

- [Google Maps API ファミリー - Google Code](http://code.google.com/intl/ja/apis/maps/)

[[_TOC_]]

- [TinyProxy.zip](TinyProxy.zip)

```perl

#!/usr/bin/perl

# EOF

```

- [[Perl/EscapeSlash]]

- [[Perl/nicoget]]

[[_TOC_]]

# サンプルスクリプト

- [GitHub:TakeAsh/p-usDownload](https://github.com/TakeAsh/p-usDownload) Ustream Archive Downloader

- [GitHub:TakeAsh/p-RecRadiru](https://github.com/TakeAsh/p-RecRadiru) NHK Net Radio らじる★らじる を rtmpdump で録音するスクリプト

[[_TOC_]]

- ホスト名からIPアドレスを求め、IPアドレスからホスト名を逆引きする。

- [HostToIP.zip](HostToIP.zip)

```perl

#!/usr/bin/perl

# EOF

```

- [[Perl/getHostName]]

- [CPAN:Socket](http://search.cpan.org/dist/Socket)

[[_TOC_]]

- MS SQL Server のテーブルを CSV ファイル(K3フォーマット)としてインポート/エクスポートする。

- 第１フィールドをプライマリフィールドとして、レコードが未登録か登録済みかを判別し、INSERT または UPDATE を行なう。

- NULLは「NULL」として書き出される。文字列としてのNULLは「"NULL"」になる。

- INDEX(オートナンバー)制約があるフィールドには未対応(ハングアップする)。(2011/09/28)

- [MSSQL_ImpExp.zip](MSSQL_ImpExp.zip)

```

# DB接続情報

Driver: ODBC

DSN: _Driver_:Driver={SQL Server}; Server={_Server_}; Database=_DB_;

```

```perl

#!/usr/bin/perl

# MSSQLサーバからスキーマを読み出す

# EOF

```

```perl

#!/usr/bin/perl

# MSSQLサーバからデータ読み出し

# EOF

```

```perl

#!/usr/bin/perl

# MSSQLサーバへデータ書込み

# EOF

```

USE [TestDB]

GO

GO

```

- [[MS SQL Server|MSSQLSrv]]

- [[Perl/EscapeSlash]]

- [[Perl/DBIx-NamedParams]]

- [「IDENTITY属性を持つ列を探すには」をお題にやったことをBlogる](http://d.hatena.ne.jp/CAMUSs_BLACKBOARD/20040618) @ [CAMUS’s BLACKBOARD](http://d.hatena.ne.jp/CAMUSs_BLACKBOARD/)

```

[[_TOC_]]

# 概要

- ファイルが添付できるメールフォーム。

- 宛先は config.yaml で指定する。フォームから宛先の追加も可能。

[[_TOC_]]

# 概要

- 正規表現によるマッチ結果をリスト化する。

- リストコンテキストで /g を付けて評価する。

[[_TOC_]]

- DBI から BIT 型にバインドする際には pack('C*',$x) してからバインドするべし。

- BIT は TINYINT として実装されている。

- 格納できる数値より大きな値を格納しようとした場合は全ビットが1になった値が格納される。

- [testBit.zip](testBit.zip)

```perl

#!/usr/bin/perl

# testBit.pl

# EOF

```

| id | Type | 値 | bit1 | bit4 | bit8 | bit12 | bit16 |

| --- | --- | --- | --- | --- | --- | --- | --- |

| 1 | 'N' | | "\x01" | "\x0F" | | "\00" | "\00" |

| 41 | 'N' | 512 | "\x01" | "\x0F" | "\xFF" | "\x0F\xFF" | "\xFF\xFF" |

| 42 | 'N' | 513 | "\x01" | "\x0F" | "\xFF" | "\x0F\xFF" | "\xFF\xFF" |

| id | Type | 値 | bit1 | bit4 | bit8 | bit12 | bit16 |

| --- | --- | --- | --- | --- | --- | --- | --- |

| 43 | B | | "\0" | "\0" | "\0" | "\0\0" | "\0\0" |

| 83 | B | 512 | "\x01" | "\x0F" | "\xC0" | "\x0F\xFF" | "\xC0\0" |

| 84 | B | 513 | "\x01" | "\x0F" | "\xE0" | "\x0F\xFF" | "\xE0\0" |

| id | Type | 値 | bit1 | bit4 | bit8 | bit12 | bit16 |

| --- | --- | --- | --- | --- | --- | --- | --- |

| 85 | C | | "\0" | "\0" | "\0" | "\0\0" | "\0\0" |

| 125 | C | 512 | "\x01" | "\x0F" | "\xFF" | "\x02\0" | "\x02\0" |

| 126 | C | 513 | "\x01" | "\x0F" | "\xFF" | "\x02\x01" | "\x02\x01" |

```sql

CREATE TABLE IF NOT EXISTS `test_bit` (

`id` int(11) NOT NULL AUTO_INCREMENT,

ALTER TABLE `test_bit` AUTO_INCREMENT = 1;

```

- Perl/packBit

- MySQL

[[_TOC_]]

- [アドレス帳CSVコンバータ](http://dev.officeservice.co.jp/top/index.php?%A5%BD%A5%D5%A5%C8%A5%A6%A5%A7%A5%A2%2FPocketPC%2FPOCSV)でCSVに書き出した[W-ZERO3]]のアドレス帳を、FOMA [[N701i](http://www.n-keitai.com/n701i/opn.html)に[データリンクソフト](http://www.n-keitai2.com/guide/download/index.html)で読み込める形式に変換する。

$fin = "W03.csv";

$fout = "FOMA.csv";

# EOF

```

| | 固定電話 |

| --- | --- |

| 1 | 携帯電話 |

| 24 | 一般メール |

| 25 | 自宅メール |

| 26 | 会社メール |

[[_TOC_]]

- jwhois を実行し、ドメイン管理者情報を表示します。

- spam 送信の元になるため、パスワードを設定するなどして濫用させないようにすること。

- [WhoisGW.zip](WhoisGW.zip)

```perl

#!/usr/bin/perl

# Whois ゲートウェイ

# EOF

```

```apache

<Directory "/var/www/html/WhoisGW">

AllowOverride AuthConfig

</Directory>

```

- [aguse.jp](http://www.aguse.jp/) ウェブ調査

- [ANSI Whois Gateway](http://whois.ansi.co.jp/) ドメイン名 / IPアドレス検索サービス

[[_TOC_]]

# 概要

- XPathを使ってXMLを読む。

# [[Perl|/Perl/Home]]

- [[Amazon|/Perl/Amazon/Home]]

- [[ApacheErrorLogFormatter]]

- [[AutoHashedFuncs]]

- [[CGI.pm]]

- [[DBIx-Custom]]

- [[DBIx-NamedParams]]

- [[decodeQuotedPrintable]]

- [[EscapeSlash]]

- [[GD]]

- [[getDiskUsage]]

[[_TOC_]]

- XMLファイルを比較し、要素/属性が一致する場合は「=:」、不一致の場合は行頭に「!」を付けて表示します。

- 他方に項目が無かった場合は「~」が表示されます。

- XMLの要素も属性も共に配列ではなくハッシュとして取り扱います。

- ３つ以上のXMLファイルも比較できるようにしました。(2012/05/20)

- 初版(2012/05/18)

- [compareXML.zip](compareXML.zip)

```perl

# XMLファイルを比較

# EOF

```

```

Output: diff.txt

Indent: "\t"

"-VALUE"

```

```

<SETTINGS NAME="Item1" VERSION="8" >

<DOCUMENT DOCUMENT_ID="79" NAME="Doc02.indd" SRC="//localhost/Data/2/2/" TYPE="INDD" />

</SETTINGS>

```

```

<SETTINGS NAME="Item2" VERSION="8" >

<DOCUMENT DOCUMENT_ID="78" NAME="Doc01.indd" SRC="//localhost/Data/2/1/" TYPE="INDD" />

</SETTINGS>

```

```

ASSET_LIST:

ASSET:

=: 8

```

- Perl/XML-Simple

- [CPAN:XML-Simple](http://search.cpan.org/dist/XML-Simple)

- [CPAN:Getopt-Long](http://search.cpan.org/dist/Getopt-Long)

- [XML Notepad](http://www.microsoft.com/en-us/download/details.aspx?id=7973) XmlDiff機能あり

[[_TOC_]]

- ファイルとして保存された Quoted Printable をデコードする。

- デコードされたファイルの名前は元のファイル名に「.html」を付けたものになる。

- 既存ファイルは問い合わせなしに上書きされる。

C:\Perl\bin\perl.exe "D:\myscripts\decodeQuotedPrintable.pl"

```

- [decodeQuotedPrintable.zip](decodeQuotedPrintable.zip)

```

# quoted-printable のデコード

# EOF

```

- [CPAN:MIME-Base64](http://search.cpan.org/dist/MIME-Base64)

[[_TOC_]]

# 概要

- IPアドレスからホスト名を逆引きする。

- IPv6 対応。

[[_TOC_]]

- Linux/Windows共通に環境変数からコンソールの文字コードとホームディレクトリを設定する。

- [initConsole.zip](initConsole.zip)

```perl

#!/usr/bin/perl

# Linux/Windows共通に環境変数からコンソールの文字コードとホームディレクトリを設定する

# EOF

```

- [[Perl/環境変数]]

- [[Perl/文字コード]]

[[_TOC_]]

# 概要

- PukiWiki の [codehighlight](http://pukiwiki.sourceforge.jp/?%e8%87%aa%e4%bd%9c%e3%83%97%e3%83%a9%e3%82%b0%e3%82%a4%e3%83%b3%2f%63%6f%64%65%68%69%67%68%6c%69%67%68%74%2e%69%6e%63%2e%70%68%70) プラグイン用のキーワード設定ファイルを作成する。

- CSS のグループとキーワードを .yml ファイルから読み取る。

[[_TOC_]]

- ニコニコ動画の flv/mp4/swf と、コメントのXMLをダウンロードします。

- [perl - 勝手に添削 - ニコニコ動画ダウンローダー](http://blog.livedoor.jp/dankogai/archives/50885358.html)

- [perl - ニコニコ動画ダウンローダー新認証対応版](http://blog.livedoor.jp/dankogai/archives/50900305.html)

- [perl - LWP::UserAgentで進捗表示しつつダウンロード](http://blog.livedoor.jp/dankogai/archives/51141631.html)

- ファイルの種類に合わせて、拡張子を flv/mp4/swf に変える。

- 設定ファイルをスクリプトと同じ場所に置く。

- 保存先も設定ファイルに記述する。

- オプションなしで起動したときにwarningが出るのに対処。(2009/04/12)

- openのレイヤーをbytesからrawに変更。(2009/04/12)

- [nicoget.zip](nicoget.zip)

- nicoget.pl

#!/usr/local/bin/perl

#

# nicoget.pl,v 0.1+0.2 2009/04/12 15:00:00 take-ash

savepath: C:/temp

```

- [404 Blog Not Found](http://blog.livedoor.jp/dankogai/)

- [perl - 勝手に添削 - ニコニコ動画ダウンローダー](http://blog.livedoor.jp/dankogai/archives/50885358.html)

- [perl - ニコニコ動画ダウンローダー新認証対応版](http://blog.livedoor.jp/dankogai/archives/50900305.html)

[[_TOC_]]

- pack関数のテンプレートで'B'を指定した場合、どのように変換されるのかを確認する。

- pack する対象は、0/1が連なった文字列。

- 1文字が1ビットに対応する。

- 0/1 以外の文字は ($x & 0x01) されて解釈される。(10進数として解釈されない)<br />

例) '256'→'010', '512'→'110', '513'→'111'

- [packBit.zip](packBit.zip)

```perl

# pack('B',$x), pack('C',$x) のテスト

# EOF

```

```

Perl version: 5.014002

_in bit_pack bit_unpack char_pack char_unpack

513 "\xE0" 1110 "\x02\x01" 2,1

```

- Perl/MySQL-BIT

- http://perldoc.jp/

[[_TOC_]]

- CSV(TSV)を読み込んで、ヘッダ行をキーにしたハッシュの配列を作成する。

- ファイルの文字コードは UTF-8。

- { binary => 1 } がデフォルトで指定されるように変更。(2012/02/28)

- 戻り値が配列のリファレンスであることを確認してからデリファレンスするようにした。(2012/02/28)

- [readCSV.zip](readCSV.zip)

```perl

#!/usr/bin/perl

# CSV(TSV)を読み込んで、ヘッダ行をキーにしたハッシュの配列を作成する。

# EOF

```

| ID | Name | Gender | DOB | Comment |

| --- | --- | --- | --- | --- |

| 1 | 芳佳 | 2 | 1930/08/18 | 九字兼定 |

| 2 | 美緒 | 2 | 1925/08/26 | ドーベルマン |

| 3 | ミーナ | 2 | 1926/03/11 | 灰色狼 |

```

---

-

Name: ミーナ

```

- [[Perl/NetWatcher]]

- [CPAN:Text-xSV-Slurp](http://search.cpan.org/dist/Text-xSV-Slurp)

[[_TOC_]]

[Earth Dynamic DNS](http://mydns.to/)に登録した情報を更新するスクリプトです。

- [updateEarth.zip](updateEarth.zip)

#!/usr/local/bin/perl

# Earth DynamicDNS の更新スクリプト

# EOF

```

#!/usr/local/bin/perl

print "Content-type: text/plain; charset=Shift_JIS\n\n";

exit();

[[_TOC_]]

- 3x3のビットパターンを表現するクラスを作成し、これを使って回転しても重複しないパターンを探索する。

- ソース<br />

[BitPattern.zip](BitPattern.zip)

# BitPattern.pm

# ビットパターンクラス

# 数値に対応するNxNのマトリックスを表現するクラス

# EOF

```

# testBitPattern.pl

# ビットパターンクラスの動作テスト

# EOF

```

```

0001 / [ [ 1 0 0 ] [ 0 0 0 ] [ 0 0 0 ] ]

1

*-* -> *-*

```

# checkPattern.pl

# ビットパターンのチェック

# 回転しても重複しないビットパターンを探索する

# EOF

```

```

0001 / [ [ 1 0 0 ] [ 0 0 0 ] [ 0 0 0 ] ]

0002 / [ [ 0 1 0 ] [ 0 0 0 ] [ 0 0 0 ] ]

count: 139

```

- [Perlオブジェクト指向プログラミング](http://www.rwds.net/kuroita/program/Perl_oo.html)

[[_TOC_]]

# 概要

- 置換キーワードリストに従って、入力ファイル中のキーワードを置換してファイルへ出力する。

- キーワード毎に何件置換したかをレポートする。

[[_TOC_]]

- カレントディレクトリのファイル名をルールに従って正規化する。

- 正規化したいファイルを選択した後、SendTo から呼び出す。

```

- _v/r. -> _v/r ("v"または"r"に続く"."を削除。ただし拡張子の前の"."だったら削除しない)

- エラー時にメッセージを表示するようにした。(2012/07/13)

- [normFileName.zip](normFileName.zip)

```perl

# normFileName.pl

# EOF

```

- [[文字コード|Perl/文字コード]]

- [CPAN:perl/lib/File/Basename.pm](http://search.cpan.org/dist/perl/lib/File/Basename.pm)

[[_TOC_]]

#!/usr/local/bin/perl

# 全角英数記号を半角英数記号に置換

#EOF

```

- [perl5.8のUnicodeサポート](http://www.lr.pi.titech.ac.jp/~abekawa/perl/perl_unicode.html)

- [CPAN:Lingua-JA-Regular-Unicode](http://search.cpan.org/dist/Lingua-JA-Regular-Unicode)

[[_TOC_]]

- ハッシュへの参照のテスト

- [testRef.pl](testRef.pl)

# ハッシュへの参照のテスト

use strict;

# EOF

```

```

-1

-1

-1

5

[[_TOC_]]

1. [処理系のインストール, エンコーディング, PPM](http://itpro.nikkeibp.co.jp/article/COLUMN/20050829/220194/)

1. [文字列置換, 正規表現作成](http://itpro.nikkeibp.co.jp/article/COLUMN/20050901/220432/)

1. [ファイルのリネーム, 実行速度測定](http://itpro.nikkeibp.co.jp/article/COLUMN/20050905/220595/)

1. [QRコード](http://itpro.nikkeibp.co.jp/article/COLUMN/20050909/220867/)

1. [正しいPerl/CGIの書き方](http://itpro.nikkeibp.co.jp/article/COLUMN/20071011/284280/)

1. [Webアプリケーション・フレームワーク入門](http://itpro.nikkeibp.co.jp/article/COLUMN/20071011/284283/)

[[_TOC_]]

- ある日付の曜日を計算する。

- 計算できるのは、1582年10月15日（金）以降。

#!/usr/bin/perl

# 年月日の指定（例：1945年8月15日水曜日）

# EOF

```

- [曜日 〜Zeller(ツェラー)の公式〜](http://easycgi.xrea.jp/tips/perl/zeller.htm)

- [WikiPedia.ja:ツェラーの公式](http://ja.wikipedia.org/wiki/%e3%83%84%e3%82%a7%e3%83%a9%e3%83%bc%e3%81%ae%e5%85%ac%e5%bc%8f)

- [WikiPedia.ja:月_(暦)](http://ja.wikipedia.org/wiki/%e6%9c%88%5f%28%e6%9a%a6%29)

[[_TOC_]]

- 置換コードリストに従って、入力テキストファイル中の未定義コードを置換してファイルへ出力する。

- コード毎に何件置換したかをレポートする。

- [replaceCode.zip](replaceCode.zip)

# テキストファイル中の Latin-1 未定義コードの置き換え

use strict;

print OUT $outbody;

close( OUT );

[[_TOC_]]

- HTML のエスケープには encode_entities を使いましょう。([CPAN:HTML-Parser/lib/HTML/Entities.pm](http://search.cpan.org/dist/HTML-Parser/lib/HTML/Entities.pm))

- URI のエスケープには uri_escape を使いましょう。([CPAN:URI/URI/Escape.pm](http://search.cpan.org/dist/URI/URI/Escape.pm))

- 正規表現をエスケープする時は quotemeta 。([perldoc.jp:func/quotemeta](http://perldoc.jp/func/quotemeta))

- SQL は自分でエスケープせず、プレースホルダと bind を使いましょう。

- 入力された文字列などの中のHTMLとして直接記述できない文字をエスケープする。

```perl

#!/usr/bin/perl

# HTML用にエスケープ処理を行う。

# EOF

```

```

Test:

He said, "<em>Enjoy & Exciting!</em>."

}

```

- [[EscapeSlash|Perl/EscapeSlash]]

- [勝手に添削 - 40行で作るPerl用テンプレートエンジン](http://blog.livedoor.jp/dankogai/archives/50940023.html)

# 自動フラッシュ(バッファリング)の制御

# 自動フラッシュ有効化 (バッファリングを無効化)

$| = 1;

printf( "%d/%d\r", $i, $end );

sleep(1);

}

[[_TOC_]]

- ファイルを読み込み、行末改行を一括削除する。

- 「CRLF」「LF」のどちらでも対応できるようにする。

use strict;

use utf8;

# 実際の処理