Προς το περιεχόμενο

Perl erotisi


zazik

Προτεινόμενες αναρτήσεις

Δημοσ.

didete o kodikas :

 

>sub program{
  local (*in)=@_if @_;
  local ($i,$loc,$key,$val);

  if($ENV{'REQUEST_METHOD'} eq "GET"){
	$in=$ENV{'QUERY_STRING'};
}elseif($ENV{'REQUEST_METHOD'}eq"POST"){
read(STDIN,$in,$ENV{'CONTENT_LENGTH'});
}
@in=split(/&/,$in);
foreach $i(0..$#in){
$in[$i]=~s/\+//g;

 ($key,$val)=split(/=/,$in[$i],2);

    @key=~s/%(..)/pack("c",hex($1))/ge;
    @val=~s/%(..)/pack("c",hex($1))/ge;

    @in{$key}.="\0" if (defined($in{$key}));
    @in{$key}.=$val;
}
return 1;
}

 

 

epidi den eho idea apo perl,tha ithela na mou pei kapios,horis na mou eksigisei

grammi grammi,ti kanei afto to programa poli genika.

Efharisto poli prokatavolika

Αρχειοθετημένο

Αυτό το θέμα έχει αρχειοθετηθεί και είναι κλειστό για περαιτέρω απαντήσεις.

Επισκέπτης
Αυτό το θέμα είναι πλέον κλειστό για περαιτέρω απαντήσεις.
  • Δημιουργία νέου...