e

SmallTalk Web Model-View-Controller MVC 3

Model API HTTP HTML cron Web

Controller Web Model Model View HTML

View HTMLController Model View View Web Template Toolkit Perl

``time-to-live'' Berkeley DB CPAN Storable

IP C 1 2000 99%

Expires NFS

mod_proxy URL

mod_proxy 1If-Modified-Since mod_proxy

HTTP cookie ID mod_session ID ID ``sticky'' -- --

e

``!'' SSL ``''( ID) cookie Message Authentication Code (MAC) CPAN Digest::SHA1 seed MAC cookie ID

HTML URL CPAN Crypt:: Crypt::CBC

Randal Schwartz Stonehenge::Throttle NFS 1

MAC Web O'Reilly CGI Programming with Perl, 2nd Edition Writing Apache Modules with Perl and C

Java Perl Java CPAN Graham Barr Error Perl

Perl Error syntactic sugar

    try {         do_some_stuff();     } catch My::Exception with {         my $E = shift;         handle_exception($E);     }; 

1DBI DBI RaiseError try Error DBI Error

    try {         $sth->execute();     } catch Error with {         # roll back and recover         $dbh->rollback();         # etc.     }; 

DBI try{}

HTML CPAN Template Toolkit Perl

Template Toolkit HTML Perl HTML !

Template Toolkit Perl Mason Apache::Registry mod_perl

& co-branfing

Template Toolkit :

    [% FOREACH item = cart.items %]     name: [% item.name %]     price: [% item.price %]     [% END %] 

Model-View-Controller Hello World Controller

    package ESF::Control::Hello;     use strict;     use ESF::Control;     @ESF::Control::Hello::ISA = qw(ESF::Control);     use ESF::Util;     sub handler {         ###          my $class = shift;         my $apr = ESF::Util->get_request(); 

        ### model          my $name = $apr->param('name'); 

        # Model::Hello          my $hello = ESF::Model::Hello->new(NAME => $name); 

        ### view          my $view_data{'hello'} = $hello->view(); 

        # process_template()          # ESF::Control          $class->process_template(                 TEMPLATE => 'hello.html',                 DATA     => \%view_data);     } 

ESF::Control ESF::Control->run() try{} handler() process_template() Template Toolkit HTTPController Last-Modified Expires

Model

    package ESF::Model::Hello;     use strict;     sub new {         my $class = shift;         my %args = @_;         my $self = bless {}, $class;         $self{'name'} = $args{'NAME'} || 'World';         return $self;     } 

    sub view {         #  view          return shift;     } 

Model Model ID load() Model save()

Perl OO new() load() new() bless

load() load() :

    sub load {         my $class = shift;         my %args = @_;         my $id = $args{'ID'};         $self = _fetch_from_cache($id) ||                 _fetch_from_database($id);         return $self;     } 

save

Model view() Model Facade view()

Hello World View :

                       [% PROCESS header.html %]         Hello [% hello.name %]!         [% PROCESS footer.html %]     




Related Posts