latin1のままだったのですが、他のアプリから、デフォルトUTF-8で
接続したかったため、変更しましたよーってこと
まずは、MySQLの状態確認
# mysql -uroot -p Enter password: Welcome to the MySQL monitor. Commands end with ; or \g. Your MySQL connection id is 1 Server version: 5.0.51a-log Source distribution Type 'help;' or '\h' for help. Type '\c' to clear the buffer. mysql> STATUS; -------------- mysql Ver 14.12 Distrib 5.0.51a, for redhat-linux-gnu (i686) using EditLine wrapper Connection id: 1 Current database: Current user: root@localhost SSL: Not in use Current pager: stdout Using outfile: '' Using delimiter: ; Server version: 5.0.51a-log Source distribution Protocol version: 10 Connection: Localhost via UNIX socket Server characterset: latin1 Db characterset: latin1 Client characterset: latin1 Conn. characterset: latin1 UNIX socket: /tmp/mysql.sock Uptime: 4 sec Threads: 1 Questions: 4 Slow queries: 0 Opens: 12 Flush tables: 1 Open tables: 6 Queries per second avg: 1.000 --------------
latin1のことを確認したら、バックアップを取りましょー
# mysqldump -uroot -p modperl --default-character-set=latin1 > modperl.latin1.db
んで、もってUTF-8にテーブルを変える
# sed -s 's/DEFAULT CHARSET=latin1/DEFAULT CHARSET=utf8/' modperl.latin1.db > modperl.utf8.db
んで、入れる
mysql -uroot -p modperl < modperl.utf8.db
んで、MySQLのmy.cnfに以下を追加してrestart
/etc/my.cnf [client] default-character-set = utf8 [mysqld] default-character-set = utf8 [mysql] default-character-set = utf8
ほいで、状態を確認する
# mysql -uroot -p Enter password: Welcome to the MySQL monitor. Commands end with ; or \g. Your MySQL connection id is 2 Server version: 5.0.51a-log Source distribution Type 'help;' or '\h' for help. Type '\c' to clear the buffer. mysql> STATUS; -------------- mysql Ver 14.12 Distrib 5.0.51a, for redhat-linux-gnu (i686) using EditLine wrapper Connection id: 2 Current database: Current user: root@localhost SSL: Not in use Current pager: stdout Using outfile: '' Using delimiter: ; Server version: 5.0.51a-log Source distribution Protocol version: 10 Connection: Localhost via UNIX socket Server characterset: utf8 Db characterset: utf8 Client characterset: utf8 Conn. characterset: utf8 UNIX socket: /tmp/mysql.sock Uptime: 25 sec Threads: 1 Questions: 91 Slow queries: 0 Opens: 24 Flush tables: 1 Open tables: 18 Queries per second avg: 3.640 --------------
パチパチ、めでたしめでたしって、思って
MTの管理画面をリロードしたら、文字化けしやがってる！！
なんで？？
]]> 色々調べてみると・・・
skip-character-set-client-handshake
をMySQLに設定するとかっていうのがあった
けど、これはまずいでしょ？？！！ってことでOUT
さらに調べると、MTのmt-config.cgiに
PublishCharset UTF-8
を追加するんだよ、みたいなとこがたくさん出てくる
しかーーーーし、設定しても動かず・・・
もーいーやってことで、MTの mt/lib/MT/ObjectDriver/Driver/DBD/mysql.pm をいぢる
sub _set_names {
my $dbd = shift;
my ($driver) = @_;
my $dbh = $driver->rw_handle;
my $cfg = MT->config;
my $set_names = $cfg->SQLSetNames;
return 1 if (defined $set_names) && !$set_names;
$cfg->SQLSetNames？？ってなんだ？
って、思って再度調べる
マニュアルでは、PulishCharsetを有効にするには、SQLSetNamesも書かなきゃいかんと
えええーーまぢっすか？？！！
なので、mt-config.cgiに追加して、
PublishCharset UTF-8 SQLSetNames 1
MT管理をリロードしたら、無事文字化けが直りましたとさｗｗ
]]>
# rpm -qa | grep -i perl perl-IO-Zlib-1.04-4.2.1 perl-DBI-1.52-1.fc6 perl-HTML-Parser-3.55-1.fc6 perl-NKF-2.07-1.1.fc6 mod_perl-2.0.2-6.3.el5 ImageMagick-perl-6.2.8.0-4.el5_1.1 perl-Compress-Zlib-1.42-1.fc6 perl-Digest-SHA1-2.11-1.2.1 perl-Digest-HMAC-1.01-15 perl-Archive-Tar-1.30-1.fc6 perl-BSD-Resource-1.28-1.fc6.1 perl-Net-IP-1.25-2.fc6 perl-HTML-Tagset-3.10-2.1.1 perl-libwww-perl-5.805-1.1.1 perl-IO-Socket-INET6-2.51-2.fc6 perl-IO-Socket-SSL-1.01-1.fc6 perl-URI-1.35-3 perl-String-CRC32-1.4-2.fc6 perl-Net-DNS-0.59-3.el5 perl-Socket6-0.19-3.fc6 newt-perl-1.08-9.2.2 perl-Net-SSLeay-1.30-4.fc6 perl-5.8.8-15.el5_2.1
こんな感じ
で、Mooseをインストールしたくて、
# perl -MCPAN -e shell cpan shell -- CPAN exploration and modules installation (v1.7602) ReadLine support enabled cpan> install Moose
したら
ERROR:
A CPAN module critically requires a function
(Scalar::Util::weaken) that should exist in your
Scalar::Util module but doesn't.
This probably happened because you are using a Perl
provided by a binary package from a vendor, and this
vendor has packaged Perl incorrectly.
I have checked for a couple of potential workarounds
but none of them appear to be usable in your
situation.
I will try a last-ditch option anyway, but the most
likely result is a number of noisily failing tests
If this happens, you will need to contact technical
support for your vendor and report the broken Perl,
so that they can repair it.
Please refer them to the documentation for the
'Task::Weaken' CPAN module, which explains the problem
and how they can fix it.
I'm going to wait for about a minute now so you have time
to read this message
が、出てきた
]]> よーは、yumとかで入れたPerlのパッケージがおかしいよって言ってるみたい
Scalar::Utilというので、エラーになってるので、
これをCPANで入れるのか？
と、思って、CPAN install したら、同じエラー
ちらっとググると、外人さんが、Scalar::Util はソースから入れるといい
というのがあったので、さっそくやってみた
# wget http://search.cpan.org/CPAN/authors/id/G/GB/GBARR/Scalar-List-Utils-1.19.tar.gz --01:10:16-- http://search.cpan.org/CPAN/authors/id/G/GB/GBARR/Scalar-List-Utils-1.19.tar.gz search.cpan.org をDNSに問いあわせています... 207.115.101.144, 84.45.68.23 search.cpan.org|207.115.101.144|:80 に接続しています... 接続しました。 HTTP による接続要求を送信しました、応答を待っています... 302 Found 場所: http://ftp.nara.wide.ad.jp/pub/CPAN/authors/id/G/GB/GBARR/Scalar-List-Utils-1.19.tar.gz [続く] --01:10:17-- http://ftp.nara.wide.ad.jp/pub/CPAN/authors/id/G/GB/GBARR/Scalar-List-Utils-1.19.tar.gz ftp.nara.wide.ad.jp をDNSに問いあわせています... 203.178.137.175, 2001:200:0:1::800:21 ftp.nara.wide.ad.jp|203.178.137.175|:80 に接続しています... 接続しました。 HTTP による接続要求を送信しました、応答を待っています... 200 OK 長さ: 43620 (43K) [application/x-gzip] Saving to: `Scalar-List-Utils-1.19.tar.gz' 100%[===============================================================================>] 43,620 --.-K/s in 0.1s 01:10:18 (348 KB/s) - `Scalar-List-Utils-1.19.tar.gz' を保存しました [43620/43620]
で、インストール
# tar zxvf Scalar-List-Utils-1.19.tar.gz
Scalar-List-Utils-1.19/
Scalar-List-Utils-1.19/t/
Scalar-List-Utils-1.19/t/refaddr.t
Scalar-List-Utils-1.19/t/p_tainted.t
Scalar-List-Utils-1.19/t/p_maxstr.t
Scalar-List-Utils-1.19/t/p_blessed.t
Scalar-List-Utils-1.19/t/tainted.t
Scalar-List-Utils-1.19/t/maxstr.t
Scalar-List-Utils-1.19/t/p_minstr.t
Scalar-List-Utils-1.19/t/p_readonly.t
Scalar-List-Utils-1.19/t/p_min.t
Scalar-List-Utils-1.19/t/p_refaddr.t
Scalar-List-Utils-1.19/t/reftype.t
Scalar-List-Utils-1.19/t/blessed.t
Scalar-List-Utils-1.19/t/lln.t
Scalar-List-Utils-1.19/t/proto.t
Scalar-List-Utils-1.19/t/p_first.t
Scalar-List-Utils-1.19/t/minstr.t
Scalar-List-Utils-1.19/t/first.t
Scalar-List-Utils-1.19/t/p_shuffle.t
Scalar-List-Utils-1.19/t/min.t
Scalar-List-Utils-1.19/t/reduce.t
Scalar-List-Utils-1.19/t/p_lln.t
Scalar-List-Utils-1.19/t/max.t
Scalar-List-Utils-1.19/t/p_openhan.t
Scalar-List-Utils-1.19/t/p_max.t
Scalar-List-Utils-1.19/t/openhan.t
Scalar-List-Utils-1.19/t/readonly.t
Scalar-List-Utils-1.19/t/isvstring.t
Scalar-List-Utils-1.19/t/p_sum.t
Scalar-List-Utils-1.19/t/p_reduce.t
Scalar-List-Utils-1.19/t/sum.t
Scalar-List-Utils-1.19/t/shuffle.t
Scalar-List-Utils-1.19/t/dualvar.t
Scalar-List-Utils-1.19/t/00version.t
Scalar-List-Utils-1.19/t/weak.t
Scalar-List-Utils-1.19/t/p_reftype.t
Scalar-List-Utils-1.19/inc/
Scalar-List-Utils-1.19/inc/Test/
Scalar-List-Utils-1.19/inc/Test/Builder.pm
Scalar-List-Utils-1.19/inc/Test/Builder/
Scalar-List-Utils-1.19/inc/Test/Builder/Module.pm
Scalar-List-Utils-1.19/inc/Test/More.pm
Scalar-List-Utils-1.19/inc/Module/
Scalar-List-Utils-1.19/inc/Module/Install.pm
Scalar-List-Utils-1.19/inc/Module/Install/
Scalar-List-Utils-1.19/inc/Module/Install/InstallDirs.pm
Scalar-List-Utils-1.19/inc/Module/Install/Include.pm
Scalar-List-Utils-1.19/inc/Module/Install/Makefile.pm
Scalar-List-Utils-1.19/inc/Module/Install/Metadata.pm
Scalar-List-Utils-1.19/inc/Module/Install/Win32.pm
Scalar-List-Utils-1.19/inc/Module/Install/Fetch.pm
Scalar-List-Utils-1.19/inc/Module/Install/Base.pm
Scalar-List-Utils-1.19/inc/Module/Install/Can.pm
Scalar-List-Utils-1.19/Changes
Scalar-List-Utils-1.19/lib/
Scalar-List-Utils-1.19/lib/List/
Scalar-List-Utils-1.19/lib/List/Util.pm
Scalar-List-Utils-1.19/lib/Scalar/
Scalar-List-Utils-1.19/lib/Scalar/Util.pm
Scalar-List-Utils-1.19/MANIFEST
Scalar-List-Utils-1.19/META.yml
Scalar-List-Utils-1.19/Util.xs
Scalar-List-Utils-1.19/mytypemap
Scalar-List-Utils-1.19/multicall.h
Scalar-List-Utils-1.19/Makefile.PL
Scalar-List-Utils-1.19/README
Scalar-List-Utils-1.19/SIGNATURE
# cd Scalar-List-Utils-1.19
# perl Makefile.PL
Checking if your kit is complete...
Looks good
Writing Makefile for List::Util
[root@localhost Scalar-List-Utils-1.19]# make
cp lib/List/Util.pm blib/lib/List/Util.pm
cp lib/Scalar/Util.pm blib/lib/Scalar/Util.pm
/usr/bin/perl "-Iinc" /usr/lib/perl5/5.8.8/ExtUtils/xsubpp -typemap /usr/lib/perl5/5.8.8/ExtUtils/typemap Util.xs > Util.xsc && mv Util.xsc Util.c
gcc -c -D_REENTRANT -D_GNU_SOURCE -fno-strict-aliasing -pipe -Wdeclaration-after-statement -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -I/usr/include/gdbm -O2 -g -pipe -Wall -Wp,-D_FORTIFY_SOURCE=2 -fexceptions -fstack-protector --param=ssp-buffer-size=4 -m32 -march=i386 -mtune=generic -fasynchronous-unwind-tables -DVERSION=\"1.19\" -DXS_VERSION=\"1.19\" -fPIC "-I/usr/lib/perl5/5.8.8/i386-linux-thread-multi/CORE" -DPERL_EXT Util.c
Running Mkbootstrap for List::Util ()
chmod 644 Util.bs
rm -f blib/arch/auto/List/Util/Util.so
gcc -shared -O2 -g -pipe -Wall -Wp,-D_FORTIFY_SOURCE=2 -fexceptions -fstack-protector --param=ssp-buffer-size=4 -m32 -march=i386 -mtune=generic -fasynchronous-unwind-tables -L/usr/local/lib Util.o -o blib/arch/auto/List/Util/Util.so \
\
chmod 755 blib/arch/auto/List/Util/Util.so
cp Util.bs blib/arch/auto/List/Util/Util.bs
chmod 644 blib/arch/auto/List/Util/Util.bs
Manifying blib/man3/List::Util.3pm
Manifying blib/man3/Scalar::Util.3pm
# make install
Installing /usr/lib/perl5/5.8.8/i386-linux-thread-multi/auto/List/Util/Util.so
Files found in blib/arch: installing files in blib/lib into architecture dependent library tree
Writing /usr/lib/perl5/5.8.8/i386-linux-thread-multi/auto/List/Util/.packlist
Appending installation info to /usr/lib/perl5/5.8.8/i386-linux-thread-multi/perllocal.pod
普通に入る
んで、肝心のMooseをCPAN経由で入れてみると・・・・
入ったーーーーーーー
Installing /usr/share/man/man3/Moose::Cookbook::Extending::Recipe3.3pm Writing /usr/lib/perl5/site_perl/5.8.8/i386-linux-thread-multi/auto/Moose/.packlist Appending installation info to /usr/lib/perl5/5.8.8/i386-linux-thread-multi/perllocal.pod /usr/bin/make install -- OK
一安心ですなｗ
]]>
Shift_JIS、EUC-JPなどでのページでは、Perlで言うと・・・
print
$q->header(-type => 'application/x-javascript; charset=UTF-8'),
$q->param('callback'), '(', JSON::Syck::Dump($data), ');', "\n";
exit;
は、完全OUTです！！
さらに文字によっては、}がありません
とか寝ぼけたこといい出します
※JSONデータにマルチバイトがないっていう状態では、もちろん起こりませんけどｗ
解決方法は・・・って、別にたいしたことじゃないけど
Shift_JISは、ヘッダをShift_JISへ、且つJSONデータもShift_JISへ変換
EUC-JPは、って言ってもShift_JISと同じで、文字コードを合わせるだけですw
ちなみに、このヘッダの文字コード変えるとかは、IE以外？は通用しないので
IEを判別する（UA？）とかで分岐してくださいね
]]>
サイトは、こちら
http://jeremy.zawodny.com/mysql/mybench/
作者は、下↓の著者でもありますね
ともかく、実際に起動してみましょー
ダウンロードしたターボールを、tar zxvfして、展開
perl Maikfile.PL と make でインストール完了！！
bench_exampleってのをちょこっとだけ変更するだけですな
]]> 変更したのは、こちら
（って言ってもユーザのとことかコメントアウトしてるから、ほぼサンプルのままですなw）
#!/usr/local/bin/perl -w
use strict;
use MyBench;
use Getopt::Std;
use Time::HiRes qw(gettimeofday tv_interval);
use DBI;
my %opt;
Getopt::Std::getopt('n:r:h:', \%opt);
my $num_kids = $opt{n} || 10;
my $num_runs = $opt{r} || 100;
my $db = "xxx";
my $user = "xxx";
my $pass = "xxx";
my $port = 3306;
my $host = $opt{h} || "127.0.0.1";
my $dsn = "DBI:mysql:$db:$host;port=$port";
my $callback = sub
{
my $id = shift;
my $dbh = DBI->connect($dsn, $user, $pass, { RaiseError => 1 });
my $sth = $dbh->prepare("SELECT * FROM mt_log WHERE log_id = ?");
my $cnt = 0;
my @times = ();
## wait for the parent to HUP me
local $SIG{HUP} = sub { };
sleep 600;
while ($cnt < $num_runs)
{
my $v = int(rand(100_000));
## time the query
my $t0 = [gettimeofday];
$sth->execute($v);
my $t1 = tv_interval($t0, [gettimeofday]);
push @times, $t1;
$sth->finish();
$cnt++;
}
## cleanup
$dbh->disconnect();
my @r = ($id, scalar(@times), min(@times), max(@times), avg(@times), tot(@times));
return @r;
};
my @results = MyBench::fork_and_work($num_kids, $callback);
MyBench::compute_results('test', @results);
exit;
__END__
では、起動してみましょー
perl mybench.pl forking: ++++++++++ sleeping for 2 seconds while kids get ready waiting: ---------- test: 1000 0.000371 0.327471 0.003567237 3.567237 2803.2900533382 clients : 10 queries : 1000 fastest : 0.000371 slowest : 0.327471 average : 0.003567237 serial : 3.567237 q/sec : 2803.2900533382
まぁ、ぱっと見てもらえればそのままなんですが、とりあえず解説をば
clientsっていうのは、MyBenchの内部処理の話ですが、引数（値）で渡されたclient分
forkするわけですね、そーその子プロセス数を指定してあげていたのです
queriesは、子プロセスが送信するクエリ数ですね
fastestは、上の例で言えば、子プロセス×クエリ数で最速だった秒
slowestは、fastestの逆で、一番遅かった秒
averageは、全クエリの平均、１クエリでどれだけ平均かかってますか？ってこと
んで、serialは、突然変な数値が出てくるんだけど、これは、上の例でいくと、
1子プロセスが1000クエリ投げて、かかった時間を子プロセス分、全部足した秒数です
なので、実際は3.5秒もかかってないやん！！
と、言いたいところですが、10子プロセスが同時に行った時間の総計なので、
こんなふーに表示されちゃうんですね
ほいで、最後は、これはもー、単純にq/sec＝1秒間に送信できたクエリ数ですね
はー、なんか久々にダラダラ書いた感じw
]]>
こっちに書いてみますw
元質問はこっちですよ
http://q.hatena.ne.jp/1233674997
結局は、フルレプリケーションした場合は、どーしよーもない感じですが、
あるDBをスレーブしてるなどの負荷を分散する際は、こんなのが使えました
マスターにて
mysql>USE test; mysql>CREATE TABLE xxx ENGINE=MyISAM; mysql>USE mysql; mysql>ALTER TABLE test.xxx ENGINE=InnoDB;
はてさて、同じことやってるみたい？
分かる人は分かったかな？
]]> 実は、データベースを跨ぐUPDATEなどは、
フルレプリケーションじゃない、またはreplicate-wild-do-tableなどを指定している
場合などでは、データーベースを跨ぐUPDATEは行われません
つまり、
replicate-do-db=test
なんかしてる場合は、マスタのxxxテーブルは、InnoDB
スレーブのxxxテーブルは、MyISAMとなるんですね
]]>
ssh-keygen -t rsa
そーすると、パスフレーズとか聞かれるので、パスワードはながーく打ちますw
ちなみに自分は住所をもぢったものにしてみましたw
さてはて、次にすることは
mv ~/.ssh/id_rsa.pub /.ssh/authorized_keys chmod 600 ~/.ssh/authorized_keys
そんで、id_rsaのファイルをログインしたいPCとかにコピっときます
cat ~/.ssh/id_rsa
最後は、/etc/ssh/sshd_configのPasswordAuthenticationをnoにして
/etc/init.d/sshd restart
で、終了ーーー
ターミナルからログインとかするときは、、、
ssh -i .ssh/id_rsa xxxx@xxxx.com
とかすると、パスフレーズを聞かれるので、答えたらログインOKっす！！
]]>
perlでPHPみたいにrtrimをしたいです。 文字列の一番最後に全角スペースや半角スペースがあれば 削除するみたいな感じにしたいです。 全角が２つあってもそれも削除します。 どうすれば可能でしょうか？
#2を回答した方が、#1の方を惜しいと言ってるんだけれども、
#2の方も惜しいｗｗ
正規表現で、
$str =~ s/[\s ]+$//g;
すると、半角スペース、または、UTF-8の全角スペース「E38080」が分解され、
「\xE3」または、「\x80」または、「\x80」を消すってなっちゃいます
正解は、こんな感じ
]]>
#!/usr/bin/perl
use strict;
use warnings;
my $str1 = 'テスト '; # 1byte space
my $str2 = 'テスト '; # 1byte spece and 3byte utf8 space
my $str3 = 'テスト '; # 3byte utf8 space and 3byte utf8 space
for my $w (($str1, $str2, $str3)) {
$w =~ s/(\s|\xE3\x80\x80)+$//;
print "<$w>\n";
}
exit;
まー、「[]」じゃくて「()」で文字列としてしましょーってことね
そいじゃ、またｗ
]]>
perlにてリクエストし、JSON形式で返すだけ
#!/usr/bin/perl
use strict;
use warnings;
use CGI;
use HTTP::Lite;
use JSON::Syck;
use Jcode;
my($data, %qq);
my $q = CGI->new();
my $http = HTTP::Lite->new();
my $req = $http->request($q->param('src')) or goto RET;
my $body = $http->body();
if ($q->param('headless')) {
$body =~ s!^.*<body[^>]*>(.*)</body>.*$!$1!i;
}
my $char = getcode($body);
if ($char && $char !~ /utf\-?8/i) {
$body = jcode($body, $char)->utf8;
}
for ($q->param()) {
$qq{$_} = $q->param($_);
}
$data = {%qq, content => $body};
RET:
print
$q->header(-type => 'application/x-javascript; charset=UTF-8'),
$q->param('callback'), '(', JSON::Syck::Dump($data), ');', "\n";
exit;
まー、いたって簡単ですな
これを使って、右サイドバーのamazon広告をonloadで変えてみます
]]> onloadでのjsは、こんな感じ
<!-- amazon image change start -->
<script type="text/javascript" src="/mt/mt-static/jquery-1.2.6.pack.js"></script>
<script type="text/javascript">
$(function(){
var i;
for (i=0;i<=$(document.getElementsByTagName('iframe')).length;i++) {
var fe = $(document.getElementsByTagName('iframe'))[i];
if (!fe) continue;
if (fe.src.match(/amazon.co.jp/)) {
var url = 'http://modperlis.bounceme.net/jsonperl/amget.cgi';
url += '?headless=1';
url += '&number='+i+'&src='+escape(fe.src)+'&callback=?';
$.getJSON(url,
function (data) {
if (!data) return false;
data.content = data.content.replace(/\._SL100_\.jpg/, '._SL200_.jpg');
var el = document.createElement('div');
el.id = 'amazon_' + data.number;
el.innerHTML = data.content;
var fe = $(document.getElementsByTagName('iframe'))[data.number];
fe.style.display = 'none';
fe.parentNode.appendChild(el);
var content = $('#amazon_' + data.number+' div:first-child')[0];
content.style.backgroundColor = '#eeeeee';
content.style.whiteSpace = 'nowrap';
content.style.fontSize = '14px';
content.style.border = 'solid 1px black';
content.style.padding = '6px';
for (i=0;i<=content.childNodes.length;i++) {
try{var tag=content.childNodes[i].tagName;}catch(e){;}
if (!tag) continue;
if (tag.match(/^form$/i)) {
$(content.childNodes[i]).remove();
} else if (tag.match(/^p$/i)) {
var id = $(content.childNodes[i])[0].id;
if (!id) continue;
if (id.match(/^privacy$/i)) {
$(content.childNodes[i]).remove();
}
}
}
});
}
}
});
</script>
<!-- amazon image change end -->
jQueryを使っていますが、まー、なんでもできます
使いたい方は、コメントにでも書いてくださいなｗ
mod_perlなので、リクエスト数は問題ないと思いますが、
なにぶん自宅サーバなので、レスポンスなどは・・・・気にしない環境でww
]]>
#!/usr/bin/perl
use strict;
use warnings;
use Time::HiRes qw(usleep ualarm gettimeofday tv_interval);
my $a = 'あいうえお';
my $t = [gettimeofday];
if (!$a) {
use Jcode;
}
jcode($a, 'utf8')->sjis;
print "Content-type:text/html\n\n";
print tv_interval($t);
print "\n";
exit;
と、
#!/usr/bin/perl
use strict;
use warnings;
use Time::HiRes qw(usleep ualarm gettimeofday tv_interval);
my $a = 'あいうえお';
my $t = [gettimeofday];
my $jcode;
# if (!$a) {
if ($a) {
require "/usr/lib/perl5/site_perl/5.8.8/Jcode.pm";
$jcode = Jcode->new();
}
$jcode->set($a, 'utf8')->sjis;
print "Content-type:text/html\n\n";
print tv_interval($t);
print "\n";
exit;
は、全く結果が違っちゃいます
]]> 見てお分かりの通り、前者は、
if (!$a) {
use Jcode;
}
してるのに、jcode関数が使えちゃいます
use は、コンパイル
require は、実行時に展開されるために差分が出てしまうのです
つまり、あんま使わないから、if文の中でだけuseしとくか・・・・
なーんてことはできないので、そーいうときは、requireにしましょー
]]>
やったことは、まず３テーブル作る
CREATE TABLE tb1 (id INTEGER AUTO_INCREMENT, PRIMARY KEY(id)); CREATE TABLE tb2 (id INTEGER AUTO_INCREMENT, PRIMARY KEY(id)); CREATE TABLE tb3 (id INTEGER AUTO_INCREMENT, PRIMARY KEY(id));
適当にデータを入れたところで、以下のクエリーでEXPLAINしてみる
EXPLAIN SELECT tb1.* FROM tb1 LEFT JOIN tb2 ON tb1.id = tb2.id LEFT JOIN tb3 ON tb1.id = tb3.id WHERE tb1.id = '6';
結果は
+----+-------------+-------+-------+---------------+---------+---------+-------+------+----------------------+ | id | select_type | table | type | possible_keys | key | key_len | ref | rows | Extra | +----+-------------+-------+-------+---------------+---------+---------+-------+------+----------------------+ | 1 | SIMPLE | tb1 | const | PRIMARY | PRIMARY | 4 | const | 1 | Using index | | 1 | SIMPLE | tb2 | const | PRIMARY | PRIMARY | 4 | const | 1 | Using index | | 1 | SIMPLE | tb3 | const | PRIMARY | PRIMARY | 4 | const | 0 | unique row not found | +----+-------------+-------+-------+---------------+---------+---------+-------+------+----------------------+ 3 rows in set (0.00 sec)
うーん、問題なくINDEXを使ってるなー
かなり負荷がかかるとは、どういうことなんでしょう・・・
]]>
bash-2.04$ for i in `ls -1 *.html` > do > sed -e "s/test\//test2\//g" $i > $i.sed > mv $i.sed $i > done
すると、一発で置換できますね
楽チン楽チン
]]>
#!/usr/bin/perl
use strict;
use warnings;
my %a = (a => 100, b => 200);
delete $a{a};
print join(',', keys %a). "\n\n";
と
#!/usr/bin/perl
use strict;
use warnings;
my %a = (a => 100, b => 200);
undef $a{a};
print join(',', keys %a). "\n\n";
では、キーの出力が違いますね
自分メモ
]]>
あれ？？
DB？？
って、思ってみてみたら、やっぱりそうでしたｗｗｗ
]]> なので、MySQLのカラムを変えちゃいます！！
mysql> ALTER TABLE mt_entry MODIFY entry_title mediumtext DEFAULT NULL; Query OK, 94 rows affected (0.22 sec) Records: 94 Duplicates: 0 Warnings: 0
ちなみに、新規書き込みしたときは、POSTデータからタイトルを生成しているので
文字数に制限はないみたいですよｗ
さらに、ちなみに、MEDIUTMTEXTは、
によると、ちとでかすぎる気がしますが、まーそんなカツカツなブログじゃないし～ｗｗ
]]>
InnoDB vs MyISAM パフォーマンス比較 DELETEとINSERT
いやはや、ためになります
]]>