[英]Which Perl module should I use to generate a validating CRUD webform?
有没有人成功使用DBIx :: Class :: WebForm或CatalystX-CRUD之 类的东西来从数据库表中自动构建自验证Web表单?
我正在想象一个模块,该模块可以读取数据库表架构,读取每一列的约束,并生成Webform的抽象表示形式,以及用于错误消息的字段等。我将Catalyst和Plack与现有的大型代码库一起使用。
我既不想编写HTML Web表单,也不想编写任何验证逻辑。 我的目标是以Ruby on Rails的样式编写尽可能少的代码。 哪个Perl模块最适合?
更新:我已经用HTML :: FormFu解决了Webform方面,但是将表单输入映射到数据库上仍然很笨拙,例如date_start和date_end都与'created'列相关,并且注释应该使用'LIKE%foo% ”等。“ DBICFu”在哪里?
更新:这是针对Web应用程序的,Web表单不应看起来像数据库表。 我不是在寻找数据库管理工具。
我已经使用HTML :: FormHandler以这种方式为我生成表单。 它需要进行一些调整,但它可以为您完成90%的工作。 另外,DBIx :: Class提供了类似的工具。
您可以使用HTML::FormHandler::Moose
和HTML::FormHandler::Model::DBIC
获得一些不错的表单。
作为一个简单的例子:
表单定义:
package MyStats::Form::Datetime ;
use HTML::FormHandler::Moose ;
extends 'HTML::FormHandler::Model::DBIC' ;
use Date::Calc qw(Today_and_Now) ;
has_field 'datetimeid' => ( label => 'ID' ) ;
has_field 'datetime' => ( type => 'Text',
apply => [ { transform => \&transform_dt } ] ,
deflation => \&deflation_dt ,
required => 1 ) ;
has_field 'submit' => ( type => 'Submit' ,
value => 'Speichern' ) ;
# These are the fields of the table datetime
sub transform_dt {
my ( $dt ) = @_ ;
my @d = ( $dt =~ m/(\d{1,2})\.(\d{1,2})\.(\d{4})\s+(\d{1,2}):(\d{1,2})/ ) ;
return sprintf( '%04d-%02d-%02d %02d:%02d:00' , @d[2,1,0,3,4] ) ;
}
sub deflation_dt {
my ( $dt ) = @_ ;
my @d = ( $dt =~ m/(\d{4})-(\d{2})-(\d{2})\s+(\d{1,2}):(\d{1,2})/ ) ;
if( ! @d ) {
@d = Today_and_Now() ;
}
return sprintf( '%02d.%02d.%04d %02d:%02d:00' , @d[2,1,0,3,4] ) ;
}
1 ;
以及控制器中的用法:
package MyStats::Controller::Datetime ;
use Moose ;
use namespace::autoclean ;
BEGIN { extends 'Catalyst::Controller' ; }
use MyStats::Form::Datetime ;
has 'form' => ( isa => 'MyStats::Form::Datetime' ,
is => 'rw' ,
lazy => 1 ,
default => \&new_datetime_form ) ;
sub new_datetime_form {
MyStats::Form::Datetime->new( css_class => 'datetimeform' ,
name => 'datetimeform' ) ;
}
...
sub add :Local :Args(0) {
my ( $self , $ctx ) = @_ ;
my $data = $ctx->model( 'MyStatsDB::Datetime' )->new_result( {} ) ;
$ctx->stash( template => 'datetime/add.tt2' ,
form => $self->form ) ;
$ctx->bread_crumb( { name => 'Datum/Zeit eingeben' ,
location => '/datetime/add' } ) ;
$ctx->req->param( 'datetimeid' , undef ) if $ctx->req->param( 'datetimeid' ) ;
return unless $self->form->process( item => $data ,
params => $ctx->req->params ) ;
$ctx->flash( message => 'Neuer Datensatz ' . $data->datetimeid .
' angelegt.' ,
id_add => $data->datetimeid ) ;
$ctx->res->redirect( $ctx->uri_for( '/datetime' ) ) ;
}
...
__PACKAGE__->meta->make_immutable ;
1 ;
效果不错。
在Catalyst Wiki上有许多选项 。
听起来AutoCrud可以满足您的需求。
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.