如何让perl 之匹配特定一段的字符串

study_a

举个例子，如果我只想让perl只匹配Point 和data arrival time之间的部分。如和实现？

  Point                                                   Incr       Path
  ------------------------------------------------------------------------------
  clock osc_clk_in (rise edge)                          0.0000     0.0000
  clock network delay (propagated)                      0.9904     0.9904
  U_HASH_CORE/U_HCORE_M2/U_SHA256_CORE/U_CAL_ITER/U_HPART_TOP/P2_0__U_HPART_2/U_COMP_R2_TOP/CDN_MBIT_P2C_24__genblk1_U_COMP_data_c_reg_24__MB_P2C_24__genblk1_U_COMP_data_c_reg_25__MB_P2C_24__genblk1_U_COMP_data_c_reg_26__MB_P2C_24__genblk1_U_COMP_data_c_reg_27_/CK (DFFQ4BMLPSBC_D1_N_S8P75TSL_C68L22)
                                                        0.0000     0.9904 r
  U_HASH_CORE/U_HCORE_M2/U_SHA256_CORE/U_CAL_ITER/U_HPART_TOP/P2_0__U_HPART_2/U_COMP_R2_TOP/CDN_MBIT_P2C_24__genblk1_U_COMP_data_c_reg_24__MB_P2C_24__genblk1_U_COMP_data_c_reg_25__MB_P2C_24__genblk1_U_COMP_data_c_reg_26__MB_P2C_24__genblk1_U_COMP_data_c_reg_27_/Q3 (DFFQ4BMLPSBC_D1_N_S8P75TSL_C68L22)
                                                        0.0567 &   1.0471 f
  U_HASH_CORE/U_HCORE_M2/U_SHA256_CORE/U_CAL_ITER/U_HPART_TOP/P2_0__U_HPART_2/U_COMP_R2_TOP/FE_OFC370487_out_data_2_24__187/Y (BUFF2FSBC_D1_N_S8P75TSL_C68L20) <-
                                                        0.0481 &   1.0952 f
  U_HASH_CORE/U_HCORE_M2/U_SHA256_CORE/U_CAL_ITER/U_HPART_TOP/P2_0__U_HPART_2/U_COMP_R2_TOP/CDN_MBIT_P2C_25__genblk1_U_COMP_data_d_reg_24__MB_P2C_25__genblk1_U_COMP_data_d_reg_25__MB_P2C_25__genblk1_U_COMP_data_d_reg_26__MB_P2C_25__genblk1_U_COMP_data_d_reg_27_/D3 (DFFQ4BMLPSBC_D1_N_S8P75TL_C68L22)
                                                       -0.0075 &   1.0878 f
  data arrival time                                                1.0878

  clock osc_clk_in (rise edge)                          0.0000     0.0000
  clock network delay (propagated)                      1.1879     1.1879
  clock reconvergence pessimism                        -0.1428     1.0452
  clock uncertainty                                     0.0200     1.0652
  U_HASH_CORE/U_HCORE_M2/U_SHA256_CORE/U_CAL_ITER/U_HPART_TOP/P2_0__U_HPART_2/U_COMP_R2_TOP/CDN_MBIT_P2C_25__genblk1_U_COMP_data_d_reg_24__MB_P2C_25__genblk1_U_COMP_data_d_reg_25__MB_P2C_25__genblk1_U_COMP_data_d_reg_26__MB_P2C_25__genblk1_U_COMP_data_d_reg_27_/CK

523066680

1. use File::Slurp;
   
2. my $s = read_file("src.txt");
   
3. if ($s=~/(Point.*data arrival time.*?\n)/s)
   
4. {
   
5.     print $1;
   
6. }

复制代码