perl checke på comando line argumenter og udskrive fil.

print $ARGV[0];

giver første argument

og dette giver dem alle

for ($i=0;$i<=$#ARGV;$i++) {
  print $ARGV[$i].\"\\n\";
}

Skal du læse de sidste linier af en fil, nogenlunde effektivt, spoler du ned til
bunden af filen, og går så mange bytes tilbage, som er rimeligt (kig på
typisk linielængde). Den første linie er typiske ikke komplet, men resten kan
skrives ud. Noget i denne stil:

open(F,\"access.log\");
sysseek(F,-10000,2);
sysread(F,$buffer,10000);
@a=split(/\\n/,$buffer);
for ($i=0;$i<=$#a;$i++) {
  print \"Linie: $a[$i]\\n\";
}

Jeg får følgende fejl når jeg prøver at ekskvere læsning af filen.

syntax error in file simon.pl at line 35, next 2 tokens \"sysseek(\"
Execution of simon.pl aborted due to compilation errors.

scriptet ser således ud?

if($fail eq \"Empty job\" || $fail eq \"None\" || $fail eq \"Not in time window\") {
      print \"det virker\";
      exit 0;
                     
  }
  else {

    $file=\'c:\\log\\archman.log\';
    open(F,$file);
    sysseek(F,-10000,2);
    sysread(F,$buffer,10000);
    @a=split(/\\n/,$buffer);
    for ($i=0;$i<=$#a;$i++) {
      print \"Linie: $a[$i]\\n\";
    }

}

øh - hvilken version af Perl kører du?