Search Question in a text file and print Answers

[tqlam]

I have a text file with Questions and Answers in below.
I wrote something in perl to search a question(s), if match Q's, then print Answers up to End_Q#.

Can someone here help me in printing output?
Example: User search for "How to dot this"
Then it returns:
1. do this
2. do that
3. and do that


Q and A File:
-------------------------
Q1 How to do this
1. do this
2. do that
3. and do that

End_Q1

Q2 What is bah bah bah
- This is
- It is
- And so on

End_Q2
-----------------------

Thank in advance for your help!
Thanh

 

[travs69]

Can you show us you code?

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Travis - Those who say it cannot be done are usually interrupted by someone else doing it; Give the wrong symptoms, get the wrong solutions;

 

[tqlam]

my $FAQ = "FAQ.log";
my $query = $ARGV[0];

unless (open(DBFILE, "$FAQ")) {
print "ERROR: Cannot open the System Test FAQ
exit 1;
}
my @DB = <DBFILE>;
close (DBFILE);

foreach my $line (@DB) {
if ($line =~ /\AQ_/ && $line =~ /$query/) {
print $line;
# I need to print the following lines up to
# the End_Q#
# If query matches multiple Q#s, print both
# Question and Answers
}
}

 

[KevinADC]

Is this school/class/course work?

------------------------------------------
- Kevin, perl coder unexceptional!

 

[tqlam]

It's for work, but I'm new to the perl world.

 

[travs69]

unless (open(DBFILE, "$FAQ")) {
   print "ERROR: Cannot open the System Test FAQ
   exit 1;
}

to

open(DBFILE, "<$FAQ") or die "ERROR: Cannot open the System Test FAQ: $!\n";

I guess you could to a print then exit 1 if you really wanted to
besides that I will let one of the other more knowledgeable guys answer the regex part

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Travis - Those who say it cannot be done are usually interrupted by someone else doing it; Give the wrong symptoms, get the wrong solutions;

 

[KevinADC]

You have this question posted on 3 or 4 forums, I prefer to not help people that cross-post, that is my own personal policy, not the policy of Tek-Tips.

------------------------------------------
- Kevin, perl coder unexceptional!