Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

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

by nite_man (Deacon)
on Jul 30, 2003 at 07:11 UTC ( [id://279098]=note: print w/replies, xml ) Need Help??


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

If I understood clearly you cannot use module CGI. If it is, there is a one way to get form data and store them:

if($ENV{'REQUEST_METHOD'} eq 'GET') { $query=$ENV{'QUERY_STRING'} } elsif($ENV{'REQUEST_METHOD'} eq 'POST') { sysread(STDIN,$query,$ENV{'C +ONTENT_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, '/your/file') or die 'Cannot open file: $!'; print FILE $query; close FILE;
Hope I helped.
      
--------------------------------
SV* sv_bless(SV* sv, HV* stash);

Replies are listed 'Best First'.
Re: Re: How do I save the result of POST to a file?
by Anonymous2003 (Initiate) on Jul 30, 2003 at 07:48 UTC
    the pb is that it does'nt recognize neither 'sysread' nor 'readparse' which were the two solution I knew! here the beginning of my form: <form method=\"post\" action="cible.pl"> where cible.pl is a script that will use the answers of the form...

      Well, you can get form data from STDIN:

      my $query = <>;
      because all form data, which are sent using method POST, come to the STDIN of handled script.
            
      --------------------------------
      SV* sv_bless(SV* sv, HV* stash);
      

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others lurking in the Monastery: (4)
As of 2024-04-25 14:14 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found