IT研究所 – ページ 18 – Just another 靱技術士事務所 site

PlayFramework2.1でセッションタイムアウトを作ってみた

投稿者: utsubo 投稿日: 2013-08-02 in PlayFramework

PlayFrameworkのセッションはCookieになります。ブラウザを閉じるまで有効なので、従来のservletなどで実現してきたsessionの観念はありません。

これが意外と困ってしまうので（タイムアウトした際にログアウトさせるなど）Cookieに時間を持たせることによりにたようなものを実装してみました

routes

GET		 /													 controllers.Application.index
GET		 /login													controllers.Application.login
POST		/login													controllers.Application.submit

GET / controllers.Application.index

GET /login controllers.Application.login

POST /login controllers.Application.submit

controllers.Application.scala

package controllers

import play.api._
import play.api.mvc._
import helper.Session
import helper.Login
import play.api.data._
import play.api.data.Forms._
import play.api.data.validation.Constraints._
	
case class User(id:String,password:String)
	
object Application extends Controller {
	val userForm = Form[User](
			mapping(
					"id" ->nonEmptyText,
					"password"->text(minLength=6))
			((id,password)=>User(id,password))((user:User)=>Some(user.id,user.password))
	)
	
	def index = Action {request=>{
			if(Session.check(request))Ok(views.html.index("LoginOK"))
			else Redirect(routes.Application.login)
		}	 
	}
	def login=Action{
		Ok(views.html.login(userForm))
	}
	def submit = Action { implicit request =>
		userForm.bindFromRequest.fold(
			errors => BadRequest(views.html.login(errors)),
			user => {
				if(Login.check(request,user.id,user.password))Redirect(routes.Application.index).withSession(Session.set(request))
				else BadRequest(views.html.login(userForm))
			}
		) 
	}
}

package controllers

import play.api._

import play.api.mvc._

import helper.Session

import helper.Login

import play.api.data._

import play.api.data.Forms._

import play.api.data.validation.Constraints._

case class User(id:String,password:String)

object Application extends Controller {

val userForm = Form[User](

mapping(

"id" ->nonEmptyText,

"password"->text(minLength=6))

((id,password)=>User(id,password))((user:User)=>Some(user.id,user.password))

)

def index = Action {request=>{

if(Session.check(request))Ok(views.html.index("LoginOK"))

else Redirect(routes.Application.login)

}

def login=Action{

Ok(views.html.login(userForm))

}

def submit = Action { implicit request =>

userForm.bindFromRequest.fold(

errors => BadRequest(views.html.login(errors)),

user => {

if(Login.check(request,user.id,user.password))Redirect(routes.Application.index).withSession(Session.set(request))

else BadRequest(views.html.login(userForm))

}

)

}

helper.Login.scala

本来ならばログインIDとパスワードとつきあわせてチェックするのですがとりあえず必ずOKになるように

package helper

import play.api._
import play.api.mvc._
object Login {

	def check(req:Request[AnyContent],id:String,password:String):Boolean={
		true // NO check
	}
}

package helper

import play.api._

import play.api.mvc._

object Login {

def check(req:Request[AnyContent],id:String,password:String):Boolean={

true // NO check

}

helper.Session.scala

クッキーに保存した時刻と現在時刻を比較し、ログアウトの判定

package helper

import play.api._
import play.api.mvc._
object Session {
	val MAX_MILLISEC:Long=1000*60	// time out 
	val SESSION_KEY="play2"
	
	def check(req:Request[AnyContent]):Boolean={
		req.session.get(SESSION_KEY).map{
			user=>{ 
				val cookieDate=user.toLong
				val nowDate=new java.util.Date().getTime();
				if(nowDate-cookieDate<MAX_MILLISEC) true
				else false
			}
		}.getOrElse{
			false
		}
	}
// クッキーに現在時刻をセット
	def set(req:Request[AnyContent])={
		req.session + (SESSION_KEY->new java.util.Date().getTime().toString())
	}
// ログアウトボタンを押したらこれを呼ぶ、未実装
	def del(req:Request[AnyContent])={
		req.session - SESSION_KEY
	}
}

package helper

import play.api._

import play.api.mvc._

object Session {

val MAX_MILLISEC:Long=1000*60 // time out

val SESSION_KEY="play2"

def check(req:Request[AnyContent]):Boolean={

req.session.get(SESSION_KEY).map{

user=>{

val cookieDate=user.toLong

val nowDate=new java.util.Date().getTime();

if(nowDate-cookieDate<MAX_MILLISEC) true

else false

}

}.getOrElse{

false

}

// クッキーに現在時刻をセット

def set(req:Request[AnyContent])={

req.session + (SESSION_KEY->new java.util.Date().getTime().toString())

}

// ログアウトボタンを押したらこれを呼ぶ、未実装

def del(req:Request[AnyContent])={

req.session - SESSION_KEY

}

views.index.scala.html

@(message: String)
@message

1 2	@(message: String) @message

views.login.scala.html

@(userForm:Form[User])

@import helper._

@helper.form(action=routes.Application.submit){
						@inputText(
								userForm("id"), 
								'_label -> "Username", 
								'_help -> "Please choose a valid username.",
								'_error -> userForm.globalError
						)
						
						
						@inputPassword(
								userForm("password"), 
								'_label -> "Password",
								'_help -> "A password must be at least 6 characters. "
						)
						

<input type="submit">

}

@(userForm:Form[User])

@import helper._

@helper.form(action=routes.Application.submit){

@inputText(

userForm("id"),

'_label -> "Username",

'_help -> "Please choose a valid username.",

'_error -> userForm.globalError

)

@inputPassword(

userForm("password"),

'_label -> "Password",

'_help -> "A password must be at least 6 characters. "

)

}

ログイン後１分放置するとログイン画面に戻ります

Slick+PlayFramework2.1でDBアクセスしjsonで出力

投稿者: utsubo 投稿日: 2013-07-31 in PlayFramework

実際の業務では、サンプルなどでよく見かける、データの作成、更新、参照、削除という流れは実際ではあまりなく、既にあるデータを参照するだけとか祖いうのが多いかと思います。

前回までで、既存データベースに入っているデータを取得することができたので、JSON形式で出力してみます。

GSON

sjsonやPlay標準のJSONなど何種類かあるようですが、ちょっと試したところうまくいかなかったので、GSONを使用することにしました。

あらかじめGSONをダウンロードしておきeclipseのパスに追加しておきます。

http://code.google.com/p/google-gson/

mysql

use data
;
create table price(
code varchar(10) not null,
date datetime not null,
open int ,
high int,
low int,
close int
)
;
create unique index price1 on price(code,date)
;

use data

;

create table price(

code varchar(10) not null,

date datetime not null,

open int ,

high int,

low int,

close int

)

;

create unique index price1 on price(code,date)

;

application.conf

db.default.driver=com.mysql.jdbc.Driver
db.default.url="jdbc:mysql://localhost/data"
db.default.user=root
db.default.password=
slick.default="models.*"
evolutionplugin=disabled

db.default.driver=com.mysql.jdbc.Driver

db.default.url="jdbc:mysql://localhost/data"

db.default.user=root

db.default.password=

slick.default="models.*"

evolutionplugin=disabled

routes

GET /data/price/:code	controllers.Data.OHLC(code:String)

1	GET /data/price/:code controllers.Data.OHLC(code:String)

controllers.Data.scala

package controllers
import play.api._
import play.api.mvc._
import models._
import com.google.gson._

object Data extends Controller {
	val gson:Gson=new GsonBuilder().setDateFormat("yyyy-MM-dd").create // 日付のフォーマットをしておく
	def OHLC(code:String)=Action {
		Ok(views.html.json(gson.toJson(Prices.select(code))))
	}
}

package controllers

import play.api._

import play.api.mvc._

import models._

import com.google.gson._

object Data extends Controller {

val gson:Gson=new GsonBuilder().setDateFormat("yyyy-MM-dd").create // 日付のフォーマットをしておく

def OHLC(code:String)=Action {

Ok(views.html.json(gson.toJson(Prices.select(code))))

}

models.Price.scala

package models
import scala.slick.driver.H2Driver.simple._
import Database.threadLocalSession

import play.api.db._
import play.api.Play._

import scala.slick.jdbc.{GetResult, StaticQuery => Q}
import Q.interpolation

case class Price(code:String,date:java.sql.Date,open:Int,high:Int,low:Int,close:Int) extends Ordered[Price]{
	def compare(that:Price):Int={
		date.getTime().compare(that.date.getTime())
	}
}

object Prices extends Table[Price]("price") {
	val DATE_TERM=180 // 180日分とる
	
	def code=column[String]("code",O.PrimaryKey)
	def date=column[java.sql.Date]("date",O.PrimaryKey)
	def open=column[Int]("open")
	def high=column[Int]("high")
	def low=column[Int]("low")
	def close=column[Int]("close")
	def * = code ~ date ~ open ~ high ~ low ~ close <> (Price,Price.unapply _)

	implicit val getPrice=GetResult(rs=>Price(rs<<,rs<<,rs<<,rs<<,rs<<,rs<<))
	
	def select(code:String)= connectDB{
		val list=sql"select * from price where code=$code order by date desc limit $DATE_TERM".as[PriceHistAdj].list.sorted
		// sort 逆順なので並べ替える、GSON用にArrayList化
		val ary=new java.util.ArrayList[Price]
		for(l<-list)ary.add(l)
		ary
	}
	def connectDB[Any](f: => Any): Any = {
		Database.forDataSource(DB.getDataSource("data")) withSession {
			f
		}
	}
}

package models

import scala.slick.driver.H2Driver.simple._

import Database.threadLocalSession

import play.api.db._

import play.api.Play._

import scala.slick.jdbc.{GetResult, StaticQuery => Q}

import Q.interpolation

case class Price(code:String,date:java.sql.Date,open:Int,high:Int,low:Int,close:Int) extends Ordered[Price]{

def compare(that:Price):Int={

date.getTime().compare(that.date.getTime())

}

object Prices extends Table[Price]("price") {

val DATE_TERM=180 // 180日分とる

def code=column[String]("code",O.PrimaryKey)

def date=column[java.sql.Date]("date",O.PrimaryKey)

def open=column[Int]("open")

def high=column[Int]("high")

def low=column[Int]("low")

def close=column[Int]("close")

def * = code ~ date ~ open ~ high ~ low ~ close <> (Price,Price.unapply _)

implicit val getPrice=GetResult(rs=>Price(rs<<,rs<<,rs<<,rs<<,rs<<,rs<<))

def select(code:String)= connectDB{

val list=sql"select * from price where code=$code order by date desc limit $DATE_TERM".as[PriceHistAdj].list.sorted

// sort 逆順なので並べ替える、GSON用にArrayList化

val ary=new java.util.ArrayList[Price]

for(l<-list)ary.add(l)

ary

}

def connectDB[Any](f: => Any): Any = {

Database.forDataSource(DB.getDataSource("data")) withSession {

}

views.json.scala.html

jsonp用

@(json:String)
callback(@json);

1 2	@(json:String) callback(@json);

Slick+PlayFramework2.1でDBアクセス＃２

投稿者: utsubo 投稿日: 2013-07-30 in PlayFramework

既存のデータベースにアクセスしてみます。

DBのコネクションをPlayFrameworkから与えることでモデル側でコネクションを作成しません

MySQL

create table OHLC(
code varchar(10) not null,
date datetime not null,
open int null,
high int null,
low int null,
close int null,
unique key OHLC1(code,date) 
)

create table OHLC(

code varchar(10) not null,

date datetime not null,

open int null,

high int null,

low int null,

close int null,

unique key OHLC1(code,date)

)

application.conf

db.default.driver=org.gjt.mm.mysql.Driver
db.default.url="jdbc:mysql://localhost/live?useOldAliasMetadataBehavior=true" 
db.default.user=root
db.default.password="" 
slick.default="models.*"
evolutionplugin=disabled

db.default.driver=org.gjt.mm.mysql.Driver

db.default.url="jdbc:mysql://localhost/live?useOldAliasMetadataBehavior=true"

db.default.user=root

db.default.password=""

slick.default="models.*"

evolutionplugin=disabled

routes

GET /:code controllers.Application.price(code:String)

1	GET /:code controllers.Application.price(code:String)

controllers.Application.scala

package controllers

import play.api._
import play.api.mvc._
import play.api.data._
import play.api.data.Forms._
import models._

object Application extends Controller {
	def price(code:String) = Action{
		Ok(views.html.index(Price.select(code)))
	}
}

package controllers

import play.api._

import play.api.mvc._

import play.api.data._

import play.api.data.Forms._

import models._

object Application extends Controller {

def price(code:String) = Action{

Ok(views.html.index(Price.select(code)))

}

models.Price.scala

package models
import scala.slick.driver.H2Driver.simple._
import Database.threadLocalSession

import play.api.db._
import play.api.Play._

import scala.slick.jdbc.{GetResult, StaticQuery => Q}
import Q.interpolation


case class Price(code:String,date:java.sql.Date,open:Int,high:Int,low:Int,close:Int)

object Prices extends Table[Price]("OHLC"){
	def scode=column[String]("code",O.PrimaryKey)
	def date=column[java.sql.Date]("date",O.PrimaryKey)
	def open=column[Int]("open")
	def high=column[Int]("high")
	def low=column[Int]("low")
	def close=column[Int]("close")

	def * = code ~ date ~ open ~ high ~ low ~ close <> (Price,Price.unapply _)

	implicit val getPrice=GetResult(rs=>Price(rs.nextString,rs.nextDate,rs.nextInt,rs.nextInt,rs.nextInt,rs.nextInt))
	
	def price(code:String):List[Price]= connectDB{
		sql"select * from OHLC where code=$code".as[Price].list
	}
	
	def connectDB[Any](f: => Any): Any = {
		Database.forDataSource(DB.getDataSource("default")) withSession {
			f
		}
	}
}

package models

import scala.slick.driver.H2Driver.simple._

import Database.threadLocalSession

import play.api.db._

import play.api.Play._

import scala.slick.jdbc.{GetResult, StaticQuery => Q}

import Q.interpolation

case class Price(code:String,date:java.sql.Date,open:Int,high:Int,low:Int,close:Int)

object Prices extends Table[Price]("OHLC"){

def scode=column[String]("code",O.PrimaryKey)

def date=column[java.sql.Date]("date",O.PrimaryKey)

def open=column[Int]("open")

def high=column[Int]("high")

def low=column[Int]("low")

def close=column[Int]("close")

def * = code ~ date ~ open ~ high ~ low ~ close <> (Price,Price.unapply _)

implicit val getPrice=GetResult(rs=>Price(rs.nextString,rs.nextDate,rs.nextInt,rs.nextInt,rs.nextInt,rs.nextInt))

def price(code:String):List[Price]= connectDB{

sql"select * from OHLC where code=$code".as[Price].list

}

def connectDB[Any](f: => Any): Any = {

Database.forDataSource(DB.getDataSource("default")) withSession {

}

views.index.scala.html

@(prices: List[Price])
				@prices.map { price =>
						@price.code,
						@price.date
						@price.open<BR>
				}

@(prices: List[Price])

@prices.map { price =>

@price.code,

@price.date

@price.open<BR>

}

Slick+PlayFramework2でデータベースアクセス

投稿者: utsubo 投稿日: 2013-07-29 in PlayFramework

ScalaでPlayFrameworkを使う場合にDBアクセスにはanormとslickがあるようです。

slickはscalaQueryと呼ばれていたものが進化した模様。

scala2.9まではscalaQuery,それ以降はslickらしいです

http://d.hatena.ne.jp/tototoshi/20121204/1354615421

Build.scalaに必要なモジュールを書いてインストールするのが一般的らしいですが、うまくいかなかったので手動インストールで作成してみます。

slick

https://github.com/freekh/play-slick

からZIPでダウンロードし解凍

 $ cd slick-1.0.1
 $ sbt
 > compile
 > package
 $ find .|grep jar
	./slick-testkit/target/scala-2.10/slick-testkit_2.10-1.0.1.jar
	./target/root/scala-2.10/root_2.10-1.0.1.jar
	./target/scala-2.10/slick_2.10-1.0.1.jar

$ cd slick-1.0.1

$ sbt

> compile

> package

$ find .|grep jar

./slick-testkit/target/scala-2.10/slick-testkit_2.10-1.0.1.jar

./target/root/scala-2.10/root_2.10-1.0.1.jar

./target/scala-2.10/slick_2.10-1.0.1.jar

play-slick

プラグインなのでこちらも入れます

https://github.com/freekh/play-slick

 $ cd play-slick-master
 $ sbt
 > compile
 > package
 $ find .|grep jar
 ./target/scala-2.10/play-slick_2.10-0.3.3-SNAPSHOT.jar

$ cd play-slick-master

$ sbt

> compile

> package

$ find .|grep jar

./target/scala-2.10/play-slick_2.10-0.3.3-SNAPSHOT.jar

プロジェクト作成

$ play new sample
			 _						_
 _ __ | | __ _ _	_| |
| '_ \| |/ _' | || |_|
|	__/|_|\____|\__ (_)
|_|						|__/

play! 2.1.2 (using Java 1.7.0_25 and Scala 2.10.0), http://www.playframework.org

The new application will be created in /Users/admin/Documents/workspace/play_sample/sample

What is the application name? [sample]
> sample

Which template do you want to use for this new application? 

	1						 - Create a simple Scala application
	2						 - Create a simple Java application

> 1
OK, application sample is created.

Have fun!

$ cd sample
$ play eclipse
$ mkdir lib
$ cp slick-1.0.1/target/scala-2.10/slick_2.10-1.0.1.jar .
$ cp play-slick-master/target/scala-2.10/play-slick_2.10-0.3.3-SNAPSHOT.jar .

$ play new sample

_ _

_ __ | | __ _ _ _| |

| '_ \| |/ _' | || |_|

| __/|_|\____|\__ (_)

|_| |__/

play! 2.1.2 (using Java 1.7.0_25 and Scala 2.10.0), http://www.playframework.org

The new application will be created in /Users/admin/Documents/workspace/play_sample/sample

What is the application name? [sample]

> sample

Which template do you want to use for this new application?

1 - Create a simple Scala application

2 - Create a simple Java application

> 1

OK, application sample is created.

Have fun!

$ cd sample

$ play eclipse

$ mkdir lib

$ cp slick-1.0.1/target/scala-2.10/slick_2.10-1.0.1.jar .

$ cp play-slick-master/target/scala-2.10/play-slick_2.10-0.3.3-SNAPSHOT.jar .

Eclipse

eclipseの既存プロジェクトの読み込みで読み込む
プロジェクトのプロパティからslick_2.10-1.0.1.jar、play-slick_2.10-0.3.3-SNAPSHOT.jarのライブラリを追加

PlayFramework

http://takashima0411.hatenablog.com/entry/2012/11/28/231817

こちらの方のサンプルをそのままいただきました

Application.scala

package controllers

import play.api._
import play.api.mvc._

import play.api.data._
import play.api.data.Forms._

import models._

object Application extends Controller {

	val taskForm = Form(
		"label" -> nonEmptyText)

	def index = Action {
		Redirect(routes.Application.tasks)
	}

	def tasks = Action {
		Ok(views.html.index(Tasks.all(), taskForm))
	}

	def newTask = Action { implicit request =>
		taskForm.bindFromRequest.fold(
			errors => BadRequest(views.html.index(Tasks.all(), errors)),
			label => {
				Tasks.create(label)
				Redirect(routes.Application.tasks)
			})
	}

	def deleteTask(id: Long) = Action {
		Tasks.delete(id)
		Redirect(routes.Application.tasks)
	}

}

package controllers

import play.api._

import play.api.mvc._

import play.api.data._

import play.api.data.Forms._

import models._

object Application extends Controller {

val taskForm = Form(

"label" -> nonEmptyText)

def index = Action {

Redirect(routes.Application.tasks)

}

def tasks = Action {

Ok(views.html.index(Tasks.all(), taskForm))

}

def newTask = Action { implicit request =>

taskForm.bindFromRequest.fold(

errors => BadRequest(views.html.index(Tasks.all(), errors)),

label => {

Tasks.create(label)

Redirect(routes.Application.tasks)

})

}

def deleteTask(id: Long) = Action {

Tasks.delete(id)

Redirect(routes.Application.tasks)

}

Task.scala

package models

import scala.slick.driver.H2Driver.simple._
import Database.threadLocalSession

case class Task(id: Long, label: String)

object Tasks extends Table[Task]("TASK") {

	def id = column[Long]("ID", O.PrimaryKey, O.AutoInc)
	def label = column[String]("LABEL", O.NotNull)
	def * = id ~ label <> (Task, Task.unapply _)
	def ins = label returning id

	def all(): List[Task] = connectDB {
		Query(Tasks).sortBy(_.id).list
	}

	def create(label: String) = connectDB {
		Tasks.ins.insert(label)
	}

	def delete(id: Long) = connectDB {
		Tasks.where(_.id === id).delete
	}

	def connectDB[Any](f: => Any): Any = {
		Database.forURL("jdbc:h2:mem:play", driver = "org.h2.Driver") withSession {
			f
		}
	}

}

package models

import scala.slick.driver.H2Driver.simple._

import Database.threadLocalSession

case class Task(id: Long, label: String)

object Tasks extends Table[Task]("TASK") {

def id = column[Long]("ID", O.PrimaryKey, O.AutoInc)

def label = column[String]("LABEL", O.NotNull)

def * = id ~ label <> (Task, Task.unapply _)

def ins = label returning id

def all(): List[Task] = connectDB {

Query(Tasks).sortBy(_.id).list

}

def create(label: String) = connectDB {

Tasks.ins.insert(label)

}

def delete(id: Long) = connectDB {

Tasks.where(_.id === id).delete

}

def connectDB[Any](f: => Any): Any = {

Database.forURL("jdbc:h2:mem:play", driver = "org.h2.Driver") withSession {

}

Global.scala

import play.api._
import models._
import scala.slick.driver.H2Driver.simple._
import Database.threadLocalSession

import models._
import java.sql.{Date,Time,Timestamp}

object Global extends GlobalSettings {

	override def onStart(app: Application) {
		Logger.info("Application has started")

		Database.forURL("jdbc:h2:mem:play", driver = "org.h2.Driver") withSession {

			Tasks.ddl.create

		}

	}

	override def onStop(app: Application) {
		Logger.info("Application shutdown...")
	}

}

import play.api._

import models._

import scala.slick.driver.H2Driver.simple._

import Database.threadLocalSession

import models._

import java.sql.{Date,Time,Timestamp}

object Global extends GlobalSettings {

override def onStart(app: Application) {

Logger.info("Application has started")

Database.forURL("jdbc:h2:mem:play", driver = "org.h2.Driver") withSession {

Tasks.ddl.create

}

override def onStop(app: Application) {

Logger.info("Application shutdown...")

}

index.scala.html

@(tasks: List[Task], taskForm: Form[String])

@import helper._


		
		<h1>@tasks.size task(s)</h1>
		
		<ul>
				@tasks.map { task =>
						<li>
								@task.label
								
								@form(routes.Application.deleteTask(task.id)) {
										<input type="submit" value="Delete">
								}
						</li>
				}
		</ul>
		
		<h2>Add a new task</h2>
		
		@form(routes.Application.newTask) {
				
				@inputText(taskForm("label")) 
				
				<input type="submit" value="Create">
				
		}

@(tasks: List[Task], taskForm: Form[String])

@import helper._

<h1>@tasks.size task(s)</h1>

<ul>

@tasks.map { task =>

<li>

@task.label

@form(routes.Application.deleteTask(task.id)) {

}

</li>

}

</ul>

@form(routes.Application.newTask) {

@inputText(taskForm("label"))

}

routes

# Routes
# This file defines all application routes (Higher priority routes first)
# ~~~~

# Home page
GET		 /													 controllers.Application.index
GET		 /index											controllers.Application.index
GET		 /tasks											controllers.Application.tasks
GET		 /newTask										controllers.Application.newTask
GET		 /deleteTask/:id								 controllers.Application.deleteTask(id:Long)

# Map static resources from the /public folder to the /assets URL path
GET		 /assets/*file							 controllers.Assets.at(path="/public", file)

# Routes

# This file defines all application routes (Higher priority routes first)

# ~~~~

# Home page

GET / controllers.Application.index

GET /index controllers.Application.index

GET /tasks controllers.Application.tasks

GET /newTask controllers.Application.newTask

GET /deleteTask/:id controllers.Application.deleteTask(id:Long)

# Map static resources from the /public folder to the /assets URL path

GET /assets/*file controllers.Assets.at(path="/public", file)

application.conf

db.default.driver=org.h2.Driver
db.default.url="jdbc:h2:mem:play"


slick.default="models.*"

# Evolutions
# ~~~~~
# You can disable evolutions if needed
evolutionplugin=disabled

db.default.driver=org.h2.Driver

db.default.url="jdbc:h2:mem:play"

slick.default="models.*"

# Evolutions

# ~~~~~

# You can disable evolutions if needed

evolutionplugin=disabled

これでとりあえず動きます

Eclipse4.3 Kepler で逆コンパイル

投稿者: utsubo 投稿日: 2013-07-25 in java 1件のコメント

eclipseの逆コンパイルのjd-clipseですが、いつの頃からかデフォルトで動かなくなってしまいました。

以下の方法で動くようになりました

MacOS 10.8
Eclipse 4.3

Jd-clipseよりこちらが良さそうです

Mchr3k – JDEclipse-Realign

http://mchr3k.github.com/jdeclipse-realign/

1.EclipseについてーInstallation DetailsからJD-Eclipseをアンインストール

2.HelpーInstall New Softwareでhttp://mchr3k-eclipse.appspot.com/からインストール(Java Decomplier Eclipse PluginだけでＯＫ）

3.Eclipse環境設定ーGeneralーEditorsーFileAssociationsでclassとclass witiout sourceにClassFileEditorを追加しdefault にする

これでＯＫのはず

JavaScriptでコールバック関数に引数をとりAjaxでデータを取得してみる

投稿者: utsubo 投稿日: 2013-07-17 in jQuery、js

JavaScriptでコールバック関数の実装ですが、いろいろなところで書かれているのですがちょっとよくわからなかったので試してみました。

a.html

<html>
	<body>
		<script type="text/javascript">
			function my_func(callback){
				callback("d","e");
			}
			function my_callback(a,b){
				alert("a="+a+",b="+b);
			}
		</script>
		<button id="aaa" onclick="my_func(my_callback)">test</button>
	</body>
</html>

<html>

<body>

function my_func(callback){

callback("d","e");

}

function my_callback(a,b){

alert("a="+a+",b="+b);

}

</script>

</body>

</html>

これで

	a=d,b=c

a=d,b=c

と表示されます。

ここでjQueryを使ってAjaxでデータを取得してみます。

b.txt

test

test

これを用意しておきhttpで取得してみます

<html>
<head>
<script type="text/javascript" src="jquery1.4.2.min.js"></script>
<body>
<script type="text/javascript">
	function my_func(callback){
		$.ajax({
			url:"http://localhost/b.txt",
			dataType:"html",
			success:function(data){
				callback(data,"d");
			}
		})
	}
	function my_callback(a,b){
		alert("a="+a+",b="+b);
	}
</script>
<button id="aaa" onclick="my_func(my_callback)">test</button>
</body>
</html>

<html>

<head>

<body>

function my_func(callback){

$.ajax({

url:"http://localhost/b.txt",

dataType:"html",

success:function(data){

callback(data,"d");

}

})

}

function my_callback(a,b){

alert("a="+a+",b="+b);

}

</script>

</body>

</html>

a=test,b=d

1	a=test,b=d

うまくとれましたが、これでいいのかどうか。

統計ソフトRを使用して株価チャートを簡単に作成(4)

投稿者: utsubo 投稿日: 2013-07-01 in R

ようやくチャートが描ける準備が整ったので分析に入ります。

まずは自分で作成した計算式で作成した値をチャートに書いてみます

library(RFinanceYJ)
library(quantmod)
stockCode&lt;-&quot;6758.t&quot;
today&lt;-Sys.Date()
sinceDate&lt;-today-100 #100日分
stockData&lt;-quoteStockTsData(stockCode,since=sinceDate)
colnames(stockData)&lt;-c(&quot;Date&quot;,&quot;Open&quot;,&quot;High&quot;,&quot;Low&quot;,&quot;Close&quot;,&quot;Volume&quot;)
stockData.zoo&lt;-read.zoo(stockData)
candleChart(stockData.zoo,theme=&quot;white&quot;)
#とりあえず平均値をチャート領域に書いてみる
mydata&lt;-data.frame(Date=stockData$Date,Close=mean(stockData$Close))
mydata.zoo&lt;-read.zoo(mydata)
addTA(mydata.zoo,on=1,col=&quot;red&quot;)

library(RFinanceYJ)

library(quantmod)

stockCode<-"6758.t"

today<-Sys.Date()

sinceDate<-today-100 #100日分

stockData<-quoteStockTsData(stockCode,since=sinceDate)

colnames(stockData)<-c("Date","Open","High","Low","Close","Volume")

stockData.zoo<-read.zoo(stockData)

candleChart(stockData.zoo,theme="white")

#とりあえず平均値をチャート領域に書いてみる

mydata<-data.frame(Date=stockData$Date,Close=mean(stockData$Close))

mydata.zoo<-read.zoo(mydata)

addTA(mydata.zoo,on=1,col="red")

統計ソフトRを使用して株価チャートを簡単に作成(3)

投稿者: utsubo 投稿日: 2013-06-30 in R

データをとれるようになったのでチャートを書いてみる

library(quantmod)
library(RFinanceYJ)
stockCode&lt;-&quot;6758.t&quot;
today&lt;-Sys.Date()
dataTerm&lt;-100 # 100日分取得
sinceDate&lt;-today-dataTerm
colnames(stockData)&lt;-c(&quot;Date&quot;,&quot;Open&quot;,&quot;High&quot;,&quot;Low&quot;,&quot;Close&quot;,&quot;Volume&quot;)
stockData.zoo&lt;-read.zoo(stockData)
candleChart(stockData.zoo,theme=&quot;white&quot;)

library(quantmod)

library(RFinanceYJ)

stockCode<-"6758.t"

today<-Sys.Date()

dataTerm<-100 # 100日分取得

sinceDate<-today-dataTerm

colnames(stockData)<-c("Date","Open","High","Low","Close","Volume")

stockData.zoo<-read.zoo(stockData)

candleChart(stockData.zoo,theme="white")

ファイルにする場合はこちら

library(quantmod)
library(RFinanceYJ)
stockCode&lt;-&quot;6758.t&quot;
today&lt;-Sys.Date()
dataTerm&lt;-100 # 100日分取得
sinceDate&lt;-today-dataTerm
colnames(stockData)&lt;-c(&quot;Date&quot;,&quot;Open&quot;,&quot;High&quot;,&quot;Low&quot;,&quot;Close&quot;,&quot;Volume&quot;)
stockData.zoo&lt;-read.zoo(stockData)
pngDir&lt;-&quot;png/&quot;
fileName&lt;-paste(pngDir,stockCode,&quot;.png&quot;,sep=&quot;&quot;)
png(fileName,width=600,height=400)
candleChart(stockData.zoo,theme=&quot;white&quot;)
dev.off()

library(quantmod)

library(RFinanceYJ)

stockCode<-"6758.t"

today<-Sys.Date()

dataTerm<-100 # 100日分取得

sinceDate<-today-dataTerm

colnames(stockData)<-c("Date","Open","High","Low","Close","Volume")

stockData.zoo<-read.zoo(stockData)

pngDir<-"png/"

fileName<-paste(pngDir,stockCode,".png",sep="")

png(fileName,width=600,height=400)

candleChart(stockData.zoo,theme="white")

dev.off()

これをシェルでまわせば複数銘柄とれます

chart.R

stockCode&lt;-commandArgs()[5]
library(quantmod)
library(RFinanceYJ)
today&lt;-Sys.Date()
dataTerm&lt;-100 # 100日分取得
sinceDate&lt;-today-dataTerm
colnames(stockData)&lt;-c(&quot;Date&quot;,&quot;Open&quot;,&quot;High&quot;,&quot;Low&quot;,&quot;Close&quot;,&quot;Volume&quot;)
stockData.zoo&lt;-read.zoo(stockData)
pngDir&lt;-&quot;png/&quot;
fileName&lt;-paste(pngDir,stockCode,&quot;.png&quot;,sep=&quot;&quot;)
png(fileName,width=600,height=400)
candleChart(stockData.zoo,theme=&quot;white&quot;)
dev.off()

stockCode<-commandArgs()[5]

library(quantmod)

library(RFinanceYJ)

today<-Sys.Date()

dataTerm<-100 # 100日分取得

sinceDate<-today-dataTerm

colnames(stockData)<-c("Date","Open","High","Low","Close","Volume")

stockData.zoo<-read.zoo(stockData)

pngDir<-"png/"

fileName<-paste(pngDir,stockCode,".png",sep="")

png(fileName,width=600,height=400)

candleChart(stockData.zoo,theme="white")

dev.off()

chart.sh

#!/bin/sh
codes="
6758
9501
9433
"
for code in $codes;do
R --vanilla --slave --args ${code}.t &lt;	chart.R
done

#!/bin/sh

codes="

6758

9501

9433

for code in $codes;do

R --vanilla --slave --args ${code}.t < chart.R

done

PlayFramework2.1で既存のMySQLにつないでみる

投稿者: utsubo 投稿日: 2013-06-25 in PlayFramework

ちょっと悩んだのでメモ

PlayFrameworkで既存のMySQLにつなぐためには

テーブルはこれ

use sampled
;
create table sample(
id integer,
name varchar(32)
)
;
create unique index idx_sampleTable on sampleTable(id)
;

use sampled

;

create table sample(

id integer,

name varchar(32)

)

;

create unique index idx_sampleTable on sampleTable(id)

;

まずモデル

package models;

import javax.persistence.Column;
import javax.persistence.Entity;
import javax.persistence.Id;
import javax.persistence.Table;

import play.db.ebean.model;

@Entity
@Table(name="sample")
public class Sample extends Model
{
	@Column(name="id")
	@Id
	public integer id;

	@Column(name="name")
	public String name;

	public String toString(){
		return id+","+name;
	}
}

package models;

import javax.persistence.Column;

import javax.persistence.Entity;

import javax.persistence.Id;

import javax.persistence.Table;

import play.db.ebean.model;

@Entity

@Table(name="sample")

public class Sample extends Model

{

@Column(name="id")

@Id

public integer id;

@Column(name="name")

public String name;

public String toString(){

return id+","+name;

}

application.conf

..
db.default.driver=com.mysql.jdbc.Driver
db.default.url="jdbc:mysql://dbserver/sampledb"
db.default.user=root
db.default.password=password

evolutionplugin=disabled


ebean.default="models.*"
..

db.default.driver=com.mysql.jdbc.Driver

db.default.url="jdbc:mysql://dbserver/sampledb"

db.default.user=root

db.default.password=password

evolutionplugin=disabled

ebean.default="models.*"

これを使って、ViewとControllerにつなげれやればおっけー

統計ソフトRを使用して株価チャートを簡単に作成(2)

投稿者: utsubo 投稿日: 2013-06-24 in R 1件のコメント

RFinanceYJパッケージですがどうやらYahoo側の変更のせいでうまく動かないみたいです

> stockCode<-"6758.t"
> quoteStockTsData(stockCode)
 以下にエラー as.POSIXlt.character(x, tz, ...) : 
	character string is not in a standard unambiguous format

> stockCode<-"6758.t"

> quoteStockTsData(stockCode)

以下にエラー as.POSIXlt.character(x, tz, ...) :

character string is not in a standard unambiguous format

いろいろ調べてみたところ、どうやら日付部分が日本語のためうまく処理できていないようでした。

ちょっといじったソースはこれ

quoteStockTsData <- function(x, since=NULL,start.num=0,date.end=NULL,time.interval='daily')
{
	function.stock <- function(quote.table.item){
		if( xmlSize(quote.table.item) < 5) return(NULL)
		d <- convertToDate(xmlValue(quote.table.item[[1]]),time.interval)
		o <- as.number(xmlValue(quote.table.item[[2]]))
		h <- as.number(xmlValue(quote.table.item[[3]]))
		l <- as.number(xmlValue(quote.table.item[[4]]))
		c <- as.number(xmlValue(quote.table.item[[5]]))
		v <- ifelse(xmlSize(quote.table.item) >= 6,as.number(xmlValue(quote.table.item[[6]])),0)
		return(data.frame(date=d,open=o,height=h,low=l,close=c,volume=v))
	}
	return(quoteTsData(x,function.stock,since,start.num,date.end,time.interval))
}
quoteFundTsData <- function(x, since=NULL,start.num=0,date.end=NULL,time.interval='daily')
{
	function.fund <- function(quote.table.item){
		d <- convertToDate(xmlValue(quote.table.item[[1]]),time.interval)
		if(time.interval=='monthly'){
			d <- endOfMonth(d)
		}
		c <- as.number(xmlValue(quote.table.item[[2]]))
		v <- as.number(xmlValue(quote.table.item[[3]]))
		return(data.frame(date=d,constant.value=c,NAV=v))
	}
	return(quoteTsData(x,function.fund,since,start.num,date.end,time.interval))
}
quoteFXTsData <- function(x, since=NULL,start.num=0,date.end=NULL,time.interval='daily')
{
	function.fx <- function(quote.table.item){
		d <- convertToDate(xmlValue(quote.table.item[[1]]),time.interval)
		o <- as.number(xmlValue(quote.table.item[[2]]))
		h <- as.number(xmlValue(quote.table.item[[3]]))
		l <- as.number(xmlValue(quote.table.item[[4]]))
		c <- as.number(xmlValue(quote.table.item[[5]]))
		return(data.frame(date=d,open=o,height=h,low=l,close=c))
	}
	return(quoteTsData(x,function.fx,since,start.num,date.end,time.interval))
}


quoteTsData <- function(x,function.financialproduct,since,start.num,date.end,time.interval){
	r <- NULL
	result.num <- 51
	quote.table.list <- list(NULL)
	quote.table <- NULL
	financial.data <- data.frame(NULL)
	start <- (gsub("([0-9]{4,4})-([0-9]{2,2})-([0-9]{2,2})","&c=\\1&a=\\2&b=\\3",since))
	end	 <- (gsub("([0-9]{4,4})-([0-9]{2,2})-([0-9]{2,2})","&f=\\1&d=\\2&e=\\3",date.end))

	if(!any(time.interval==c('daily','weekly','monthly'))) stop("Invalid time.interval value")
	
	while( result.num >= 51 ){
		quote.url <- paste('http://table.yahoo.co.jp/t?s=',x,start,end,'&y=',start.num,'&g=',substr(time.interval,1,1),sep="")
		try( r <- xmlRoot(htmlTreeParse(quote.url,encoding="EUC-JP",error=xmlErrorCumulator(immediate=F))), TRUE)
		if( is.null(r) ) stop(paste("Can not access :", quote.url))

		try( quote.table <- r[[2]][[1]][[1]][[13]][[1]][[1]][[1]][[4]][[1]][[1]][[1]], TRUE )
		if( is.null(quote.table) ) stop(paste("Can not quote :", x))

		size <- xmlSize(quote.table) 

		for(i in 2:size){
			financial.data <- rbind(financial.data,function.financialproduct(quote.table[[i]]))
		}	 
					
		result.num <- xmlSize(quote.table)
		start.num <- start.num + 50
		Sys.sleep(1)
	}
	financial.data <- financial.data[order(financial.data$date),]
	return(financial.data)
}

#convert string formart date to POSIXct object
convertToDate <- function(date.string,time.interval)
{
	#date.string <- iconv(date.string,"EUC-JP","UTF-8","")
	date.string<-gsub("日","",gsub("[年月]","-",date.string))
	#data format is different between monthly and dialy or weekly
	if(any(time.interval==c('daily','weekly'))){
		result <- gsub("^([0-9]{4})([^0-9]+)([0-9]{1,2})([^0-9]+)([0-9]{1,2})([^0-9]+)","\\1-\\3-\\5",date.string)
	}else if(time.interval=='monthly'){
		result <- gsub("^([0-9]{4})([^0-9]+)([0-9]{1,2})([^0-9]+)","\\1-\\3-01",date.string)
	}
	return(as.POSIXct(result))
}

#convert string to number.
as.number <- function(string)
{
	return(as.double(as.character(gsub("[^0-9.]", "",string))))
}
#return end of month date.
endOfMonth <- function(date.obj)
{
	startOfMonth		 <- as.Date(format(date.obj,"%Y%m01"),"%Y%m%d")
	startOfNextMonth <- as.Date(format(startOfMonth+31,"%Y%m01"),"%Y%m%d")
	return(startOfNextMonth-1)
}

100

quoteStockTsData <- function(x, since=NULL,start.num=0,date.end=NULL,time.interval='daily')

{

function.stock <- function(quote.table.item){

if( xmlSize(quote.table.item) < 5) return(NULL)

d <- convertToDate(xmlValue(quote.table.item[[1]]),time.interval)

o <- as.number(xmlValue(quote.table.item[[2]]))

h <- as.number(xmlValue(quote.table.item[[3]]))

l <- as.number(xmlValue(quote.table.item[[4]]))

c <- as.number(xmlValue(quote.table.item[[5]]))

v <- ifelse(xmlSize(quote.table.item) >= 6,as.number(xmlValue(quote.table.item[[6]])),0)

return(data.frame(date=d,open=o,height=h,low=l,close=c,volume=v))

}

return(quoteTsData(x,function.stock,since,start.num,date.end,time.interval))

}

quoteFundTsData <- function(x, since=NULL,start.num=0,date.end=NULL,time.interval='daily')

{

function.fund <- function(quote.table.item){

d <- convertToDate(xmlValue(quote.table.item[[1]]),time.interval)

if(time.interval=='monthly'){

d <- endOfMonth(d)

}

c <- as.number(xmlValue(quote.table.item[[2]]))

v <- as.number(xmlValue(quote.table.item[[3]]))

return(data.frame(date=d,constant.value=c,NAV=v))

}

return(quoteTsData(x,function.fund,since,start.num,date.end,time.interval))

}

quoteFXTsData <- function(x, since=NULL,start.num=0,date.end=NULL,time.interval='daily')

{

function.fx <- function(quote.table.item){

d <- convertToDate(xmlValue(quote.table.item[[1]]),time.interval)

o <- as.number(xmlValue(quote.table.item[[2]]))

h <- as.number(xmlValue(quote.table.item[[3]]))

l <- as.number(xmlValue(quote.table.item[[4]]))

c <- as.number(xmlValue(quote.table.item[[5]]))

return(data.frame(date=d,open=o,height=h,low=l,close=c))

}

return(quoteTsData(x,function.fx,since,start.num,date.end,time.interval))

}

quoteTsData <- function(x,function.financialproduct,since,start.num,date.end,time.interval){

r <- NULL

result.num <- 51

quote.table.list <- list(NULL)

quote.table <- NULL

financial.data <- data.frame(NULL)

start <- (gsub("([0-9]{4,4})-([0-9]{2,2})-([0-9]{2,2})","&c=\\1&a=\\2&b=\\3",since))

end <- (gsub("([0-9]{4,4})-([0-9]{2,2})-([0-9]{2,2})","&f=\\1&d=\\2&e=\\3",date.end))

if(!any(time.interval==c('daily','weekly','monthly'))) stop("Invalid time.interval value")

while( result.num >= 51 ){

quote.url <- paste('http://table.yahoo.co.jp/t?s=',x,start,end,'&y=',start.num,'&g=',substr(time.interval,1,1),sep="")

try( r <- xmlRoot(htmlTreeParse(quote.url,encoding="EUC-JP",error=xmlErrorCumulator(immediate=F))), TRUE)

if( is.null(r) ) stop(paste("Can not access :", quote.url))

try( quote.table <- r[[2]][[1]][[1]][[13]][[1]][[1]][[1]][[4]][[1]][[1]][[1]], TRUE )

if( is.null(quote.table) ) stop(paste("Can not quote :", x))

size <- xmlSize(quote.table)

for(i in 2:size){

financial.data <- rbind(financial.data,function.financialproduct(quote.table[[i]]))

}

result.num <- xmlSize(quote.table)

start.num <- start.num + 50

Sys.sleep(1)

}

financial.data <- financial.data[order(financial.data$date),]

return(financial.data)

}

#convert string formart date to POSIXct object

convertToDate <- function(date.string,time.interval)

{

#date.string <- iconv(date.string,"EUC-JP","UTF-8","")

date.string<-gsub("日","",gsub("[年月]","-",date.string))

#data format is different between monthly and dialy or weekly

if(any(time.interval==c('daily','weekly'))){

result <- gsub("^([0-9]{4})([^0-9]+)([0-9]{1,2})([^0-9]+)([0-9]{1,2})([^0-9]+)","\\1-\\3-\\5",date.string)

}else if(time.interval=='monthly'){

result <- gsub("^([0-9]{4})([^0-9]+)([0-9]{1,2})([^0-9]+)","\\1-\\3-01",date.string)

}

return(as.POSIXct(result))

}

#convert string to number.

as.number <- function(string)

{

return(as.double(as.character(gsub("[^0-9.]", "",string))))

}

#return end of month date.

endOfMonth <- function(date.obj)

{

startOfMonth <- as.Date(format(date.obj,"%Y%m01"),"%Y%m%d")

startOfNextMonth <- as.Date(format(startOfMonth+31,"%Y%m01"),"%Y%m%d")

return(startOfNextMonth-1)

}

これをRFinanceYJパッケージに続けて呼べばデータが取得できました

> 
> quoteStockTsData("6758.t")
				 date open height	low close	 volume
62 2013-03-25 1694	 1729 1662	1712 34382500
61 2013-03-26 1682	 1688 1660	1666 26291500
60 2013-03-27 1666	 1691 1663	1675 18503100
59 2013-03-28 1663	 1666 1587	1625 33812600
...

> quoteStockTsData("6758.t")

date open height low close volume

62 2013-03-25 1694 1729 1662 1712 34382500

61 2013-03-26 1682 1688 1660 1666 26291500

60 2013-03-27 1666 1691 1663 1675 18503100

59 2013-03-28 1663 1666 1587 1625 33812600

...