åben .log og flet sammen med .log

(hver linie starter med dato/tid)

Meget afhænger af præsist hvordan selve log-linjerne er bygget op - er de opdelt med space eller tab eller...

Men her er mit (u-testede) hurtige bud.

--------------------------------------
#!/usr/local/bin/perl

$logdir = \'E:\\\\dir_med_logs\\\\\'; # Skal selfoelgelig vaere det aktuelle dir

opendir(LOGDIR, \"$logdir\") or die($!);
@logs = sort grep(/\\.log$/, readdir(LOGDIR));
closedir(LOGDIR);

foreach $log (@logs)
{
    open(LOG,\"$logdir.$log\");
        push @logen,<LOG>;
    close(LOG);
}

@logen = sort sorterEfterDato (@logen)

open(LOGEN,\">$logdir\".\'ny_samletog_sorteret_log.log\');
foreach (@logen)
{
    print (LOGEN) $_;
}
close(LOGEN);

sub sorterEfterDato
{
    @a = split(/\\t/,$a); # Maaske er det nøvendigt at \"splitte\" ved
    @b = split(/\\t/,$b); # et andet tegn end tab.
   
    # måske er det også nødvendigt at \"splitte\" dato og tid
    # for at sammenligne dem. men en simpel numerisk sammenligning
    # burde være ok.
   
    $a[0] <=> $b[0] or $b[1] <=> $a[1];
}
--------------------------------------

Jeg håber at har hjulpet dig lidt i gang.

vil mene at stenone\'s svar er en ok løsning... det var da i hvert fald sådan, jeg ville have lavet det...:)

Ja, jeg har siddet og \"leget\" lidt med det, men den kan ik rigtigt finde ud af det..

Den skriver der er fejl omkring det her:
----------------------------------
open(LOGEN,\">$logdir\".\'ny_samletog_sorteret_log.log\');
foreach (@logen)
{
    print (LOGEN) $_;
}
close(LOGEN);
----------------------------------

Er der en anden løsning på det?

mon ikke bare at det er fordi der ikke er de rigtige rettigheder på den mapp hvori du lægger den nye logfil?

Ehmm.. Der skulle gerne være fuld rettigheder, men skidt.. jeg har fundet en anden løsning.. ellers tak for hjælpen..

Hmm.. skal lige lave et lille svar..