Linjer i Perl 3

For at indlæse filen kan du bruge:

open (FILE, "<$Filnavn");  ## åbner filen
@Linier = <FILE>;  # Hvis dette ikke virker, brug: while (<FILE>) {push @Linier, $_}
close (FILE);

herefter skal det hele splittes:

for $Linie (@Linier)
{
  @Felter = split/|/,$Linie;
  ### Hvad skal der så ske med dem???  $Felter[0], $Felter[1] ... indeholder nu felterne
  push @LinieriFelter, (@Felter)    ## Ikke sikker på det virker, men hvis det virker, så kan du senere bruge $LinieriFelter[$Linie][$Felt]
}

mht. udskrivning.. hvad er det helt præis du mener?

open (FILE, "<datafil.txt") or die "Kunne ikke finde filen: $!";
@Linier = <FILE>;
foreach $IndexT (0 .. $#Linier-1)
{
        $tmp = $Linier[$IndexT];
        @$tmp = split(/\|/,$Linier[$IndexT]);
}
close (FILE);

Så kan du referere til felterne som:
$Linier[Linie nummer - 1][felt nummer - 1]

Altså udskrive linie 4, felt 7:
print $Linier[3][6];

Michael

OK.. jeg indrømmer mit det var bugbefængt.. så her kommer lige en lidt bedre version :)


open (FILE, "<$Filnavn");  ## åbner filen
@Linier = <FILE>;
close (FILE);
for $Linie (@Linier)
{
  @Felter = split/\|/,$Linie;
  push @LinieriFelter, [@Felter];
}

(herefter virker $LinieriFelter[linie][felt] - husk dog at 1.linie/felt er 0)