http://d.hatena.ne.jp/end0tknr/20110106/1294288753 を参考。 ほぼコピペですよね プレビュー機能は必要なかったのでカット。 Amon2向けにトークン取得とかしたり。 function FileUpload(elm_id){ var url = "save_image"; var TEXT_ENCODING = 'UTF-8'; t…

var hoge = { key : value }; alert(hoge.key); とするとvalueが表示されるわけです。 var hoge = { 'key' : value }; alert(hoge.key); としても同様。 var key = "hash_key" var hoge = { key : value }; alert(hoge.key); としても同様でどうやったらハッ…

Refererで弾くページのテストが出来ないので設定がいる。 http_headers = ( Accept => text/plain, text/html ) らしいのでコード的には http_headers => { Referer => 'http://www.google.co.jp' } こうで動くかな？ http_headers => ['Referer','http://ho…

よく忘れて毎回調べるので備忘録。 eval{ my $table = 't_user'; my $sql = SQL::Abstract->new(); my ($stmt , @bind) = $sql->select($table ,['id'], \%params); my $sth = $c->dbh->prepare($stmt); $sth->execute(@bind); my $id = $sth->fetchrow_arra…

loadModule perl_module modules/mod_perl.so <Location /plack_app> SetHandler perl-script PerlHandler Plack::Handler::Apache2 PerlSetVar psgi_app plack_app_dir </Location>

よし。 use utf8; sub hira2kana { local $_ = shift; $_ = Encode::decode('sjis' ,$_); tr/\x{3041}-\x{3096}/\x{30A1}-\x{30F6}/; Encode::_utf8_off($_); $_ = Encode::encode('sjis',Encode::decode('utf8' ,$_)); return $_; } no utf8;

下記コードがタ行以降で化ける。 use strict; use warnings; use 5.12.0; use Encode; sub conv_kana(){ my $string = shift; $string = Encode::encode('utf8',Encode::decode('sjis',$string)); $string =~ tr/ぁ-ん/ァ-ン/; #$string = Encode::encode('s…

select [カラム] from [テーブル名] limit [n件取り出し] offset [m列目から];>[14:11:57] あれたん: ぽすぐれとかどこの村だよ ごめん