Perlでページネイターのリンクをどのように生成しますか？

Question

各リンクは、pageパラメータが異なる場合を除いて、現在要求されているURIと同じURLを持ちます。

どのようにPerlでこのようなリンクを生成しますか？

Answer 1

あなたは基本を知らないようです。 Webプログラミングに関する入門書を読んでください。

1. URIオブジェクトを作成します。 CGIにおいて

   use URI qw(); 
   

   • 、一緒from the enviromentそれをつなぎ。 （スタッカーは、私が見落としてきたより良い方法/コンビニエンス方法はありますか？）PSGIで

     my $current = 'http://example.com/?search=foobar'; 
     my $u = URI->new($current); 
     

   • 、uriメソッドを使用します。

     use Plack::Request qw(); 
     … 
     my $req = Plack::Request->new($env); 
     my $u = $req->uri; 
     

   • 上位レベルのフレームワークは、独自のアクセサを提供する必要があります。触媒中：

     my $u = $c->request->uri; 
     

2. pagingパラメータが含まれるようにクエリ文字列を変異させます。

   use URI::QueryParam qw(); 
   $u->query_param(page => 13); 
   $u->as_string; # returns http://example.com/?search=foobar&page=13 
   

3. query_param DTRT、それがすでに設定されていても場合は、パラメータを上書きします。