Mojolicious :: Lite: как передать параметры при использовании «redirect_to»; - PullRequest
8 голосов
/ 12 августа 2011
#!/usr/local/bin/perl
use warnings;
use 5.014;
use Mojolicious::Lite;
use DBI;

# ...

get '/choose' => sub {
    my $self = shift;
    my $lastname = $self->param( 'lastname' );
    my $sth = $dbh->prepare( "SELECT id, firstname, birthday FROM $table WHERE lastname == ?" );
    $sth->execute( $lastname );
    my @rows;
    while ( my $row = $sth->fetchrow_hashref ) {
        push @rows, { id => $row->{id}, firstname => $row->{firstname}, lastname => $lastname, birthday => $row->{birthday} };
    }
    if ( not @rows ) {
        $self->redirect_to( 'new_entry' );
    } elsif ( @rows == 1 ) {
        my $id = $rows[0]{id};
        $self->redirect_to( "/show_address?id=$id" );   # show_address needs parameter "id"
    } else {
        $self->stash( rows => \@rows );
        $self->render( 'choose' );
    }
};

# ...

Когда я использую redirect_to, есть ли другой способ передать параметр, кроме записи его непосредственно в URL ("/ show_address? Id = $ id")?

1 Ответ

7 голосов
/ 26 августа 2011

redirect_to может создать URL для вас и заменить заполнители в ваших маршрутах вашими параметрами.

Если вам нужно создать URL с параметрами, вы можете сделать следующее:

my $url = $self->url_for("/show_address");
$self->redirect_to($url->query(id => $id));

Также обратите внимание, чтоВы можете передать параметры с запросом, установив переменные flash: http://mojolicio.us/perldoc/Mojolicious/Controller#flash

Эти переменные будут очищены Mojolicious с помощью следующего запроса.

...