Shell Programming and Scripting

while IFS='|' && read fname size
 do
 if [ -f $fname ]  ; then    # does file exist?
   cat $fname | wc -l | read linecount  # not a UUOC; eliminates an extra dummy variable
   if [ $linecount -eq $size ]  ; then   # is file the right size
         echo "$fname is good"
   else
         echo "$fname is there - wrong line count"
   fi
 else
   echo "$fname does not exist"
 fi
done < ExtractDataControl.txt

#!/usr/bin/env ruby 
files=Hash.new(0)
File.foreach("ExtractDataControl.txt") do |line|
 f,numlines = line.chomp.split("|")
 files[f+".txt"]=numlines.to_i
end
files.each_pair do |x,y|
  if File.exists?(x)
    count= File.read(x).split("\n").size
    if count != y
      print "Wrong size: #{x} should have #{y} lines, found #{count} lines\n"
    end
  end
end

$ wc -l R1020.txt R1001.txt  R1002.txt
 456 R1020.txt
 589 R1001.txt
 346 R1002.txt

$ cat ExtractDataControl.txt
R1001|589
R1002|345
R1020|456

$ruby test.rb
Wrong size: R1002.txt should have 345 lines, found 346 lines

linecount=$(wc -l < "$fname")

$ bash
$ cat infile | wc -l | read linecount ; echo $linecount

$ ksh
$ cat infile | wc -l | read linecount ; echo $linecount
14
$