用perl匹配了正则表达式之后，怎么得到匹配部分的字符串？

prc

例如

1. 
   
2. #$mystring='#include "stdio.h"';
   
3. $mystring='#include <stdio.h>;';
   
4. $pattern='[ \t]*#include[ \t]+(".*"|\<.*\>;)';
   
5. 
   
6. print $mystring=~/$pattern/;
   
7. print "\n";
   
8. 
   
9. $ss=$mystring=~/$pattern/;
   
10. print "$ss";
    
11. print "\n";
    

复制代码

输出分别是
<stdio.h>;
1

如果我想把<stdio.h>;赋给某个变量，那应该怎么做呢？

flw

$&

ulmer

you have not yet really understand regular expression
Pleas read it again and again!

For examples:

1. 
   
2. $string = "<foo>; <bar>;";
   
3. 
   
4. if ($string =~ m/^\<(.+)\>;\s+\<(.+)\>;$/) {
   
5.    $str_1 = $1;
   
6.    $str_2 = $2;
   
7. }
   
8. 
   
9. # $str_1 will be 'foo';
   
10. # $str_2 will be 'bar';
    

复制代码

Best,
    Ulmer