Filer og EOF!

Der er mange måder at gøre det på. Jeg ville foreslå noget i stil med følgende. Først en opskærning af data i de dele, der skal i de forskellige filer, og efterfølgende skrivning til filerne.

Det antages at indholdet til filerne ligger i @datalines.

(Bemærk: koden er ikke testet, så der skal sikkers rettes lidt til).
--
my @datalines; # <- indeholder linjerne til filerne...
my $maxlinesprfile = 499;
my $count = 0;

my @fileContent;
my @toFile;

while (@datalines) {
        push @toFile, $_
        $count++

        if ($count == $maxlinesprfile) {
                $count = 0;
                push @fileContent, \\@toFile;

                @toFile = ();
        }
}

my $filename=\'data.\';
$count=0;
foreach $filedata (@fileContent) {
        open OUTFILE, \"$filename$count\";
        foreach (@$filedata) { print OUTFILE $_ }
        close OUTFILE;
        $count++
}

Pyha det var en hård en, sådan har jeg ikke gjort, næsten ikke =))

Det jeg var ude efter var hvordan man tester på linierne i en fil, men eller tak for dit fine kode, må man gå så vidt og kalde dig Karl Koder???

Så skal du vel bare starte med et hælde hele filens indhold ind...

my @datalines;
open DATA, \'indfile\';
while (<DATA>) { push @datalines, $_;
close DATA;

for derefter at bruge ovenstående kode?

Hvis det du vil opnå er maks at læse 500 linjer fra filen, så skal du nok lave noget i stil med

my @data;
my $count =0;
open FILE, \'inddata\';
while (<FILE> && $count < $maxlinesprfile) {
  push @data, $_;
  $count++;
}
close FILE;

Takker! Det var lige hvad jeg søgte ;oP

Hmm den tester ikke ordenligt, den tæller bare op til 500 uden at kontrollere linierne

Ret i while linjen så && bliver til ||

Det er naturligvis ikke en \"og\", men en \"eller\" betingelse, der skal ind.

Nope bliver ved til uendelighed.

Kan man ikke gøre dette?

while ( fil || $taeller <= 499 || fil->EOF )


P.s i de bøger jeg har, står der ikke en skid og test på EOF i filer, skod.

Har oprettet et nyt spørgsmål!  Er det ikke det rigtig at gøre når jeg har accepteret dit svar?

Normalt burde <FILE> returnere false når de fil ikke er længere.

Jeg prøvede lige at lave følgende script:
--

#!/usr/bin/perl -w
use strict;

my @data;
my $maxlines = 100;
my $count =0;
open FILE, \'test.data\';
while (<FILE> && $count < $maxlines) {
  push @data, $_;
  $count++;
}
close FILE;

print \"Read $count lines\\n\";

exit();
--
I filen \"test.data\" havde jeg 2000 linjer, og hvis jeg prøver at justere $maxlines til 2000+ linjer læser den kun 2000, og sætter jeg den mindre, læser den mindre.

Hmmmm skummel, jeps dit script virker.....jeg lukker den anden igen, så må jeg hellere rode lidt mere med det.

Måske druesukker kan gøre nogle underværker *S*