Hente og skrive en liste ud fra en txt database

Et bud:

open(DB, "<dinFil.txt") || die("Kunne ikke åbne filen.");

while (<DB>)
{
    chomp;
    @lineParts = split(/,/, $_);
    printf "%s %s\n", $lineParts[0], $lineParts[2];
}

close(DB);

Har du fået kigget på det?

Hei nielle! Er tilbage fra en lag reise ...
Den give mig en hell liste, dvs. alle $lineParts[0] og $lineParts[2] men du er inne på noe her:) Hmm..., hvordan kan jeg liste bare 'tele.dk' her?

Hvad er kriteriet for lige at få fat på den ud af alle de andre? Er det fordi at den er den 1.linje, eller måske fordi at den er den eneste .dk i blandt de ander? Eller hvad?

if ($lineParts[1] eq 'tele.dk'){
  printf "%s %s\n", $lineParts[0], $lineParts[2];}

He,...he,he, og det var det:) smi et svar nielle

Svar :^)

nielle -> hm..., hvordan kan jeg lave en ny string istedenfor -> print it as:
printf "%s %s\n", $lineParts[0], $lineParts[2];}

Jeg skal bruke output i et andet sub_, det er her det stoper opp nu.
Any ideas?

$nyString = $lineParts[0] . " " . $lineParts[2];

- eller:

$nyString = sprintf("%s %s", $lineParts[0], $lineParts[2]);

Jeg har prøvd begge, alt jeg får er altid den sidste linje.

Hvis du skal have begge to, skal de jo gemmes i et array:

open(DB, "<dinFil.txt") || die("Kunne ikke åbne filen.");

@arr = ();

while (<DB>)
{
    chomp;
    @lineParts = split(/,/, $_);
    if ($lineParts[1] eq 'tele.dk')
    {
        push(@arr, sprintf("%s %s\n", $lineParts[0], $lineParts[2]));
    }
}

close(DB);

Nix har prøvd med:
$nyString = push(@arr, sprintf("%s %s\n", $lineParts[0], $lineParts[1]));

dvs.:
open(DB, "<dinFil.txt") || die("Kunne ikke åbne filen.");

@arr = ();

while (<DB>)
{
    chomp;
    @lineParts = split(/,/, $_);
    if ($lineParts[1] eq 'tele.dk')
    {
        $nyString = push(@arr, sprintf("%s %s\n", $lineParts[0], $lineParts[1]));
    }
}

close(DB);

print $nyString;
# men jeg får bare et 2 tall

$nyString = push(@arr, sprintf("%s %s\n", $lineParts[0], $lineParts[2]));
# sku det være

print @nyString;

Ikke:

$nyString = push(@arr, sprintf("%s %s\n", $lineParts[0], $lineParts[1]));

- men:

push(@arr, sprintf("%s %s\n", $lineParts[0], $lineParts[1]));

.. og så ligger resultatet i arrayet @arr

Tusind tak for hjelpen, ser lys i det andet ende nu :)
Ha en god aften.
MVH Terra