Thomas told the rest of dk.edb.programmering.perl:
[...]
Her er en simpel ændring til dit script. Læg mærke til at jeg har alle
de linjer der starter med '>' er uændrede linjer - dem der ikke har et
'>' foran er ændrede eller tilføjede. Yderligere er linjerne før og
efter ændringerne også her så du kan se hvor ændringerne sker. Linjerne
der starter med '#' er kommentarer og behøver ikke blive inkluderet i
dit script:
> %chatters = ();
# Som udgangspunkt siger vi der er nul i chatten
$antal = 0;
> foreach $stuff (@chatstuff) {
# foreach betyder at for hver et-eller-andet i @chatstuff skal der
# gøres et eller andet. @chatstuff er en variabel der kan indeholde
# flere variabler - normalt kaldet et array.
# Det vi gør her at for hver variabel i array'et @chatstuff som
# indeholder en variabel for hver bruger af chatten med brugerens
# navn så øger vi variablen $antal med èn.
$antal = $antal + 1;
> }
# Når alle brugere er blevet talt op udskriver vi så resultatet.
print "Der er nu $antal på chatten\n";
> print "</body></html>";
> exit;
--
H e n r i k B o e g h ^
http://henrik.boegh.net/index.php?side=usenet
*** There's an X_ too much in my email address ***
"Underneith she's the woman of my dreams: Naked!"
- Ryan Reynolds as Berg in 'Two guys, a girl and a Pizza Place'