Shell Programming and Scripting

 
$memcnt = 5;
$passt = ship;
open (ADVOUT, "< $chpdvlst") || die ("can not open file: $chpdvlst!");
while ($LINEIN2 = <ADVOUT>)
 {
  chomp ($LINEIN2);
  ($advid, $vaht, $grp, $xsinfo) = split(' ',$LINEIN2);
   $cnt1 = 0;
   
  if (($passt = $vaht) && ($cnt1 < $memcnt ))
     {
    
   # Check type
   if (($vaht =~ "ship") && ($grp=~ "N-Grp"))
   {
          print "$vaht $adevid ==> in free pool OK to use\n";
         $cnt1++;
   }
 
     }

$memcnt = 5;
$passt = ship;
open (ADVOUT, "< $chpdvlst") || die ("can not open file: $chpdvlst!");
while ($LINEIN2 = <ADVOUT>)
 {
  chomp ($LINEIN2);
  ($advid, $vaht, $grp, $xsinfo) = split(' ',$LINEIN2);
   $cnt1 = 0;
  if (($passt = $grpt) && ($cnt1 < $memcnt ))
     {
    print " $advid ===>Found in Free Pool.\n";
    $cnt1++;
     }
   else
      {
        print "$adevid===>  NOT FOUND in Free Pool ---  Check Before Using\n";
      }

$ cat script.pl
use warnings;
use strict;
use autodie;

@ARGV == 1 or die "Usage: perl $0 input-file\n";
open my $fh, "<", $ARGV[0];

my $cnt = 5;
my @f;

while ( <$fh> ) {
    chomp;
    @f = split;
    if ( $f[1] eq "ship" && $cnt-- > 0 ) {
        print $f[0] . " ===> ";
        if ( $f[2] eq "N-grp" ) {
            print "Found in Free Pool\n";
        } else {
            print "Not Found in Free Pool\n";
        }
    }
    if ( $cnt == 0 ) { last; }
}

close $fh;
$ perl script.pl infile
289B ===> Found in Free Pool
289C ===> Found in Free Pool
289D ===> Found in Free Pool
299B ===> Found in Free Pool
299C ===> Found in Free Pool

$memcnt = 5;
$passt = "ship";
$cnt1 = 0;
open (ADVOUT, "< $chpdvlst") || die ("can not open file: $chpdvlst!");
while (($LINEIN2 = <ADVOUT>) && ($cnt1 < $memcnt)) {

    chomp ($LINEIN2);

    ($advid, $vaht, $grp, $xsinfo) = split(' ',$LINEIN2);

    if (($passt eq $vaht) && ($grp eq "N-grp")) {
        $cnt1++;
        print "[$cnt1] $advid ===>Found in Free Pool.\n";
    }
}