为啥匹配不出来呢，急死了

zhouhaiming

PRO_PLANT_UNIT_REDUCE_POLLUTE  -> MID_PLANT_UNIT_REDUCE_POLLUTE   |RPT_MONTH      |DEPT_ID   |wf_mid_plant_unit_reduce_pollute_init.tt2 |template_refresh_1.tt2

脚本
($source_table, $target_table, $rpt_month, $dept_id, $template_init, $template_refresh) = $_ =~ /^\s*(\w+)\s*->\s*(\w+)\s*\|\s*(\w+)\s*\|\s*(\w+)\s*\|\s*(\S+)\s*\|\s*(\S+)\s*$/;

匹配不出来

tmp

你的代码在我这里好好的

1. 
   
2. $ cat test.pl                                                                                                               
   
3. #!/usr/bin/perl                                                                                                                             
   
4.                                                                                                                                             
   
5. my $str="PRO_PLANT_UNIT_REDUCE_POLLUTE  -> MID_PLANT_UNIT_REDUCE_POLLUTE   |RPT_MONTH      |DEPT_ID   |wf_mid_plant_unit_reduce_pollute_ini
   
6. t.tt2 |template_refresh_1.tt2";                                                                                                            
   
7.                                                                                                                                             
   
8. ($source_table, $target_table, $rpt_month, $dept_id, $template_init, $template_refresh) = $str =~ /^\s*(\w+)\s*->\s*(\w+)\s*\|\s*(\w+)\s*\|
   
9. \s*(\w+)\s*\|\s*(\S+)\s*\|\s*(\S+)\s*$/;                                                                                                   
   
10.                                                                                                                                             
    
11. print "1:$source_table\n";                                                                                                                  
    
12. print "2:$target_table\n";                                                                                                                  
    
13. print "3:$rpt_month\n";                                                                                                                     
    
14. print "4:$dept_id\n";                                                                                                                       
    
15. print "5:$template_init\n";                                                                                                                 
    
16. print "6:$template_refresh\n";                                                                                                               
    
17.                                                                                                                                             
    
18.                                                                                                                                             
    
19. $ perl test.pl                                                                                                              
    
20. 1:PRO_PLANT_UNIT_REDUCE_POLLUTE                                                                                                            
    
21. 2:MID_PLANT_UNIT_REDUCE_POLLUTE                                                                                                            
    
22. 3:RPT_MONTH                                                                                                                                 
    
23. 4:DEPT_ID                                                                                                                                   
    
24. 5:wf_mid_plant_unit_reduce_pollute_init.tt2                                                                                                
    
25. 6:template_refresh_1.tt2         
    
26. 
    

复制代码

[ 本帖最后由 tmp 于 2007-9-8 12:16 编辑 ]