perlfirstday-创新互联-成都快上网建站

perlfirstday-创新互联

perl 做为就像胶水一样,将各种语言都黏贴在一起

专注于为中小企业提供成都网站制作、做网站服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业鱼台免费做网站提供优质的服务。我们立足成都,凝聚了一批互联网行业人才,有力地推动了超过千家企业的稳健成长,帮助中小企业通过网站建设实现规模扩充和转变。

它轻巧方便,非常适合写小型的脚本(我暂时也没有写超过1000行的perl代码

我最欣赏的是它强大的正则运算能力,尤其其中的“捕获”操作,实在是太厉害了!

基于以上的特点,我认为perl非常适用于:

1. 文本处理  --> 强大的正则表达式

2. 各系统间的粘合  --> 胶水语言

对于正则表达式,网上已经有很多教程了,我例举几个我自己的practice:

1.

  open (my $in, "./template.txt") or die "open error: $!";  // 打开一个文件

  my @lines;

  while (<$in>)   //读入一行

  {

    for ($_) {    //其实这里用for的practice常常是用foreach来实现的

      /apn_oi_replacement/ and do  //如果匹配上了apn_oi_replacement,就 do something

      {

        push (@lines, scalar <$in> ) for (1..3);  //就读入三行

        &processing_apn_oi_replacement(@lines); //对这三行进行处理

        print "***" x 40 ."\n";

        last;   //跳出循环,相当于C中的break(后面如果有判断就不做了)

      }

    }

2.

  foreach(@_)     //对整个数组进行遍历

  {

    if(/FQDN:\s+(.*?)\n/s)    //这里?表示非贪婪的匹配 /s作用是让.*也能够match

    {

      $fqdn_apn_oi_replacement = $1;

    };

    if(/requested APN:\s+(.*?)\n/s)

    {

      $requestedapn_apn_oi_replacement = $1;

    }

  }

NOTE: 现在只学到了一些非常基础的文本处理方法,并且还需要加强练习,免得忘记!

另外有需要云服务器可以了解下创新互联scvps.cn,海内外云服务器15元起步,三天无理由+7*72小时售后在线,公司持有idc许可证,提供“云服务器、裸金属服务器、高防服务器、香港服务器、美国服务器、虚拟主机、免备案服务器”等云主机租用服务以及企业上云的综合解决方案,具有“安全稳定、简单易用、服务可用性高、性价比高”等特点与优势,专为企业上云打造定制,能够满足用户丰富、多元化的应用场景需求。


分享题目:perlfirstday-创新互联
文章路径:http://kswjz.com/article/dihesj.html
扫二维码与项目经理沟通

我们在微信上24小时期待你的声音

解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流