如何使用Perl製作HTML彈出式菜單？

Question

我需要使用Perl創建HTML彈出式菜單。誰能幫我？

Answer 1

使用下面的代碼：

如果你在傳統知識或CGI要

#!/usr/bin/perl 

use CGI qw/:standard/; 

print header, 
    start_html('Favorite Food'), 
    start_form, "What's your favorite Food? ", 
    popup_menu(
     -name => 'food', 
     -values => [ qw(Juice Cake Chocolate Fruits) ] 
     ), 
    submit, 
    end_form, 
    end_html;