免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 4357 | 回复: 9
打印 上一主题 下一主题

perl解析字段正则表达式问题!多谢 [复制链接]

论坛徽章:
3
程序设计版块每日发帖之星
日期:2016-02-27 06:20:00程序设计版块每日发帖之星
日期:2016-03-03 06:20:00数据库技术版块每日发帖之星
日期:2016-05-06 06:20:00
跳转到指定楼层
1 [收藏(0)] [报告]
发表于 2016-03-10 23:03 |只看该作者 |倒序浏览
有一行如下
WEBTRENDS_ID=222.132.54.238-1445777504.30501201::0BB4BC82CEDD04A01A54D670826;+__utmc=131097296;+uv_cookie_id=uv-4fb36324-2d01

我要解析出WEBTRENDS_ID的值222.132.54.238-1445777504.30501201::0BB4BC82CEDD04A01A54D670826和uv_cookie_id的值uv-4fb36324-2d01

我写的如下:
$WEBTRENDS_ID = (split /[ \s]WEBTRENDS_ID=([\s,]*)/, $datas[0])[1];
$uv_cookie_id = (split /[ \s]uv_cookie_id=([\s,]*)/, $datas[0])[1];

解析有问题,得不到值,请大家指点下,多谢!


论坛徽章:
6
15-16赛季CBA联赛之新疆
日期:2016-03-22 22:34:5915-16赛季CBA联赛之山东
日期:2016-04-11 09:08:41程序设计版块每日发帖之星
日期:2016-06-28 06:20:00程序设计版块每日发帖之星
日期:2016-07-19 06:20:00每日论坛发贴之星
日期:2016-07-19 06:20:0015-16赛季CBA联赛之青岛
日期:2016-07-20 22:44:17
2 [报告]
发表于 2016-03-11 00:06 |只看该作者
本帖最后由 RE_HASH 于 2016-03-11 00:07 编辑

$> cat test.pl
$_ = "WEBTRENDS_ID=222.132.54.238-1445777504.30501201::0BB4BC82CEDD04A01A54D670826;+__utmc=131097296;+uv_cookie_id=uv-4fb36324-2d01";
($WEBTRENDS_ID, $uv_cookie_id) = /WEBTRENDS_ID=(.+?);.*?uv_cookie_id=(.+?)(;|$)/;
printf "\$WEBTRENDS_ID=$WEBTRENDS_ID, \$uv_cookie_id=$uv_cookie_id\n";


$> perl test.pl
$WEBTRENDS_ID=222.132.54.238-1445777504.30501201::0BB4BC82CEDD04A01A54D670826, $uv_cookie_id=uv-4fb36324-2d01

论坛徽章:
307
程序设计版块每周发帖之星
日期:2016-04-08 00:41:33操作系统版块每日发帖之星
日期:2015-09-02 06:20:00每日论坛发贴之星
日期:2015-09-02 06:20:00程序设计版块每日发帖之星
日期:2015-09-04 06:20:00每日论坛发贴之星
日期:2015-09-04 06:20:00每周论坛发贴之星
日期:2015-09-06 22:22:00程序设计版块每日发帖之星
日期:2015-09-09 06:20:00程序设计版块每日发帖之星
日期:2015-09-19 06:20:00程序设计版块每日发帖之星
日期:2015-09-20 06:20:00每日论坛发贴之星
日期:2015-09-20 06:20:00程序设计版块每日发帖之星
日期:2015-09-22 06:20:00程序设计版块每日发帖之星
日期:2015-09-24 06:20:00
3 [报告]
发表于 2016-03-11 08:31 |只看该作者
本帖最后由 sunzhiguolu 于 2016-03-11 08:33 编辑
  1. perl -pe "s/\A[^=]*=|;.*=/\n/g" ur.txt
复制代码

论坛徽章:
307
程序设计版块每周发帖之星
日期:2016-04-08 00:41:33操作系统版块每日发帖之星
日期:2015-09-02 06:20:00每日论坛发贴之星
日期:2015-09-02 06:20:00程序设计版块每日发帖之星
日期:2015-09-04 06:20:00每日论坛发贴之星
日期:2015-09-04 06:20:00每周论坛发贴之星
日期:2015-09-06 22:22:00程序设计版块每日发帖之星
日期:2015-09-09 06:20:00程序设计版块每日发帖之星
日期:2015-09-19 06:20:00程序设计版块每日发帖之星
日期:2015-09-20 06:20:00每日论坛发贴之星
日期:2015-09-20 06:20:00程序设计版块每日发帖之星
日期:2015-09-22 06:20:00程序设计版块每日发帖之星
日期:2015-09-24 06:20:00
4 [报告]
发表于 2016-03-11 09:09 |只看该作者
回复 4# 时时20160307
您能否说下 -F 选项中使用分隔符的限制, 有好多地方不明白, 谢谢!

   

论坛徽章:
145
技术图书徽章
日期:2013-10-01 15:32:13戌狗
日期:2013-10-25 13:31:35金牛座
日期:2013-11-04 16:22:07子鼠
日期:2013-11-18 18:48:57白羊座
日期:2013-11-29 10:09:11狮子座
日期:2013-12-12 09:57:42白羊座
日期:2013-12-24 16:24:46辰龙
日期:2014-01-08 15:26:12技术图书徽章
日期:2014-01-17 13:24:40巳蛇
日期:2014-02-18 14:32:59未羊
日期:2014-02-20 14:12:13白羊座
日期:2014-02-26 12:06:59
5 [报告]
发表于 2016-03-11 09:43 |只看该作者
本帖最后由 jason680 于 2016-03-11 09:45 编辑

回复 1# bzh_516

How about this way that easy to understand what you want

$ cat FILE
WEBTRENDS_ID=222.132.54.238-1445777504.30501201::0BB4BC82CEDD04A01A54D670826;+__utmc=131097296;+uv_cookie_id=uv-4fb36324-2d01

$ perl -lane '{
   $WEBTRENDS_ID=$1 if(m/WEBTRENDS_ID=([^;]+)/);
   $uv_cookie_id=$1 if(m/uv_cookie_id=([^;]+)/)
}
END{
  print $WEBTRENDS_ID;
  print $uv_cookie_id;
}' FILE
222.132.54.238-1445777504.30501201::0BB4BC82CEDD04A01A54D670826
uv-4fb36324-2d01


   

论坛徽章:
307
程序设计版块每周发帖之星
日期:2016-04-08 00:41:33操作系统版块每日发帖之星
日期:2015-09-02 06:20:00每日论坛发贴之星
日期:2015-09-02 06:20:00程序设计版块每日发帖之星
日期:2015-09-04 06:20:00每日论坛发贴之星
日期:2015-09-04 06:20:00每周论坛发贴之星
日期:2015-09-06 22:22:00程序设计版块每日发帖之星
日期:2015-09-09 06:20:00程序设计版块每日发帖之星
日期:2015-09-19 06:20:00程序设计版块每日发帖之星
日期:2015-09-20 06:20:00每日论坛发贴之星
日期:2015-09-20 06:20:00程序设计版块每日发帖之星
日期:2015-09-22 06:20:00程序设计版块每日发帖之星
日期:2015-09-24 06:20:00
6 [报告]
发表于 2016-03-11 12:48 |只看该作者
回复 6# jason680
$ perl -lane '{
   $WEBTRENDS_ID=$1 if(m/WEBTRENDS_ID=([^;]+)/);
   $uv_cookie_id=$1 if(m/uv_cookie_id=([^;]+)/)
}
END{
  print $WEBTRENDS_ID;
  print $uv_cookie_id;
}' FILE

大神您好, 您的脚本中的花括号表示啥意思啊, 怎么还出了个 END {}. 没见过啊!
   

论坛徽章:
145
技术图书徽章
日期:2013-10-01 15:32:13戌狗
日期:2013-10-25 13:31:35金牛座
日期:2013-11-04 16:22:07子鼠
日期:2013-11-18 18:48:57白羊座
日期:2013-11-29 10:09:11狮子座
日期:2013-12-12 09:57:42白羊座
日期:2013-12-24 16:24:46辰龙
日期:2014-01-08 15:26:12技术图书徽章
日期:2014-01-17 13:24:40巳蛇
日期:2014-02-18 14:32:59未羊
日期:2014-02-20 14:12:13白羊座
日期:2014-02-26 12:06:59
7 [报告]
发表于 2016-03-11 12:58 |只看该作者
本帖最后由 jason680 于 2016-03-11 13:01 编辑

回复 7# sunzhiguolu

one line command:
perl -lane '{cmd1;...}END{cmd2;....}' FILE


as same as below:

while(<>){
  cmd1;
  ....
}

END{
  cmd2;
  ....
}   


Note: special block BEGIN, END,...
BTW, study Perl help/document first

论坛徽章:
307
程序设计版块每周发帖之星
日期:2016-04-08 00:41:33操作系统版块每日发帖之星
日期:2015-09-02 06:20:00每日论坛发贴之星
日期:2015-09-02 06:20:00程序设计版块每日发帖之星
日期:2015-09-04 06:20:00每日论坛发贴之星
日期:2015-09-04 06:20:00每周论坛发贴之星
日期:2015-09-06 22:22:00程序设计版块每日发帖之星
日期:2015-09-09 06:20:00程序设计版块每日发帖之星
日期:2015-09-19 06:20:00程序设计版块每日发帖之星
日期:2015-09-20 06:20:00每日论坛发贴之星
日期:2015-09-20 06:20:00程序设计版块每日发帖之星
日期:2015-09-22 06:20:00程序设计版块每日发帖之星
日期:2015-09-24 06:20:00
8 [报告]
发表于 2016-03-11 13:36 |只看该作者
本帖最后由 sunzhiguolu 于 2016-03-11 13:38 编辑

回复 8# jason680
感觉您的解释以及举例比帮助文档强大多了, 如果您哪天出书绝对属于精品系列了.

向您学习天天向上, 谢谢!
   

论坛徽章:
307
程序设计版块每周发帖之星
日期:2016-04-08 00:41:33操作系统版块每日发帖之星
日期:2015-09-02 06:20:00每日论坛发贴之星
日期:2015-09-02 06:20:00程序设计版块每日发帖之星
日期:2015-09-04 06:20:00每日论坛发贴之星
日期:2015-09-04 06:20:00每周论坛发贴之星
日期:2015-09-06 22:22:00程序设计版块每日发帖之星
日期:2015-09-09 06:20:00程序设计版块每日发帖之星
日期:2015-09-19 06:20:00程序设计版块每日发帖之星
日期:2015-09-20 06:20:00每日论坛发贴之星
日期:2015-09-20 06:20:00程序设计版块每日发帖之星
日期:2015-09-22 06:20:00程序设计版块每日发帖之星
日期:2015-09-24 06:20:00
9 [报告]
发表于 2016-03-12 17:59 |只看该作者
回复 10# 时时20160307
-F 参数我还没怎么用到, 以后要多练习才行. 对了, 您使用的是什么系统?

   

论坛徽章:
307
程序设计版块每周发帖之星
日期:2016-04-08 00:41:33操作系统版块每日发帖之星
日期:2015-09-02 06:20:00每日论坛发贴之星
日期:2015-09-02 06:20:00程序设计版块每日发帖之星
日期:2015-09-04 06:20:00每日论坛发贴之星
日期:2015-09-04 06:20:00每周论坛发贴之星
日期:2015-09-06 22:22:00程序设计版块每日发帖之星
日期:2015-09-09 06:20:00程序设计版块每日发帖之星
日期:2015-09-19 06:20:00程序设计版块每日发帖之星
日期:2015-09-20 06:20:00每日论坛发贴之星
日期:2015-09-20 06:20:00程序设计版块每日发帖之星
日期:2015-09-22 06:20:00程序设计版块每日发帖之星
日期:2015-09-24 06:20:00
10 [报告]
发表于 2016-03-12 20:26 |只看该作者
回复 12# 时时20160307
下一步我也准备系统学习下, Linux 操作系统.

   
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们:huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP