配列をプリントする時の区切り文字を変える
- 2009.03.30
配列をprintする時の区切り文字を変えるには $" に代入するだけ。 @list= (1,2,3,4); $" = ','; print "@list"; 実行結果 1,2,3,4 ただし、 print @list; "" （だぶるクォート）無しだと反映されない。
PhpMyAdminの導入
- 2009.02.17
phpmyadminインストール yum install phpmyadmin /usr/share/phpmyadmin にインストールされる。 /usr/share/phpmyadmin/config.inc.phpを編集 $cfg['blowfish_secret']を設定。 /* * This is needed for cookie based authentication to encrypt password in * cookie */ $cfg['blowfish_secret'] = '*************'; /* YOU MUST FILL IN THIS FOR […]
MySQL(Tritonn)を複数インストール
MySQL4.12が稼働しているサーバにMySQL5.0.67(Ttitonn)をインストールする（MySQL4.12はYUMでインストール済） my.cnf (MySQL4.12) [mysqld] datadir=/var/lib/mysql socket=/var/lib/mysql/mysql.sock # Default to using old password format for compatibility with mysql 3.x # clients (those using the mysqlclient10 compatibility package). old_pa […]
senna 1.1.4のインストール
- 2009.02.16
CentOS 4.4 wget http://iij.dl.sourceforge.jp/senna/33763/senna-1.1.4.tar.gz tar xzf senna-1.1.4.tar.gz cd senna-1.1.4 ./configure --prefix=/usr/local make su-- make install
CentOS mecabのインストール
- 2009.02.07
- mecab
１）MeCabのインストール UTF8で使用する。 UTF-8 only modeとして使用する wget http://downloads.sourceforge.net/mecab/mecab-0.97.tar.gz tar xvfz mecab-0.97.tar.gz cd mecab-0.97 ./configure --with-charset=utf8 --enable-utf8-only make su -- make install ２）辞書ipadic2.7.0 のインストール UTF8で使用する。 wget http://downloads.sourceforge.net/ […]
連続で大量のデータを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 […]
ただ単にダミー画像をperlで表示するだけのルーチン
- 2009.02.02
CGIでダミー画像(GIF)を表示するだけのスクリプト。画像データ必要なし。 my @dummy = ("47","49","46","38","39","61","08","00","08","00","80","00","00","00","00","00","FF","FF","FF","21","F9","04","01","00","00","01","00","2C","00","00","00","00","08","00","08","00","40","02","06","8C","8F","A9","CB","ED","5D","00","3B" );print "Cont […]
perlでHTMLから本文を抜き出せるモジュール HTML::ExtractContent 他
- 2009.01.28
HTMLから本文を抜き出せるモジュール HTML::ExtractContent 作者：伊奈林太郎(id:tarao) 解説スライド：http://up.orezdnu.org/papers/Kansai.pm/2009-03-22/slide.pdf 参照：http://perl-mongers.org/2008/10/extract-content-from-html.html HTML::ContentExtractor 参照：http://d.hatena.ne.jp/tohtas/20081102/1225642884 HTML::ContentExtractor + Lingua: […]
useでライブラリを重複呼び出した場合
- 2008.10.24
package abc;use CGI;・・・略package def;use CGI; このようにuseで複数回モジュールを呼び出した場合はどうなるのか？ どうやらPerlは内部でuseしたライブラリ名を記憶していて、同じモジュールをuseしない(2回目のuseは無視)ようになっているので、二カ所（またはそれ以上）で同じモジュールをuseしても、全く問題無い。
DBI & MySQLでカウントする
$COUNT = $dbh->selectrow_array("SELECT COUNT(*) FROM `テーブル名` WHERE `カラム` = '条件'");