Perl コンソールでトライアル3 webzoit.net
perlスクリプトにチャレンジ3 ここでは、PerlスクリプトをブラウザとLinuxサーバに接続したssh(Secure Shell)対応ターミナルエミュレータ(TTSSH/TeraTerm SSH、PuTTY等)から実行・デバッグ・エラーチェックをしてみましょう。 サーバ上で実行する場合の注意点 ssh接続に関しては、サーバがsshに対応している必要があります。 LANではなくインターネットを介してssh接続を利用しない、利用できない場合、セキュリティ面からサーバにアクセスして作業することは避けるべきです。 また、サーバがレンタルで、特に共有サーバの場合には、サーバ負荷を考慮して一度に接続できるssh接続数やrdb接続数、ftp接続数を限定して設定しているのが一般的でレンタルサーバによっては途中で強制終了されたり、なかなか接続できなかったりといった状況も起こり得ます。 こうした状況では、
perlヒアドキュメント内のsqlコメントは「-- 〜」でなく「/* 〜 */」で - end0tknr's kipple - web写経開発
sub get_hoge { my ($self) = @_; my $sql =<<EOF; SELECT * FROM test_table WHERE (col,co2) IN -- 複数のカラムを指定 (SELECT subcol1,subcol2 -- 副問いの戻り値も複数のカラムを指定 FROM subtable WHERE id > 10 ) EOF my $sth = $self->dbh->prepare($sql); unless($sth->execute()){ $self->error( $sth->errstr); return undef; } return $sth->fetchrow_hashref(); } のようにヒアドキュメント「EOF; 〜 EOF」内で、sqlのコメントアウトを「-- 〜」で書くと、prepare()時にエラーになります。 sub
Perl-DBI/SELECT - yanor.net/wiki
SELECT $sth = $dbh->prepare('SELECT id, name, age FROM t1 WHERE age > ?'); $sth->execute(15); while ($row = $sth->fetchrow_hashref()){ print $row->{id},"\n"; print $row->{name},"\n"; } die $sth->errstr if $sth->err; fetchrow_xxx()が途中でエラーを起こした場合、返値がundefなためwhile()ループを抜ける。 全行走査できたのかエラーだったのか調べるためには、 $sth->errを使うか、 RaiseErrorで例外をキャッチする。 selectxxx_xxx系 （prepare()を経ずに）SQLを直接実行する。 1行を取得 $row = $dbh->sele
DBD::Oracle に激遅のコードが混在している件について
えーっと、ここ数日やっている DBIx::Class 関連なんですが、DBIx::Class::Schema::Loader::Oracle を作ってみたものの、Oracle の場合、なぜか _load_relationships が異常に遅いんですよ。でかなり深追いしてみました。 DBIx::Class::Schema::Loader::Base->_load_relationships あたりが遅いのでメソッドコールを深追い ↓ DBIx::Class::Storage::DBI->columns_info_for の $dbh->column_info そのものが遅いことを突き止める。 eval { my $sth = $dbh->column_info( undef, undef, $table, '%' ); $sth->execute(); while ( my $info =
SQL::Abstract - Perlのデータ構造からSQL文を生成する - perldoc.jp
名前¶ SQL::Abstract - Perlのデータ構造からSQL文を生成する 概要¶ use SQL::Abstract; my $sql = SQL::Abstract->new; my($stmt, @bind) = $sql->select($table, \@fields, \%where, \@order); my($stmt, @bind) = $sql->insert($table, \%fieldvals || \@values); my($stmt, @bind) = $sql->update($table, \%fieldvals, \%where); my($stmt, @bind) = $sql->delete($table, \%where); # それから、これらをDBIステートメントで使う my $sth = $dbh->prepare($stmt);
第36回 SQL::Abstract：簡単なSQLはより簡単に | gihyo.jp
DBIの泣き所 いわゆるLAMPないしそれに似た環境でウェブサービスばかり書いている方にはあまり実感がないかもしれませんが、あちらの現場ではOracleを、こちらの現場ではMicrosoft SQL Serverを、はたまた別の現場では組み込みのSQLiteを、といった受託系の仕事をしている人にとって、SQLの方言問題は避けては通れないもののひとつです。 典型的なところでは、たとえばSELECTで取得するデータの件数を制限したい場合、PostgreSQLなどでは「LIMIT ... OFFSET ...」のように書きますが、OracleではROWNUMを使いますし、MS SQL serverならSET ROWCOUNTやTOPを使います。また、いまでこそPostgreSQLとの互換性を確保するため「LIMIT ... OFFSET ...」と書けるようになっているMySQLにしたところで、
Oracle SELECT結果の出力形式を変換する。 - Qiita
概要 SELECT文で取得した結果を、HTML/XML/EXCEL/CSV/Markdownの形式で出力する方法を記載する。 環境 DBサーバ OS : Red Hat Enterprise Linux Server 6.4 Oracle : Database 11g Enterprise Edition Release 11.2.0.4.0 -64bit クライアント OS : OS X Yosemite 10.10.3 Oracle : Instant Client for Mac OS X (Intel x86) Client Shared Library 11.2.0.4.0 - 64-bit 内容 1.HTML形式 コマンド cat << EOF | sqlplus -S -M 'HTML ON' sys/<password>@<接続Netサービス名> as sysdba > o
SQL::Makerで動的に SQLを生成する - Articles Advent Calendar 2010 Hacker
どうもこんにちは。hacker track がやる気なさすぎるのでもう一回かくよ!というわけで tokuhirom ですこんにちは。こんにちは。 さて、最近つくった SQL::Maker というモジュールについて紹介します。SQL::Maker は、要は SQL::Abstract みたいなやつです。じゃあなんで SQL::Abstract じゃなくて SQL::Maker なの？ってことになるわけですが、 SQL::Abstract は実績があるし、非常に便利なんですが、いかんせんコードがまじよみづらいっていうかこれよむの無理じゃね!!ってことをおもうので、あたらしくつくったという次第。 また、SQL::Maker は method chain で SELECT 文を構築する機能もついてます。あらべんり。こんなかんじ↓↓ my $sql = SQL::Maker::Select−>new
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
What does 'SELECT COUNT(*)' with Perl DBI return?
該当するレコードの数を取得するには
Sqlite DBI $sth->rows
IBM Documentation
[Perl][DBI]selectとfetch - Qiita
How do you get Perl::DBI to do a desc table_name?