Chinaunix

标题: 为啥匹配不出来呢，急死了 [打印本页]
作者: zhouhaiming    时间: 2007-09-08 11:58
标题: 为啥匹配不出来呢，急死了
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    时间: 2007-09-08 12:14
你的代码在我这里好好的


  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         

复制代码

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



欢迎光临 Chinaunix (http://bbs.chinaunix.net/) Powered by Discuz! X3.2