UNIX for Dummies Questions & Answers

ravi123|2344|M
R123Vi|2345|F
R_'345|278|M
ra12|*&|F

R_'345|278|M
ra12|*&|F

ravi123|2344|M
R123Vi|2345|F
|278|M
ra12||F

@pat = ("[0-9A-Za-z]","[0-9]","[MF]");
open (input, "input.txt") or die $!;
while (<INPUt>)
{
$input_rec = $_;
@arr = split(/\|/, $input_rec);
$count = 0;
$valid = 1;
foreach $i (@arr)
{
        $i =~ s/$pat[$count]+/1/g;
        if ( $i == 1 )
    {
       $count++;
       $valid++;
    }
    else
    {
      $count++;
     #      $accept[$count] = NULL;
    }
 
}
     if ($valid != 4)
     {
     `echo $input_rec >> reject.txt`;
     }
 
}

#!/usr/bin/perl

use strict;
use warnings;

open (my $records_file, '<', 'input.txt') || die "Couldn't open input.txt:\n\t $!";
open (my $accepted , '>', 'accepted.txt')||die "Couldn't open accepted.txt\n\t$!";
open (my $rejects , '>', 'rejects.txt')||die "Couldn't open rejects.txt\n\t$!";
while (<$records_file>){
   if (/^[0-9a-zA-Z]+\|[0-9]+\|[MF]$/ ){
      print $accepted $_;
   }
   else {
      print $rejects $_;
   }
}
close($accepted);
close($rejects);
close($records_file);
print "The valid records from input.txt are in the file accepted.txt and the invalid are in rejects.txt\n";
exit;