How to count a string occurrence,search in between a pattern for specific string

Question

I am working on a ksh script whose scenario is as follows:

I have a text file for students' reports which contains details of students like:

Student_1
Name: ABC
Class:X
Head Teacher:SITA
Status: Pass 

Student_1
Name: ABCE
Class:X
Head Teacher:SITA
Status: Pass 

Student_2
Name:ABCD
Class:XI
Head Teacher:RYAN
Status: Fail

Student_50:
Name:MIKE
Class:X
Head Teacher:RYAN
Status:Fail

What I need to do is to

1. Find the number of students by counting the lines that start with Student_N;

2. Count how many students passed and how many students failed using the Status: line.

3. Find the name of students whose name starts with A.

I tried numerous things including:

sed -n '/Student_i<< Status/,/Status/p' students_details.txt >> report_card.txt
sed '/^Student_i<< Status/,/)/Status/$/!d/Status/s/^Student_i<< Status (///Status/s/);$//' students_details.txt >> report_card.txt
sed '/^Student_i<< Status/,/)Status$/!d;s/^Student_i<< Status (//;s/);$//' students_details.txt >> report_card.txt
sed '/^pass/,/);$/!d;s/^pass (//;s/);$//' students_details.txt>> report_card.txt

My desired output files are:

• For point 1:

  Student_1 : 2
  Student_2 : 1
  Student_50: 1
  

• For Point 2:

  Pass: 2
  Fail: 2
  

• For Point 3:

  Count of Students whose name starts with "A" : 3
  

Answer 1

Personally, I would do the whole thing in Perl:

$ perl -00ne '/^(Student_\d+)/ && $count{$1}++; 
              /Name:\sA/ && $As++; 
              /Status:\s*Pass/ ? $pass++ : $fail++; 
             END{
                print "$_ : $count{$_}\n" for keys(%count); 
                print "Pass: $pass\nFail:$fail\n"; 
                print "Student names starting with A: $As\n"
            }' file 

Student_2 : 1
Student_1 : 1
Student_50 : 1
Pass: 2
Fail:2
Student names starting with A: 2

If you insist on separate commands per operation, you could use:

$ awk '/^Student_/{a[$0]++} END{for(s in a){print s,a[s]}}' file 

Student_1 1
Student_2 1
Student_50: 1

$ perl -ne '$pass++ if /:\s*Pass/; $fail++ if /:\s*Fail/;
     END{print "Pass: $pass\nFail: $fail\n"}' file 

Pass: 2
Fail: 2

$ echo "Student names starting with A: $(grep -c "^Name:\s*A" file )"

Student names starting with A: 2