Twingly twingly
Tuesday, 20. October 2009, 10:40:28
Nothing important to see here. Move on!
Thursday, 14. May 2009, 08:46:25
sub getPost
{
my %_POST, $r, @parts;
%_POST = ();
read( STDIN, $r, $ENV{ "CONTENT_LENGTH" } );
@parts = split( /\&/, $r);
foreach my $p (@parts)
{
my($n, $v) = split( /\=/, $p);
$v = uri_decode($v);
$_POST{ "$n" } = $v;
}
return %_POST;
}
#!/usr/bin/perl
package HTTPerl;
use base 'Exporter';
our sub getPost
{
my %_POST, $r, @parts;
%_POST = ();
read( STDIN, $r, $ENV{ "CONTENT_LENGTH" } );
@parts = split( /\&/, $r);
foreach my $p (@parts)
{
my($n, $v) = split( /\=/, $p);
$v = uri_decode($v);
$_POST{ "$n" } = $v;
}
return %_POST;
}
our @EXPORT_OK = ('getPost');
our @EXPORT = {'getPost');
1;
Showing posts 1 - 10 of 58.
| M | T | W | T | F | S | S |
|---|---|---|---|---|---|---|
|
| ||||||
| 1 | 2 | 3 | 4 | 5 | 6 | |
| 7 | 8 | 9 | 10 | 11 | 12 | 13 |
| 14 | 15 | 16 | 17 | 18 | 19 | 20 |
| 21 | 22 | 23 | 24 | 25 | 26 | 27 |
| 28 | 29 | 30 | 31 | |||