Many thanks to all of you who replied with hints and suggestions to my
question RE: Installation and file processing. I am still testing the Perl
system installed recently. Now I have a problem with the "Post" method and
the following is the simple script causing the trouble.
#!/usr/bin/perl
use warnings;
use strict;
use CGI qw( :standard );
our ( $data, $name, $value );
read( STDIN, $data, $ENV{ 'CONTENT_LENGTH' } );
( $name, $value ) = split( '=', $data );
print header(), start_html( 'Using POST with forms' );
print p( 'Enter one of your favorite words here: ' );
print p("$scr");
print '<form method = "POST" action = "form2.pl">';
print '<input type = "text" name = "word">';
print '<input type = "submit" value = "Submit word">';
print '</form>';
if ( $name eq 'word' ) {
print p( 'Your word is: ', b( $value ) );
}
print end_html();
After I submit the form data I have to wait about 10 min to
get a reply:
The page cannot be displayed
The same form (using CGI.pm) works fine.
#!/usr/bin/perl
use warnings;
use strict;
use CGI qw( :standard );
my $word = param( "word" );
print header(), start_html( 'Using CGI.pm with forms' );
print p( 'Enter one of your favorite words here: ' );
print start_form(), textfield( "word" );
print submit( "Submit word" ), end_form();
print p( 'Your word is: ', b( $word ) ) if $word;
print end_html();
Any suggestions that would help me identify the cause of the problem will be
appreciated.
Thank you,
Christo
_______________________________________________
Perl-Win32-Web mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
