zoukankan      html  css  js  c++  java
  • perl 处理文本

    redis01:/root# cat abc
    GET /api/sale/get_voucher_list?loupan_id=32300&suid=kJIjl&loupan_site=sc&code=d30d52a87c0ba4e342c9315d44845be5&source=pc HTTP/1.1
    GET /api/sale/get_voucher_list?loupan_id=108578&loupan_site=huizhou&code=26f3cdc956828768a54c334eb76770f5&source=pc HTTP/1.1
    GET /api/sale/get_voucher_list?loupan_id=107499&loupan_site=dg&code=e22b6dd312cd2921adc0788578345615&source=pc HTTP/1.1
    GET /api/sale/get_voucher_list?loupan_id=103399&loupan_site=nb&code=ccc411746f3505ea8fe5ecef6b2657ce&source=pc HTTP/1.1
    POST /api/sale/get_voucher_list?loupan_id=103399&loupan_site=nb&code=ccc411746f3505ea8fe5ecef6b2657ce&source=pc HTTP/1.1
    GET /index.php/Site/Index/room_id/1206?wt_source=newshp_twzb_05 HTTP/1.1
    GET /rss/detail/jinri/6154165177643499905.html?source=jrtt HTTP/1.1
    GET /rss/detail/jinri/6153808754283709277.html?source=jrtt HTTP/1.1
    GET /rss/detail/jinri/6154162659391767265.html?source=jrtt HTTP/1.1
    GET /sso/cookies.php?callback=_1467350571428134&uid=140812417 HTTP/1.1
    GET /sso/cookies.php?callback=_1467350571421134&uid=140812117 HTTP/1.1
    GET /sso/cookies.php?callback=_14673505734551134&uid=141234522117 HTTP/1.1
    GET /sso/cookies.php?callback=_146711135411428134&uid=14112322117 HTTP/1.1
    GET /index.php/Site/Index/room_id/1116?wt_source=newshp_twzb_05&max=123 HTTP/1.1
    GET /index.php/Site/Index/room_id/1356?wt_source=newshp_twzb_03 HTTP/1.1
    redis01:/root# perl a1.pl 
    GET /rss/detail/jinri/6154162659391767265.html?source=jrtt HTTP/1.1
    GET /index.php/Site/Index/room_id/1356?wt_source=newshp_twzb_03 HTTP/1.1
    GET /index.php/Site/Index/room_id/1206?wt_source=newshp_twzb_05 HTTP/1.1
    GET /rss/detail/jinri/6154165177643499905.html?source=jrtt HTTP/1.1
    POST /api/sale/get_voucher_list?loupan_id=103399&loupan_site=nb&code=ccc411746f3505ea8fe5ecef6b2657ce&source=pc HTTP/1.1
    GET /rss/detail/jinri/6153808754283709277.html?source=jrtt HTTP/1.1
    GET /sso/cookies.php?callback=_146711135411428134&uid=14112322117 HTTP/1.1
    GET /index.php/Site/Index/room_id/1116?wt_source=newshp_twzb_05&max=123 HTTP/1.1
    redis01:/root# cat a1.pl 
              open (LOG ,"<","abc");  
                  while (<LOG>) {  
                            chomp; 
                            if ($_ =~ /s*(POST|GET)s+(.*?)?.*/){
                            $hash{$2}=$_;
                            };
                          }; 
            while(my($a, $b) = each %hash) 
                   {
                     print $b."
    ";
                     };

  • 相关阅读:
    【构建二叉树】01根据前序和中序序列构造二叉树【Construct Binary Tree from Preorder and Inorder Traversal】
    PHP 语言需要避免的 10 大误区
    极客编程必备的五大PHP开发应用
    你听说过PHP 的面向方面编程吗?
    8个开发必备的PHP功能
    写给系统管理员的25个PHP安全实践
    PHP输出缓冲控制- Output Control 函数应用详解
    创建高安全性PHP网站的几个实用要点
    简化PHP开发的10个工具
    PHP文件下载原理
  • 原文地址:https://www.cnblogs.com/hzcya1995/p/13350526.html
Copyright © 2011-2022 走看看