Board logo

标题: [原创代码] 超越tokens极限分割字符串 [打印本页]

作者: sxw    时间: 2011-10-9 15:36     标题: 超越tokens极限分割字符串

正则表达式蛮好用的:
  1. #!/usr/bin/perl
  2. use strict;
  3. use warnings;
  4. $"=",";
  5. while(<DATA>) {
  6.     my @num=split m/-|\+/;
  7. print "@num\n";
  8. }
  9. __DATA__
  10. d_q 973-c_j 314+y_d 356+i_p 638-u_m 2
  11. 04+w_a 588+j_c 829-p_t 599+j_v 803-p_y 92-r_h 677+h_i 341+h_
  12. q 705-r_f 601-m_s 822+q_q 17-w_y 720+s_d 325-d_n 559-l_s 109
  13. +l_v 160-x_b 232-u_r 282-v_l 521+p_o 403-x_n 613+t_x 185-g_v
  14. 678+z_n 753+j_k 779-o_f 283-h_w 390-z_o 772-w_v 252-a_e 51-
  15. m_t 945-k_q 444-r_m 233-p_w 744+k_k 136-w_k 131-s_o 163+k_i
  16. 733+w_c 733+g_l 42+o_i 515+x_h 130-n_b 200+i_u 25+z_i 730
复制代码





欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2