Shell Programming and Scripting

perl -F':' -lane '$F[4] == 90 ? print "Good" : print "Bad"' /etc/shadow

perl -F':' -lane '$F[4] == 90 ?'
        {
                print "Good" : AD.1.1.1.1 `/etc/shadow`;
}
else
{
                print "Bad" : AD.1.1.1.1 ` /etc/shadow`;
}

  {
                 print "GOOD:   /etc/shadow  has the 5th value is 90\n\n";
}
else
        {
                print "BAD:  /etc/shadow does not have 5th value 90\n\n";
}

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

open FILEHANDLE, "< /etc/shadow";

my $line = "";
my @fields = ();

while ($line = <FILEHANDLE>) {
    chomp($line);
    @fields = split /:/, $line;
    if ($fields[4] == 90) {
        print "$line ====>> Good\n";
    }
    else {
        print "$line ====>> Bad\n";
    }
}

close FILEHANDLE;