p175〜 相関副問い合わせ。 SELECT p.ProductName, s1.Quantity, s1.saledate FROM Sales AS s1 JOIN Products AS p ON p.ProductID = s1.ProductID WHERE s1.Quantity > ( SELECT AVG(s2.Quantity) FROM Sales AS s2 WHERE s2.ProductID = s1.ProductID ) ;…

DBは SQL書き方ドリル のサンプルです。 そこから DBIx::Class::Schema::Loader をつかって schema dump して relation とか書きました。 毎日ちょっとずつやっていこうかと思っております。 Util dumpするやつ。 sub p { my ($rs) = @_; my @rows = $rs->is…