zoukankan      html  css  js  c++  java
  • perl 正则匹配代码

    36     chomp $line;
     37     my @vec = split / /, $line;
     38     my @vec2 = ($vec[1]=~/[a-z]+/g);
     39     my $size = scalar @vec2;
     40     if ($size ==1)                                                                                               
     41     {  
     42         print FOUT "$line ";                                                          
     43     }                                                                                  
     44

  • 相关阅读:
    查看数据库表中的数据
    exec和execsql
    CPI
    百度硬盘可以检索的字节测试
    HDU2095
    Vigenere密码
    斌神无所不能
    HDU p1017
    POJ1316
    head区的代码详解
  • 原文地址:https://www.cnblogs.com/finallyliuyu/p/4203569.html
Copyright © 2011-2022 走看看