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
Gå dit och lägg in där !!
1 svar · 328 visningar · startad av nordan
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") | | 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