pp2@nereida:~/src/perl/Continuity/examples$ cat -n addtwo.pl 1 #!/usr/bin/perl 2 3 use strict; 4 use lib '../lib'; 5 use Continuity; 6 7 Continuity->new->loop; 8 9 sub main { 10 my $request = shift; 11 12 $request->print(qq{ 13 <form> 14 Enter first number: 15 <input type=text name=num><input type=submit> 16 </form> 17 }); 18 $request->next; 19 my $num1 = $request->param('num'); 20 21 $request->print(qq{ 22 <form> 23 Enter second number: 24 <input type=text name=num><input type=submit> 25 </form> 26 }); 27 my $num2 = $request->next->param('num'); 28 29 my $sum = $num1 + $num2; 30 $request->print(qq{ 31 <h2>The sum of $num1 and $num2 is $sum!</h2> 32 }); 33 }
pp2@nereida:~/src/perl/Continuity/examples$ addtwo.pl Please contact me at: http://nereida.deioc.ull.es:53009/ Warning: Attempt to remove nonexistent passive grab
Casiano Rodríguez León