webForumDet fria alternativet

Gå dit och lägg in där !!

1 svar · 328 visningar · startad av nordan

nordanMedlem sedan juni 2000949 inlägg
#1

Hejsan!
Är det någon som kan tala om för mig hur man gör för att lägga in ett värde i en html tagg
Alltså om man har en Select meny dit man vill att folk skall lägga in sina webbsidor.
I själva formuläret skall man alltså bara
uppge Namn på sidan och adressen sen skall detta skicka till en annan websida som
har en Select meny.
Det jag vill ha reda på är hur man talar om för perl scriptet att den skall lägga in namnet och adressen efter de föregående adresserna.
Hoppas någon förstod dett
Mvh
Nordan

JojoxxMedlem sedan juni 20004 308 inlägg
#2

Börja med att spara ner valet till en tab-separerad fil.

use CGI;
if(CGI::param('user') && CGI::param('url')){
open(OUTDATA,">>datafil.tab") | | die("Kan inte skriva till datafil.tab");
print OUTDATA CGI::param('user') . "\t" . CGI::param('url') . "\n";
close(OUTDATA);

Sedan kan du läsa in adresserna till en $variabel med;

$lista="<select name=\"foo\">\n";
open(INDATA,"datafil.tab") &#0124; &#0124; die("Kan inte läsa filen datafil.tab");
foreach $tmp (<INDATA> ){
chomp $tmp; # Ta bort radbrytning
($user,$url) = split(/\t/,$tmp); # Plocka ut användare och url
$lista .= "<option value\"$url\">$user</option>\n"; # Lägg till användaren i listan
}
$lista .= "</select>\n";

Sedan kan du skriva ut listan var du vill på sidan (hellst i ett formulär ;) ) med;

print $lista;

------------------

/ J

575 ms totalt · 3 externa anrop · v20260731065814-full.30151723
573 ms — hämta forumlista (db)
0 ms — hämta statistik (cache)
127 ms — hämta tråd, inlägg och bilagor (db)