OpenForum RSS: Ctalyst DBIx �� JSON

Ctalyst DBIx �� JSON (Azudim)

Mon, 28 Feb 2011 09:54:18 GMT

��
-------------
package TM::Controller::Ajax;

use strict;
use warnings;
use parent 'Catalyst::Controller';

sub index :Path :Args {
my($self, $c, @args) = @_;
my $rs = $c->model('DB::Firms');
my $firms = $rs->search(undef,
{
'+select' => [ 'people.nick_name','people.s_name' ],
join => 'people' }
);
### �� - ��
my $source = $rs->result_source;
my @column_names = $source->columns;
#

my (@data, %json);
while (my $f = $firms->next) {
my %row;
foreach my $col (@column_names) {
$row{$col} = $f->$col;
Encode::from_to($row{$col}, 'cp1251', 'utf8');# �� cp1251, �� cp1251
}
push @data,\%row;
}
$json{data} = \@data;
$json{result} = "ok";
$c->stash->{json} = \%json;
$c->forward('View::JSON');
}

Ctalyst DBIx �� JSON (Azudim)

Sun, 27 Feb 2011 10:14:09 GMT

�� - JSON �� , �� .
=========================================
package TM::Controller::Firm;

use strict;
use warnings;
use parent 'Catalyst::Controller';

sub index :Path :Args(0) {
my ( $self, $c ) = @_;
my $time = "�� :".localtime;
# ��
my $rs = $c->model('DB::Firm');
my $firms = $rs->search(undef,
{
'+select' => [ 'people.nick_name','people.s_name' ],
join => 'people' }
);
my (@data, %json);
while (my $f = $firms->next) {
my %row;
$row{short_name} = $f->short_name;
push @data,\%row;
}

#foreach my $val (@data) { #print "\n data val: $val";}
$json{rettext} = "good";
$json{data} = \@data;
$c->stash->{json} = \%json;
$c->forward('View::JSON');
}
1;
==============================
��:
{
"json" : {
"data" : [
{
"short_name" : "??????-31"
},
{
"short_name" : "???????"
},

Ctalyst DBIx �� JSON (Azudim)

Sat, 26 Feb 2011 15:48:41 GMT

package TM::Controller::Firm;

use strict;
use warnings;
use parent 'Catalyst::Controller';

sub index :Path :Args(0) {
my ( $self, $c ) = @_;

# �� : join �� , �� .
my $rs = $c->model('DB::Firm');
my @firms = $rs->search(undef,
{
'+select' => [ 'people.nick_name','people.s_name' ],
join => 'people' }
);
$c->stash->{json} = \@firms;
$c->forward('View::JSON');

# �� Template Toolkit (View:TT)
# $c->stash(template => 'firm/firm_list.tt');
}
1;

===================== firm_list.tt ===========
[% WRAPPER tpl/header.tt title = c.config.name ; END %]
[% FOREACH firm IN firms -%]
<tr>
<td>[% firm.id %]</td>
<td>[% firm.short_name %]</td>
<td>[% firm.people.s_name %][[% firm.people.nick_name %]]</td>
</tr>
[% END -%]
================================================

�� \@firms � View::JSON - �� bless'��

Ctalyst DBIx �� JSON (sm00th1980)

Sat, 26 Feb 2011 10:24:14 GMT

�� - �� perl :)

Ctalyst DBIx �� JSON (Azudim)

Sat, 26 Feb 2011 10:04:14 GMT

> � �� ޣ�:
> �� . � JSON-��
> �� (��-�� perl - �� ).

��! =)

> �� -�� - � ��
> �� - ��
> � �� . �� . ��
> �� .

�� =(

Ctalyst DBIx �� JSON (sm00th1980)

Sat, 26 Feb 2011 09:41:35 GMT

> �� , ��
> (Django?) �� . � �� ORM
> (DBIx::Class), � � �� , ��
> � �� , � Json ��
> ��.
> P.S. �� Django, �� =)

� �� ޣ�:
�� . � JSON-�� (��-�� perl - �� ).

�� -�� - � �� - �� . �� . �� .

Ctalyst DBIx �� JSON (Azudim)

Sat, 26 Feb 2011 09:25:41 GMT

�� , �� (Django?) �� . � �� ORM (DBIx::Class), � � �� , �� , � Json �� .

P.S. �� Django, �� =)

Ctalyst DBIx �� JSON (sm00th1980)

Sat, 26 Feb 2011 08:49:14 GMT

�� - �� .

�� :
�� ORM(�� Perl �� ORM) � �� JSON � ��(�� AJAX).

�� :
http://www.youtube.com/watch?v=FcB8_s-_Iz8

OpenForum RSS: Ctalyst DBIx ����� � JSON

Ctalyst DBIx ����� � JSON (Azudim)

Ctalyst DBIx ����� � JSON (Azudim)

Ctalyst DBIx ����� � JSON (Azudim)

Ctalyst DBIx ����� � JSON (sm00th1980)

Ctalyst DBIx ����� � JSON (Azudim)

Ctalyst DBIx ����� � JSON (sm00th1980)

Ctalyst DBIx ����� � JSON (Azudim)

Ctalyst DBIx ����� � JSON (sm00th1980)

OpenForum RSS: Ctalyst DBIx �� JSON

Ctalyst DBIx �� JSON (Azudim)

Ctalyst DBIx �� JSON (Azudim)

Ctalyst DBIx �� JSON (Azudim)

Ctalyst DBIx �� JSON (sm00th1980)

Ctalyst DBIx �� JSON (Azudim)

Ctalyst DBIx �� JSON (sm00th1980)

Ctalyst DBIx �� JSON (Azudim)

Ctalyst DBIx �� JSON (sm00th1980)