Filhantering...

Har gjort ett program som skall slumpa fram ett tal mellan 1 och 20. Programmet skall sedan hämta rätt rad ur en fil, och hämta den historia som finns till varje nummer.

Historierna i filen lagras enligt följande:
1::Bla..Bla..Bla
2::Bla..Bla..Bla

När progrannet slumpar fram exempelvis talet 2, så skall programmet hämta den historia som är förknippad med rad 2.

Detta fungerar alldeles utmärkt när jag kör lokalt, men inte när jag kör på mitt webkonto, som är unix.

Någon som kan se vad det beror på? Rättigheterna är korrekt satta, så det kan inte vara något sådant fel.

Mvh,
Demo

#!/usr/bin/perl

$historier = "historier.txt";

srand(time|$$);
$slump=int(rand 20);

open (MOTIV,"$historier");
while ($rad=<MOTIV> ){
$rad=~/(.*)::(.*)/;

$nummer=$1;
$historia=$2;

if($slump eq $nummer){

print "<center>$historia";

close (MOTIV);
exit;
}

}

Lägg in följande rad:

print "Content-type:text/html\n\n";

före din rad open (MOTIV,"$historier");

Övrigt:
Borde inte $slump ökas med ett också för att intervalet ska vara mellan 1-20.. Annars slumpas ett värde 0-19..

$slump=int(Rand 20)+1;

------------------
Svenska FF1
www.johan-skog.nu
/W*

[Redigerat av woodi den 03 apr 2000]

Hejsan Woodi!

Upptäckte detta efter ett tag. Tycker dock att det inte borde vara någon större skillnad om man kör lokalt eller inte.
Fungerar det lokalt, så tycker man ju att det borde fungera även i "produktionsmiljö".

För övrigt har du en bra hemsida.

//Demo