zazik Δημοσ. 11 Ιανουαρίου 2007 Δημοσ. 11 Ιανουαρίου 2007 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
Προτεινόμενες αναρτήσεις
Αρχειοθετημένο
Αυτό το θέμα έχει αρχειοθετηθεί και είναι κλειστό για περαιτέρω απαντήσεις.