Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

Re: cgi response

by Mago (Parson)
on Jul 09, 2003 at 21:40 UTC ( #272835=note: print w/replies, xml ) Need Help??


in reply to cgi response

#!/usr/bin/perl use warnings; use strict; use CGI qw( :standard ); our $query = new CGI; our $method = $query->param("op"); print $query->header; print $query->start_html(-title=>'Fon'); unless ($method) { print $query->start_form(-method=>"POST"); print $query->textfield(-name=>'fon'); print $query->hidden(-name=>'op', -default=>"01"); print $query->submit('submit','submit'); print $query->endform; } else { my $fon = $query->param("fon"); open (OUT, ">fon.txt"); print OUT $fon, "\n"; close OUT; print "Your fon has been entered"; } print $query->end_html;

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://272835]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (6)
As of 2022-11-28 09:13 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Notices?