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