in reply to Wont write to text file.
#!/usr/bin/perl -wT use strict; use CGI; my $q=new CGI; my $webpage=$q->param('first'); if($webpage!~/\w+/){ print $q->header; print $q->start_html; print $q->h2('Incorrect parameter'); print $q->end_html; }else{ print $q->header; print $q->start_html; print $q->h2("Param first = $webpage"); print $q->end_html; }
|
|---|