如何用perl实现：获取定位的一段文字

scofieldus

比如说我要获取[Question 1.10] 到 [Question 1.11] 这一段中的文字，请教一下各位如何实现

1. 
   
2. #!/usr/bin/perl -w
   
3. use strict;
   
4. my @article=();
   
5. #my $sourcefile = $ARGV[0];
   
6.         #open(SFHD,"$sourcefile");
   
7.         while(<DATA>)
   
8.         {
   
9.                 if(!@article && /^\s*$/){print; next}
   
10.                 push @article,$_;
    
11.                 if(/\[Question 1\.10\](.*)\[Question 1\.11\]/s)
    
12.                 {
    
13.                         print $1;
    
14.                 }
    
15. 
    
16.         }
    
17. 
    
18. __DATA__
    
19. [Question 1.10] Which two options will influence the frequency of checkpoints?(Choose two.)
    
20. A.the value that is specified for the LOG_CHECKPOINT_TO_ALERT parameter
    
21. B.the size of the data files
    
22. C.the size of the control file
    
23. D.the value that is specified for the PGA_AGGREGATE_TARGET parameter
    
24. E.the value that is specified for the FAST_START_MTTR_TARGET parameter
    
25. F.the size of redo log files
    
26. Correct Answers: E,F
    
27. [Question 1.11] Which two statements regarding the database writer (DBWn)
    
28. background process are true? (Choose two.)
    
29. A.It writes dirty buffers to the data files before the log writer (LGWR)
    
30. writes.
    
31. B.It is an optional background process.
    
32. C.It writes dirty buffers to the data files whenever a transaction
    
33. commits.
    
34. 
    

复制代码

cobrawgl

如果你的格式不变的话，可以这么做

-----------


#!/usr/bin/perl
use strict;
use warnings;

$_ = join '', <DATA>;

print $1 if /\](.*?)\[/s;


__DATA__
[Question 1.10] Which two options will influence the frequency of checkpoints?(Choose two.)
A.the value that is specified for the LOG_CHECKPOINT_TO_ALERT parameter
B.the size of the data files
C.the size of the control file
D.the value that is specified for the PGA_AGGREGATE_TARGET parameter
E.the value that is specified for the FAST_START_MTTR_TARGET parameter
F.the size of redo log files
Correct Answers: E,F
[Question 1.11] Which two statements regarding the database writer (DBWn)
background process are true? (Choose two.)
A.It writes dirty buffers to the data files before the log writer (LGWR)
writes.
B.It is an optional background process.
C.It writes dirty buffers to the data files whenever a transaction
commits.

scofieldus

谢谢啦，
能跟我解释一下
$_ = join '', <DATA>;

这一句吗

cobrawgl

join EXPR,LIST
Joins the separate strings of LIST into a single string with fields separated by the value of EXPR, and returns that new string. Example:

    $rec = join(':', $login,$passwd,$uid,$gid,$gcos,$home,$shell);

Beware that unlike split, join doesn't take a pattern as its first argument. Compare split.


----------

呃，其实就是 perldoc -f join