<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content="text/html; charset=iso-8859-1" http-equiv=Content-Type>
<META name=GENERATOR content="MSHTML 8.00.6001.18812">
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT size=2 face=Arial>Hello</FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial>I am trying to post a large text string to a cgi
(perl) so I can process it line by line</FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial>Can someone help me ?</FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial>I have this so far</FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial>-------------------- send code
--------------------------------------------------------</FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial><FORM ACTION="/cgi-bin/test.cgi"
METHOD="POST"><BR><textarea cols="50" rows="4"
name="comment"></textarea><BR></FONT><FONT size=2 face=Arial><input
type=submit value="Submit Details"><BR><input type=reset
value="Reset"> </FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV><FONT size=2 face=Arial>
<DIV><FONT size=2 face=Arial>-------------------- process code
--------------------------------------------------------</FONT></DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV>#!/usr/bin/perl<BR>print "Content-type: text/html\n\n";<BR>@pairs=
split(/&/, $ENV{'QUERY_STRING'});<BR>foreach $pair (@pairs) </DIV>
<DIV>{<BR>($name, $value) = split(/=/, $pair);</DIV>
<DIV>print $name."=".$value;<BR>$FORM{$name} = $value;<BR>@lines =
$comment;</DIV>
<DIV>foreach (@lines) {<BR>print $_;<BR>}</DIV>
<DIV> </DIV>
<DIV>Andrew</DIV>
<DIV> </DIV>
<DIV></FONT> </DIV></BODY></HTML>