Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

Re: How do I save the result of POST to a file?

by Anonymous2003 (Initiate)
on Jul 30, 2003 at 14:40 UTC ( [id://279193]=note: print w/replies, xml ) Need Help??


in reply to How do I save the result of POST to a file?

Here is what I've tried:
#!/agl/tools/perl/bin/perl if($ENV{'REQUEST_METHOD'} eq 'GET') { $query=$ENV{'QUERY_STRING'} } elsif($ENV{'REQUEST_METHOD'} eq 'POST') { sysread(STDIN,$query,$ENV{'CONTENT_LENGTH'}) } else { die 'Unsupported method: $ENV{'REQUEST_METHOD'}' } # Now $query consists a string with pairs name=value which # are sticked '&' $query =~ s/&/\n/g; open(FILE, '/home/testuser3:choicebug.txt') or die 'Cannot open file: +$!'; print FILE $query; close FILE;

edited by ybiC: <code> tags enclosing code sample

Replies are listed 'Best First'.
Re: Re: How do I save the result of POST to a file?
by talexb (Chancellor) on Jul 30, 2003 at 14:45 UTC
    1. Go to CPAN.
    2. Read the documentation for CGI.
    3. Try some of the examples.
    4. Try your form again.

    In future, please wrap your code examples inside code tags. This means we don't get your code smooshed into one big line.

    --t. alex
    Life is short: get busy!

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://279193]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others contemplating the Monastery: (5)
As of 2024-03-29 14:21 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found