limit on uses of 'new' in CGI.pm???

[goBoating]

I'm working on a data entry web interface that accepts a set of fields for a technique definition.&nbsp;&nbsp;Each definition set is stored in a separate text file.&nbsp;&nbsp;I'm using CGI.pm 'save' to write the files and then trying to use.....<br><FONT FACE=monospace><br>open(IPF,&quot;&lt;definitionFile&quot;<br>$technique = new CGI(IPF);<br></font><br>to read the data back from the files.&nbsp;&nbsp;As long as I ask for one or two uses of 'new' when reading the files, it works fine.<br><br>Problem:<br>I need to be able to read many files (up to 200) to report all techniques.&nbsp;&nbsp;It appears that CGI.pm will allow a limited number ( less that 30) of 'new' CGI objects created to read the files.&nbsp;&nbsp;Is there a destructor method I can use to get a clean slate after each read?&nbsp;&nbsp;Or, does anyone have any ideas why this is happening?<br><br>CODE:<br><FONT FACE=monospace><br>sub displayAll<br>{<br>opendir DEFDIR, &quot;./db/defs/&quot;;<br>@techIDs = sort numerically grep(!/^\./,readdir(DEFDIR));<br>closedir DEFDIR;<br>print $query-&gt;a({-href=&gt;&quot;$cgiProg&quot;},&quot;Return to Tool Management Front Page.&lt;HR&gt;&quot;<br>foreach $techID (@techIDs)<br>&nbsp;&nbsp;&nbsp;&nbsp;{<br>&nbsp;&nbsp;&nbsp;&nbsp;$toolFile = './db/defs/'.$techID;<br>&nbsp;&nbsp;&nbsp;&nbsp;open (IPF,&quot;&lt;$toolFile&quot ¦¦<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&showError(&quot;Failed to open $toolFile, for display, $!&quot;<br>&nbsp;&nbsp;&nbsp;&nbsp;print &quot;Working on $toolFile&lt;BR&gt;\n&quot;;<br>&nbsp;&nbsp;&nbsp;&nbsp;$tool = new CGI(IPF);<font color=red># hangs here after about 20 files open</font><br>&nbsp;&nbsp;&nbsp;&nbsp;print &quot;&lt;table width=\&quot;80%\&quot; border=\&quot;1\&quot; bgcolor=\&quot;white\&quot;&gt;&quot;;<br>&nbsp;&nbsp;&nbsp;&nbsp;foreach my $item (@fields)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;print &quot;read parms and print here&quot;;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;}<br>&nbsp;&nbsp;&nbsp;&nbsp;print &quot;&lt;/table&gt;&lt;HR&gt;&quot;; <br>&nbsp;&nbsp;&nbsp;&nbsp;close IPF;<br>&nbsp;&nbsp;&nbsp;&nbsp;undef $tool;<br>&nbsp;&nbsp;&nbsp;&nbsp;}<br>print $query-&gt;a({-href=&gt;&quot;$cgiProg&quot;},&quot;Return to Tool Management Front Page.&quot;<br>} # end displayAll<br></font><br>Thanks in advance. <p> <br><a href=mailto: > </a><br><a href= > </a><br> keep the rudder amid ship and beware the odd typo

 

[goBoating]

Well, since no one was willing to wade through the quag-mire above.....just kidding....;^)&nbsp;&nbsp;<br><br>I figure it out.&nbsp;&nbsp;I had the '-w' switch in the first line of the program and was a little sloppy with the code.&nbsp;&nbsp;Consequently, while the code compiled and ran, it produced a fair number of complaints that the server dutifully passed on to the browser.&nbsp;&nbsp;Since, it was not anything the browser understood, it caused some unexpected symptoms which I mis-interpreted as limitations in CGI.pm.&nbsp;&nbsp;As usual, what I thought was a complex problem turned out to be fairly straight forward, ' just took a little while to figure it out.<br><br>Moral to the story......use '-w' because it keeps you honest, but also try to keep your code lean and clean. <p> <br><a href=mailto: > </a><br><a href= > </a><br> keep the rudder amid ship and beware the odd typo