in reply to Open to and save from same file in CGI
The resulting file /tmp/page.sav looks like this#!/usr/bin/perl -w use CGI; open (IN, '</tmp/page.sav') or die qq(Failed to open input file); my $page; while (!eof(IN)) { $page = new CGI(IN); } close(IN); print $page->header(); print $page->start_html(); print $page->startform(-method=>'POST'); $page->param(-name=>'name', -value=>'ColtsFoot'); print $page->textfield(-name=>'name', -value=>'$name'); print $page->submit(-name=>'submit', value=>'Submit'); print $page->endform(); print $page->end_html(); open (OUT, '>/tmp/page.sav') or die qq(Failed to open output file); $page->save(OUT); close(OUT);
Hope this gives you a clue.name=ColtsFoot =
|
|---|