#!/usr/bin/perl
#<"SplitFile.pl"> Split File
undef $/;
$OPTION=$ARGV[0];
$SEARCH=$ARGV[1];
$FLNAME=$ARGV[2];
$pid = open(XFILE, $FLNAME) or die "Couldn't fork: $!\n";
  @finfo=split(/(\n\n)/, <XFILE>);
$tRecsInfo = @finfo;
@MATCHING = ();
if ( $OPTION eq "with" )
{
    @MATCHING = grep /$SEARCH/i, @finfo;
}
else
{
    @MATCHING = grep !/$SEARCH/i, @finfo;
}
$tMATCHING = @MATCHING;
print "@MATCHING";
#print "\nI read ",  scalar(@finfo), " RECORDS\n";
print "\nI read ",  $tRecsInfo, " RECORDS\n";
print "I Selected ",  $tMATCHING, " RECORDS\n";

##</code><code>##

rrliupau:*:885:999:RRID - Paul Liu:/home/support/rrliupau:/usr/bin/ksh
rrliupau ^rr in ID
rrliupau RRID in Desc
rrliupau Hard Link to Profile
rrliupau Hard Link to Standard RRID Profile
rrliupau Size 1078 Standard RRID Profile
rrliupau RRID MultiSelect -r || exit 1
rrliupau   2974 -r-xr-xr-x  113 root       support       1078 Jun 23  2007 /home/support/rrliupau/.profile
rrliupau slogint=Mon Jul 27 19:33:39 2009, lockout=0000000

rrdanilh:*:892:999:RRID - Nataliya Danilchenko:/home/support/rrdanilh:/usr/bin/ksh
rrdanilh ^rr in ID
rrdanilh RRID in Desc
rrdanilh Hard Link to Profile
rrdanilh Hard Link to Standard RRID Profile
rrdanilh Size 1078 Standard RRID Profile
rrdanilh RRID MultiSelect -r || exit 1
rrdanilh   2974 -r-xr-xr-x  113 root       support       1078 Jun 23  2007 /home/support/rrdanilh/.profile
rrdanilh slogint=Tue Jul 21 15:51:07 2009, lockout=0000000

rrtrthki:*:904:999:RRID - Kim Thanh-Tran:/home/support/rrtrthki:/usr/bin/ksh
rrtrthki ^rr in ID
rrtrthki RRID in Desc
rrtrthki Hard Link to Profile
rrtrthki Hard Link to Standard RRID Profile
rrtrthki Size 1078 Standard RRID Profile
rrtrthki RRID MultiSelect -r || exit 1
rrtrthki   2974 -r-xr-xr-x  113 root       support       1078 Jun 23  2007 /home/support/rrtrthki/.profile
rrtrthki slogint=Tue Jul 21 19:58:15 2009, lockout=0000000