免费注册 查看新帖 |

Chinaunix

广告
  平台 论坛 博客 文库
› 论坛 › 程序设计 › Perl › 动脑的机会来了
12345678910下一页
最近访问板块 发新帖
楼主: life382
打印 上一主题 下一主题

动脑的机会来了 [复制链接]

life382

论坛徽章:
0
21楼 [报告]
发表于 2007-09-25 14:14 |只看该作者
嗯。。唉。。晕乎。这样写法也是不行的，不能解决我的问题。
我想知道，怎么处理读取出来的字串信息，让它是字符串的形式。
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
life382

论坛徽章:
0
22楼 [报告]
发表于 2007-09-25 14:19 |只看该作者
哇哈，函数也搞错了，晕。。有篇资料害人，我找perl 去掉空格的函数
喔喔，，那现有什么办法处理呢
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
life382

论坛徽章:
0
23楼 [报告]
发表于 2007-09-25 14:24 |只看该作者
说了老半天，还是自个解决了。
我知道原因罗，并不是空格的问题
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
perljoker

论坛徽章:
0
24楼 [报告]
发表于 2007-09-25 14:36 |只看该作者

回复 #21 life382 的帖子

看你的代码，第一行应该打印出
<html>才对，而且没有换行符，也就是下一个循环导致后面的一句会跟在<html>后面
你可以这么写，
  1. print $_;chomp(my $str=$_);
复制代码

至于你后面的代码，感觉你想读取Project: ×××Configuration:×××之间的XXX
觉得用index和substr貌似不太好，可以直接使用正则试试看，比如$str=~/Project: (\w).*?Configuration: (\w)/
然后$pro=$1;$conf=$2;
这是我的理解，不知道对不对
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
cobrawgl

论坛徽章:
0
25楼 [报告]
发表于 2007-09-25 14:42 |只看该作者
对正则式不熟
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
perljoker

论坛徽章:
0
26楼 [报告]
发表于 2007-09-25 14:47 |只看该作者

回复 #25 cobrawgl 的帖子

偶是对这个mm的需求和错误不熟
貌似lonki的正则很好，偶很崇拜
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
Lonki

论坛徽章:
0
27楼 [报告]
发表于 2007-09-25 15:08 |只看该作者
原帖由 perljoker 于 2007-9-25 14:47 发表
偶是对这个mm的需求和错误不熟
貌似lonki的正则很好，偶很崇拜



.............

这MM刚接触perl吧? 处理字符串的方式似乎还停留在C++的某些方式.

貌似你想提取这一行 Project: xxxxx,Configuration: yyyyy 中的部分信息.
建议把log.htm中的该行贴出来,  然后说明要提取的字段???


PS: 大家都好积极啊, 难道是因为今天中秋...
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
cobrawgl

论坛徽章:
0
28楼 [报告]
发表于 2007-09-25 15:26 |只看该作者

  2. use strict;

  4. my $project;
  5. my $configuration;
  6. my $logfile = "Log.html";

  8. open LOGFILE, "<$logfile" or die "$!\n";

  10. while (my $line = <LOGFILE>) {
  11.         chomp $line; # and print $line;
  12.        
  13.         if ($line =~ m{Project: \[(\w+)\], Configuration: \[(\w+)\]}) {
  14.                 $project = $1 if defined $1;
  15.                 $configuration = $2 if defined $2;
  16.                 print "Project = $project\n";
  17.                 print "Configuration = $configuration\n";
  18.         }
  19. }

  21. --------------

  23. <html>
  24. <head>
  25.         <META HTTP-EQUIV="Content-Type" content="text/html; charset=utf-16">
  26. </head>
  27. <body>
  28. <pre>
  29. <table width=100% bgcolor=#CFCFE5>
  30.         <tr>
  31.                 <td>
  32.                 <font face=arial size=+3>
  33.                         Build Log
  34.                 </font>
  35. </table>

  37. <table width=* cellspacing=0 cellpadding=0>
  38.         <tr>
  39.                 <td width=0>
  40.                         Project: [sky], Configuration: [earth]
  41.                 </td>
  42.         </tr>
  43. </table>
  44. </body>

  46. -------------------------------

  48. >perl -w test.pl
  49. Project = sky
  50. Configuration = earth
  51. >Exit code: 0
复制代码


是不是这样

[ 本帖最后由 cobrawgl 于 2007-9-25 15:29 编辑 ]
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
agg230

论坛徽章:
0
29楼 [报告]
发表于 2007-09-25 15:27 |只看该作者
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
life382

论坛徽章:
0
30楼 [报告]
发表于 2007-09-25 15:31 |只看该作者
perljoker：
你不是说清楚我的问题了嘛，唉。。
不过，优化起我的代码来了。

我是要读取那串信息，，但我还要将那串信息分解决，即读取project、Configuration后面的值分析出来
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
12345678910下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

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

清除 Cookies - ChinaUnix - Archiver - WAP - TOP