so what?: 【Perl】DBIx::classモジュールでのトランザクション処理
へぇ・・・こんな便利なものがあったんだ、という事で忘れないうちにメモしなきゃ！ ＤＢなんかにデータを保存する時、予期せぬエラーが発生して、 うへぇー・・・まいったね・・・これ、処理する前に戻せんもんか？ん？とか、 という時に使うのがトランザクション処理。 問題が発生したら「なかった事」にできるようです。 IT用語辞典によるトランザクション の説明。 「関連する複数の処理を一つの処理単位としてまとめたもの。 金融機関のコンピュータシステムにおける入出金処理のように、 一連の作業を全体として一つの処理として管理するために用いる。」 ふむふむ。 使い方は至ってシンプル。Cookbookにも掲載されております。 use strict; use warnings; my $rs; my $genus = $schema->resultset('Genus')->find(12); my $coder
PerlのDBIx::ClassでSQLのLIKE条件のESCAPE文字を指定する方法を教えて下さい。 - PerlのDBIx::Cla... - Yahoo!知恵袋
PerlのDBIx::ClassでSQLのLIKE条件のESCAPE文字を指定する方法を教えて下さい。 PerlのDBIx::ClassでSQLのLIKE条件のESCAPE文字を指定する方法を教えて下さい。 PerlのDBIx::Classを使って、SQLiteのデータベースにアクセスしています。 データベースから、メールアドレスを部分一致で検索したいので、 $schema->resultset('list')->search({ address => { like => "%aiu_eo@example.com } }) のような感じにしているのですが、メールアドレス中に普通に含まれている アンダースコア“_”の文字が、SQLのLIKE条件の任意の一文字を表す“_”と 重複してしまっているので、うまく検索できません。 SQLを直で使う場合は、 LIKE 条件 ESCAPE 'エスケープ文
O/Rマッパ DBIx::Class - end0tknr's kipple - web写経開発
2014/12/20 追記 DBIx::Classのselect等のリファレンスは、次のurlが分かりやすいです http://yanor.net/wiki/?Perl-DBIC O/Rマッパとは、Object-Relational マッパの略称のようですが、今回はperl用orマッパの一つであるDBIx::Classを試してみます。 perl用のorマッパには、Class::DBI もありますが、DBIx::Classは、Class::DBIをインスパイアして作成されたそうです。 また、Class::DBI を CDBI、 DBIx::Class を DBIC と略すそうです。 WEB+DB PRESS Vol.36 の Recent Perl World に記事が記載されていたので、記事に沿って、CLI (コマンドラインインタフェース) の bookmark アプリを作ります。 と書き
Yacafiをつかって掲示板をこしらえてみた - あたらしものずきっ！
Yacafiを使って掲示板をこしらえてみました。そこらへんにあるレンタル掲示板より正直低性能ですが、あくまで学習用途なので。 do_*から処理を行い、&_template_param_buildにてそれぞれのテンプレート差し込み用変数をまとめてハッシュとして、templateに流してます。 perl自体の高度な機能について見識がないので、ある程度の基礎的な知識を身につけていれば多分読むのに苦労しない程度の代物です。以下をもちあわせていれば、初学者でも普通に弄れる、と思います。 import サブルーチン FileのIO操作 ハッシュ MENTA::Template…というかMojo::Templateの使い方 Yacafi.pmのソースをかじる勇気 #!/usr/local/bin/perl use strict; use warnings; use Yacafi extends => {
update_or_create method of DBIx::Class::ResultSet « ku
DBIx::ClassでMySQLのREPLACEもしくは ON DUPLICATE KEY UPDATE に当たるものはなんなのか、前もわからなくていろいろ調べたのにまた今日も同じことを調べてたのでメモっとく。 my $recent = $self->{schema}->resultset('Recents')->update_or_create( { id => $self->{user}->id, .... } ); こう書く。一度newしてから my $recent = $self->{schema}->resultset('Recents')->new( { id => $self->{user}->id, uniq_column => $self->{user}->accountname, .... } ); $recent->update_or_create; っていうのはで
Data::Page - help when paging through sets of results - metacpan.org
NAME Data::Page - help when paging through sets of results SYNOPSIS use Data::Page; my $page = Data::Page->new(); $page->total_entries($total_entries); $page->entries_per_page($entries_per_page); $page->current_page($current_page); print " First page: ", $page->first_page, "\n"; print " Last page: ", $page->last_page, "\n"; print "First entry on page: ", $page->first, "\n"; print " Last entry on p
wakaponさんの☆よく☆ある☆ふつーの☆備忘帳☆: perl GD サムネイル画像作成 アスペクト比 維持
元画像のアスペクト比をサムネイル画像に適用すると、比較的見るに耐えるサムネイル画像ができる。身近な例としては、ワードに貼り付けるスクリーンショット画像の高さと横の長さを70%,70%などとすると、さほど劣化せずにすむ。 以下、アスペクト比を維持しながらサムネイル画像を作成するコード。 use GD; my $src_file = "hoge.png"; # 元画像 my $thumb_file = "hoge.gif"; # サムネイル画像 my $thumb_size = 120; # サムネイルサイズ my $src = GD::Image->new($src_file); my ($width, $height) = $src->getBounds; # 元画像の高さと横幅 my ($thumb_width, $thumb_height) = ($width, $height); u
Perl Tips | Perl で、画像のサムネイルを作成してブラウザから表示させる方法
以下のサンプルファイルを image.cgi と名前を付けて保存、アクセス権を chmod +x image.cgi とかして ブラウザから https://yourname.com/image.cgi とかにアクセスすればよい。 注意点としては、このスクリプトは画像しか表示できないことである。これと一緒に HTML ファイルを表示しようと思っても、 HTTP プロトコルの仕様上不可能 である。なぜかというと HTTP プロトコルを通して画像を表示する場合は、すでにこのスクリプトが HTTP ヘッダとして Content-type: image/jpeg を最初に出力してブラウザが受け取っているからで、このスクリプトの中で同時に（画像を表示した後に） HTML 文書を表示させようとて Content-type: text/html を出力（print "Content-type: text
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
cyberlib.enterbrainz.com
「ドワンゴは昔から生放送好き」 ニコニコ生放送開発者・杉谷氏の野望