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

nordanMedlem sedan juni 2000949 inlägg

Frågan21 juni 2000 19:36#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

22 juni 2000 06:01#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") &#0124; &#0124; 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