Naša slova u perlu ?

Radim projekat www.poslovi.co.sr za VETŠ.

Ali naišao sam na problem. Kada neko popuni formu sa nekim on "naših"
slova perl izbaci recimo umesto Š (sah) %B9 i sl.

Uradio bih ja to i bez podrške za naša slova kao prvu pomoć. Ali profan
je toliko bio zapeo za naša slova kada smo kucali radove, seminarske i sl.
da sam praktično puko ako ne uradim sa našim slovima.

Ako neko ima neku ideju ? Neka mi javi pošto bih trebalo da "predam"
projekat otprilike juče :(

Hm, a gde to Perl izbaci?

Probaj da formu prosleđuješ pomoću POST-a, a ne pomoću GET-a, ako već nemaš pojma kako se podaci iz forme prenose (znači staviš „<form method="post" action="blabla.cgi">“). Naravno, ne zaboravi da pošalješ i „Content-type: text/html; charset: UTF-8“ na svakoj stranici.

Potpis

Možda se moje mišljenje promenilo, ali ne i činjenica da sam u pravu.

Pa i saljem ga sa post metodom .... stavio sam i ovo sto si sada rekao a i :

print '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"><html><head><title>Untitled Document</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-2"><link href="style.css" rel="stylesheet" type="text/css"></head><body bgcolor="#CCCCCC" link="#FFFFFF" topmargin="5">';

odmah ispod. Pre sam samo stavio ovo jer tako mi je na stranici (html) koju
najnormalnije prikazuje ... sa š,č,ć ...ž :)

Čekaj koja je metoda za slanje kada je sve zajedno veće on 1024 bajta ?
posto je forma malo veća (dok opišeš znanje i sl... :)


Probao sam da stavim i ono charset=iso-8859-2 u zaglavnje (Content-type: text/html; ....) ali opet on ispiše %b9 umesto naših slova ;(

Pomagaj ....

Ček ček .... on mi i ! i ostale gluposti pretvori u %21 naprimer ....

evo ti source od skripte :

#!perl

print "Content-type: text/html; charset=iso-8859-2\n\n";

read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});

#$buffer = $ENV{'QUERY_STRING'};

@nvpairs = split (/&/,$buffer);

foreach $pair (@nvpairs){


print "$pair <br>\n";

}


moguće da je nešto u kodu ?

Eto vidiš sta VETŠ uradi od čoveka .... zaboravio sam da ga "dekodujem"

#!perl
print "Content-type: text/html; charset=iso-8859-2\n\n";
read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});
@nvpairs = split (/&/,$buffer);
oreach $pair (@nvpairs){


# sa ovim ovde

$pair=~s/\+/ /g;
$pair=~s/%(..)/pack("c",hex($1))/ge;

print "$pair <br>\n";

}

U svakom slučaju hvala ... i baš se sda mučiš verovatno da odgovoriš i da objasniš. I to nekome za koga ti se čini da pojma nema .... a od toliko C-a i Inženjerske matematike je samo malo prso :)

Pa zar nije lepše kada sam dođeš do rešenja? ;-)

Potpis

Možda se moje mišljenje promenilo, ali ne i činjenica da sam u pravu.