if ( $linea =~ /TaskName:\s+(.*)/ ) {
    print "Tarea $1\n";
}

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;

open MYLOG, '<kk.log' or die "No pude abrir el fichero de log: $!\n";

while (<MYLOG>) {
    if (/^(HostName|TaskName|Status|Last Result):\s+(.*)/) {
        printf "%-12s: %s\n", $1, $2;
        print "\n" if $1 eq 'Last Result';
    }
}

close MYLOG;

#!/usr/bin/perl -n
if (/^(HostName|TaskName|Status|Last Result):\s+(.*)/) {
    printf "%-12s: %s\n", $1, $2;
    print "\n" if $1 eq 'Last Result';
}

#!perl

# define the file where we'll dump the logfile of schtasks
my $jobfile = "c:/tmp/dump.txt" ;
unlink ($jobfile) or die "cannot remove $jobfile: $!\n" ;

# first run schtasks /query /fo /list /v and dump everything to a file
my $schtasks_dump = `schtasks /query /fo list /v > $jobfile`;

# open file RO, or croak
open (JOBS, $jobfile) or die "couldn't open $jobfile: $!\n";

my $count = 0;
my $ok = 0;
# parse file, if string Last Result is not 0 (success), croak
while (<JOBS>) {
    if (/^(Last Result:)\s+(.*)$/) {
        # count how many jobs there are, we'll use this later
        $count++;
        # if an error level is not 0, croak
        if ($2 != 0) {
            print "WARNING: problem with a scheduled job\n";
            exit 1;
        }
        # now we count how many jobs have run fine
        else {
            $ok++;
        }
    }
}

if ($count = $ok) {
    print "OK: all scheduled tasks have run fine\n";
    exit 0;
}
else {
    # if there is something wrong, give unkonw and errolevel 3
    print "UNKONWN: something else went wrong\n";
    exit 3;
}

if ($count = $ok) {

if ($count == $ok) {

#!perl
use strict;
use warnings;
use diagnostics;

# first run schtasks /query /fo /list /v and dump everything to a file
open (JOBS, "schtasks /query /fo list /v |") or die "couldn't exec schtasks: $!\n";

# Counters
my $count = 0;
my @count = ();

# parse file, if string Last Result is not 0 (success), croak
while (<JOBS>) {
    if (/^Last Result:\s+(.*)$/) {
        # count how many jobs there are, we'll use this later
        $count++;

        # By type
        $count[$1]++;
    }
}

close JOBS;

if ($count[1]) {
    warn "WARNING: problem with $count[1] scheduled jobs\n";
    exit 1;
}

if ($count[0] == $count) {
    warn "OK: all scheduled tasks have run fine\n";
    exit 0;
}
else {
    # if there is something wrong, give unkonw and errolevel 3
    warn "UNKONWN: something else went wrong\n";
    exit 3;
}

__END__