[perl]PostgreSQLへファイルをCOPY FROMする

はまったので。

普通に



したら、ファイル読み込みエラー発生。

標準入力　STDINで回避。

#---以下参考

use DBI;
use DBD::Pg;

#DBへ接続
my $dbh = DBI->connect("dbi:Pg:dbname=【データベース名】;host=【ホスト名またはIPアドレス】","【ユーザ名】","【パスワード】") or die 'ERROR';
#>パスワードがなければ省略可

#COPY SQLを実行
my $Fg = $dbh->do("copy 【テーブル名】(【項目1】,【項目2】) from STDIN using delimiters ','");
#>項目は、ファイル内容に合わせて設定する
#>using delimitersは、ファイルのデータ型に合わせて設定する
#>using delimitersを省略した場合、タブ区切りのデータが初期値で設定されている

#COPY SQL実行　成功判断
if ( $? != 0 ){
#失敗
die 'ERROR';
} else {
#成功
#インポートするファイルを読込む
open(fh ,">","【ファイルパス・名】");

while(){
#念のため
chomp($_);
#一行づつ標準入力
$dbh->func( $_."n",'putline' );
#>putlineはDBDがインストールされていない場合利用できない
}

#終了行を出力(決まりごと)
$dbh->func( "\\.\n",'putline' );

#COPY終了
$dbh->func( 'endcopy' );

#ファイルを閉じる
close(fh);

}
#DBへの接続を切断
$dbh->disconnect;

[perl]DBI,DBDモジュールインストール確認コマンド（Linux）

perl -MDBD::Pg -e ''
perl -MDBI -e ''

iPod touch5てにいれたった！

うひょ

Bluetoothの感度

電池が半分以下になると、送受信ともに感度が悪い気がする。。

また買ってしまった。。

Bluetoothヘッドセット。。

これで4つ目。

でも、2年前に比べてステレオタイプが安くなった。

前は商品自体が無かったし。

今回買ったのは、smart ways ってところのステレオタイプヘッドフォン。

ヤマダ電機で2000円で売ってたから即買いしてもうた。

かっこ悪くて、音は良くないけど、音切れが少ないんだこれが。
こないだ買ったバッファローのは、3000円して、音切れがひどくて全然使えなかったから、全然まし。

しかも小さくてポケットに入れて置いても違和感がない。

しばらく使ってみよう。

シャルダン展にいってきた

三菱一号館美術館始めて行った。
できたばかりみたいで綺麗だった。
オープンテラスのカフェやレストランに囲まれた中庭は、雰囲気が良くて落ち着く。

NOVO7 Elf2 使ってて電源が急に落ちる。。

主に動画閲覧用に使ってるんだけど、ブチって急に電源が落ちるんだよね。

電池マックスから大体4～5時間ぐらい連続使用してると落ちる。

どうも電池がないらしいんだけど、前触れもなく、表示も半分ぐらいの消費に見えるし、ビビる。

OSの問題か個体の問題かは様子見。