文字関連

perl

■外部入力がutf8以外の場合の処理文字コードを判別 utf8以外なら sjis⇒内部文字列⇒utf8の順に変換 use Encode::Guess qw/euc-jp shift-jis/; $enc=guess_encoding($shop_name); if ($enc->name ne 'utf8') { save_debugfile("文字コード：".$enc->name." か…

2013-03-05

スクリプト

perl

■■フォームパラメータ取得 ■GET $ENV{'QUERY_STRING'} を＆で分解し＝で分解し、ＵＲＬデコード■POST read (STDIN, $PostData, $ENV{'CONTENT_LENGTH'}); を＆で分解し＝で分解し、ＵＲＬデコード ■区別の仕方 $ENV{'REQUEST_METHOD'} = POST or GET で取得■…

2013-03-02

DB

perl

■mysql接続 use DBI qw(:sql_types); $dbh = DBI->connect('DBI:mysql:ﾃﾞｰﾀﾍﾞｰｽ名:ホスト名:ポート','ﾕｰｻﾞｰID','パス'); $dbh->do("set names utf8"); // クライアントの文字セット $sth = $dbh->prepare("select * from t1 where id=? and name=?"); $sth->…

2013-02-28

モジュール確認

perl

■モジュール一覧表示 find `perl -e 'print "@INC"'` -name '*.pm' -print ■特定のモジュール find `perl -e 'print "@INC"'` -name '*.pm' -print | grep Base64 ■CPANでPerlライブラリをインストール # perl -MCPAN -e shell 例 cpan> install SOAP::Lite …

2012-12-18

hash

perl

use Digest::SHA 'sha512_hex';my $sha1_sum = sha512_hex('abcde');

2012-12-09

perl

とほほ ttp://www.tohoho-web.com/wwwperl.htm ■実行基本www/cgi-binで実行可能になっているドキュメントルート以下で実行するには httpd.conf に ExecCGIを追加 Options Indexes FollowSymLinks ExecCGIAddHandler cgi-script .cgiパーミッションは７５５…