Results 1 to 2 of 2
Thread: Perl $_POST
Hybrid View
-
28th March 2010 19:19 #1Registered User
Join Date: Oct:2008
Location:
Posts: 95
Perl $_POST
,
$_POST , ( ) , - , .. . PHP :
...PHP Code:foreach ($_POST as $key => $value) {
$_POST[$key] = preg_replace("/\"/", """, $_POST[$key]);
$_POST[$key] = preg_replace("/\//", "/", $_POST[$key]);
if (!get_magic_quotes_gpc()) $_POST[$key] = preg_replace('@\\\@', "\", $_POST[$key]);
else {
$_POST[$key] = stripslashes($_POST[$key]);
$_POST[$key] = preg_replace('@\\\@', "\", $_POST[$key]);
}
Perl :
Can't modify non-lvalue subroutine call at...PHP Code:use CGI;
use CGI::Carp qw(fatalsToBrowser);
my $cgi = new CGI;
my @parameters = $cgi->param;
my $n = 0;
while ($parameters[$n]) {
$cgi->param("$parameters[$n]") =~ s/-/++/g;
print $cgi->param("$parameters[$n]");
$n++;
}

!
-
29th March 2010 20:55 #2Registered User
Join Date: Oct:2008
Location:
Posts: 95
Perl POST GET
Perl
. , :
my %form = $cgi->Vars;
while ((my $key, my $value) = each(%form)){
$form{$key} =~ s/\\/\/g;
$form{$key} =~ s/\////g;
$form{$key} =~ s/\"/"/g;
$form{$key} =~ s/\'|\`//g;
}
#my $text = $form{'____'};
!!!
hash . %form, -.




Reply With Quote
Lenovo ThinkPad 15 IdeaPad 15
5th May 2023, 22:16 in