LWP::SimpleでUserAgentを指定する
- 2009.11.12
- perl
LWP::SimpleはUserAgentを指定出来ないという文書が多いけどどうやら指定出来るらしい。 use LWP::Simple qw/:DEFAULT $ua/; $ua->agent('My UserAgent'); これでLWP::UserAgentまでもない場面でUserAgentが必要なときにも安心。 参考：LWP::Simple で UserAgent を変更する
perl
7/7ページ
連続で大量のデータをINSERTする実験
PERLでMySQLにデータを挿入する実験。 実験スクリプト INSERT を100万回繰り返す。 for(1..1000000){ $sql = <<"EOM"; INSERT INTO `table_name` (`col1`,`col2`,`col3`,`col4`) VALUES ('10','11','12','13'); EOM $sth = $dbh->do($sql)|| die $dbh->errstr; } 結果：途中でサーバエラー Server error! The server encountered an internal error and […]
ApacheでCGIの負荷検証（ベンチマークテスト）
Apacheには、標準で「ab」（Apache Bench）というツールが付属している。abの構文は、 ab [options] URL のように、オプションとテストを実行するURLを指定する。 詳しい使い方は以下 http://www.atmarkit.co.jp/flinux/rensai/apache15/apache15b.html PERL(CGI)の処理時間を計測するには? ターミナルを立ち上げ、パスの前に「time」と打ち込むだけ。 たとえば、「./myProgram.pl」というPerlスクリプトの場合 $ time ./myProgram.pl real 0m3.093s u […]