#!/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; }
In reply to Re: Wont write to text file.
by TStanley
in thread Wont write to text file.
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |