Well, I was a bit of a fool on this one (the brown paper bag question)
What I was not thinking was to pass a substution via a request{} variable like this 's/find/replace/'
Duh! I missed that perl easy expands $vars in the context anyway. All you need do is set a $find and $replace var from the form and do this:
if (length ($request{'find'}) > 0 ) { $line =~ s/$request{'find'}/$request{'replace'}/; }
Nick
In reply to Pass CGI HTML form $vars to script - REVISITED by Linicks
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |