#!/usr/bin/perl use strict; use lib '../lib'; use Data::Dumper; use Continuity; Continuity->new->loop; sub main { my $r = shift; $r->print(qq| <h2>Parameter Passing Example</h2> <p>Fill out this form, and I will show you what I learned! This is an example of some Continuity::Request parameter-getting methods.</p> <form> Name: <input type=text name=name> <br> Favorite Thing #1: <input type=text name=favorite> <br> Favorite Thing #2: <input type=text name=favorite> <br> Favorite Thing #3: <input type=text name=favorite> <br> <input type=submit name="show_results" value="Show Params"> </form> |); $r->next; my $name = $r->param('name'); my $first_fav = $r->param('favorite'); my @favs = $r->param('favorite'); my %all_hash = $r->params; my @all_array = $r->params; my @alt_array = $r->param; $r->print(qq| <h2>Okay... this is what I got...</h2> Name: "$name"<br> First Fav: "$first_fav"<br> Favs: @{[ join ',', map { "'$_'" } @favs ]}<br> All hash: <pre> @{[ Dumper(\%all_hash) ]} </pre> <br> All array: <pre> @{[ Dumper(\@all_array) ]} </pre> <br> Alternate array: <pre> @{[ Dumper(\@alt_array) ]} </pre> |); }