フォームの利用(2) - チュートリアル - TripletaiL

複数のフォームがある状態で、特定のフォーム（input type=hiddenのタグ）をCGI側から制御します。

Webブラウザでアクセスし、HTMLソースを確認してみましょう。

main.cgi

#!/usr/local/bin/perl

use strict;
use warnings;
use Tripletail qw(/dev/null);

$TL->startCgi(
    -main => \&main,
);

sub main
{
    my $t = $TL->newTemplate('template.html', 'utf8');
    $t->addHiddenForm($TL->newForm->set(Command => 'Search'));
    $t->addHiddenForm($TL->newForm->set(Command => 'Delete'), 'form2');
    $t->flush;
}

template.html

<!DOCTYPE html>
<HTML>
  <BODY>
    <form method="post">
      <input type="submit" name="submit" value="検索">
    </form>
    <form name="form2" method="post">
      <input type="submit" name="submit" value="削除">
    </form>
  </BODY>
</HTML>