Shell Programming and Scripting

nofile=131072
noproc=131072
memlock=3500000

#!/usr/bin/perl
$FILE1 = "/home/sriram/perl_scripts/limits.conf";
open(FILE, "$FILE1"); 
# or die("Could not open limits.conf file.");
while (<FILE>){
chomp;
foreach $word (split)
{
print "$word \n";
}
}
close(FILE);

#!/usr/bin/perl

$LimitsFile = "/home/sriram/perl_scripts/limits.conf";

my $RefValue = {
                            nofile => 131072,
                            noproc => 131072,
                            memlock => 3500000,
                         } ;

open(FILE, '<',"$FILE1") or die("Could not open limits.conf file.");
while (<FILE>)
{
      chomp;
      foreach my $line ($_)
     {
          next if ( $_ !~ /^(nofile|noproc|memlock)=$/ ) ; 
          my($key,$val) = split(/=/,$_,2) ; 
          print "Error MESSAGE\n" if ($RefValue->{$key} != $val )  ;
     }
}
close(FILE);

#! /bin/sh

awk '
NR==FNR {
        split($0, a, "=")
        var[a[1]]=a[2]
        next
}
NR!=FNR && $0!~/^#/ && NF==4 {
        if ( $3 in var && var[$3]==$4) {
                print
        }
}
' /home/sriram/perl_scripts/limits.conf /etc/security/limits.conf