use strict;
use Win32::OLE;

my $service = "Print Spooler";
my $d = Win32::OLE->GetObject("WinNT://domainname"); # ... or just Get
+Object("WinNT:")
my $c = $d->GetObject("Computer", $opts{computer});
my $s = $c->GetObject("Service", "spooler");

eval {$s->Invoke('Stop');};
sleep 1;
eval {$s->Invoke('Start');};
sleep 1;
[download]

# unchecked code, sorry.
my @x = <FH>;
@x = @x[($#x-100>0?$#x-100:0)..$#x];
[download]

Courage, the Cowardly Dog

@x = @x[($#x-100>0?$#x-100:0)..$#x];

I find   @x = @x[0..99] if @x > 100; to be more readable. YMMV.

Well, the question was about taking the last 100 lines. You can use splice for that:

    splice @x => 0, -100;
[download]

will keep the last 100 lines in @x. If you just want to keep the first 100, use

    splice @x => 100;
[download]

Both will work without warnings if @x contains less than 100 elements.

Abigail

Good point. But it needs to be

@x = reverse(@x[reverse -99..-1]) if @x > 100;
[download]

?

updated sorry, I wrongfully read a question, I thought about *last* 100 lines. My wrong.

Courage, the Cowardly Dog

> my @x = <FH>;
> @x = @x[($#x-100>0?$#x-100:0)..$#x];
[download]

This will read in the whole log, quite inefficient if your log files are big..

Consider this:

open LOG,"<","/some/log" or die $!;
seek LOG,-50000,2;  # go to 50K from the end (assuming your log-lines 
+have 500 or less characters)
my @lines = <LOG>;  # get all from there
splice @lines => 0, -100;  # see [Abigail-II]'s comment
close LOG;

print @lines;
[download]

</code>

-- 
Joost       downtime n. The period during which a system
            is error-free and immune from user input.
[download]