myfinder

my $schema = MyAPP::Schema->connect(
	'dbi:mysql:myapp_devel;host=localhost;',
	'root',
	'',
	{
		AutoCommit => 1,
		RaiseError => 1,
		PrintError => 1,
		RootClass  => 'DBIx::Encoding',
		encoding   => 'cp932',

myfinder

152    # product_idに対応する商品情報を取得
153    my $sth_item = $dbh_slave->prepare(<<"SQL");
154 select
155    d.picture_name,
156    i.item_color,
157    i.item_size
158 from
159    m_product p,
160    m_item i,
161    item_image_data d

myfinder

test

myfinder

TTでURLに埋め込む文字列をエンコードするときは「url」じゃなくて「uri」を使う

myfinder

use strict;
use warnings;

use Imager;
use Imager::QRCode qw(plot_qrcode);
use Encode;

my $img = plot_qrcode('http://mbkr.jp/_kw_l?i=155923');
$img->write(file => "qrcode.gif");