Random Funktion I Perl

Davs!

Ved absolut intet om Perl, men fandt da dette:

http://www.eksperten.dk/spm/25725

https://sourceforge.net/projects/nms-cgi/

Her finder du rand_text, som kan præcist det du ønsker

Her er lidt du kan lege med... hver linie læses fra fil.txt ind i @textarray og der spyttes derefter en tilfældig post i array'et ud...


#!/usr/bin/perl

srand;

open(TEXT,"fil.txt") or die("Kunne ikke åbne fil: $!\n");
@textarray=<TEXT>;
close(TEXT) or die("Kunne ikke lukke fil: $!\n");

printf("Her kommer random ting: %s\n", @textarray[rand(@textarray)]);

accepterede thomas fordi han kom med koden og ikke bare et link :)

men tak for hjælpen allesammen

fair nok...

bemærk at koden ikke er testkørt... den er bare skrevet hurtigt... hvis det ikke virker, så sig lige til...