---
title: "Clickcount 2"
type: "forum-thread"
url: "https://www.webforum.nu/amne/perl-ruby/19097-clickcount-2"
topic: "Perl & Ruby"
topic_url: "https://www.webforum.nu/amne/perl-ruby"
author: "Robba"
published: "2000-07-09T08:43:00.000Z"
updated: "2000-07-09T17:17:00.000Z"
replies: 4
views: 335
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/perl-ruby/19097-clickcount-2"
---

# Clickcount 2

## #1 — Robba, 2000-07-09T08:43Z

Hur gör jag för att bara läsa in de 5 första raderna ifrån denna db? Nedanstående "script-snutt" läser in samtliga raderna

\# write all urls 

  open(DATA, "$dbfile");
  @db = \<DATA\>;
  close(DATA);
  foreach (@db) {
    ($clicks, $url) = split /\\\|/;
		$totclicks = $totclicks+$clicks;
    print qq\|
  \<tr\>
    \<td\>\<font face="Tahoma" size="2"\>$url\</font\>\</td\>
    \<td\>\<font face="Tahoma" size="2"\>$clicks\</font\>\</td\>
  \</tr\>
\|;
  }

Permalänk: https://www.webforum.nu/p/19097

## #2 — demo, 2000-07-09T10:47Z

Prova med att lägg till en until-sats i programmet.

```
$k=1;
until ($k eq 5){

' Det du vill att programmet skall göra

$k++;
}
```

Permalänk: https://www.webforum.nu/p/340873

## #3 — Robba, 2000-07-09T12:34Z

Jag är ganska "ny" på CGI/Perl, vad exakt ska jag skriva där det står "Det du vill att programmet skall göra"

Tanken är att scriptet ska läsa in dom 5 länkarna som flest har klickat på, en Topp 5 lista typ!

Tacksam för svar...

Permalänk: https://www.webforum.nu/p/340874

## #4 — demo, 2000-07-09T15:54Z

Jag är nybörjare även jag.
Men du bör väl även kunna lägga in en räknare som avbryter när du skrivit ut de 5 första raderna.

Förslagsvis något i nedanstående stil.

Men som sagt, jag är nybörjare även jag.

Mvh,
Demo

```
$antal=1;
open(DATA, "$dbfile");
@db = <DATA>;
close(DATA);
foreach (@db) {
($clicks, $url) = split /\|/;
$totclicks = $totclicks+$clicks;
print qq|
<tr>
<td><font face="Tahoma" size="2">$url</font></td>
<td><font face="Tahoma" size="2">$clicks</font></td>
</tr>
|;
$antal++;

if($antal eq 5){

' Vad som skall ske när 5 rader skrivits ut Typ, "exit;" eller gå till någon subrutin

}
}
```

Permalänk: https://www.webforum.nu/p/340875

## #5 — Robba, 2000-07-09T17:17Z

Tack, ska testa det senare!

Permalänk: https://www.webforum.nu/p/340876

---

Tråden på webben: https://www.webforum.nu/amne/perl-ruby/19097-clickcount-2