亚洲av成人无遮挡网站在线观看,少妇性bbb搡bbb爽爽爽,亚洲av日韩精品久久久久久,兔费看少妇性l交大片免费,无码少妇一区二区三区

  免費注冊 查看新帖 |

Chinaunix

  平臺 論壇 博客 文庫
最近訪問板塊 發(fā)新帖
樓主: life382
打印 上一主題 下一主題

動腦的機會來了 [復制鏈接]

論壇徽章:
0
21樓 [報告]
發(fā)表于 2007-09-25 14:14 |只看該作者
嗯。。唉。。暈乎。這樣寫法也是不行的，不能解決我的問題。
我想知道，怎么處理讀取出來的字串信息，讓它是字符串的形式。

論壇徽章:
0
22樓 [報告]
發(fā)表于 2007-09-25 14:19 |只看該作者
哇哈，函數也搞錯了，暈。。有篇資料害人，我找perl 去掉空格的函數
喔喔，，那現有什么辦法處理呢

論壇徽章:
0
23樓 [報告]
發(fā)表于 2007-09-25 14:24 |只看該作者
說了老半天，還是自個解決了。
我知道原因羅，并不是空格的問題

論壇徽章:
0
24樓 [報告]
發(fā)表于 2007-09-25 14:36 |只看該作者

回復 #21 life382 的帖子

看你的代碼，第一行應該打印出
<html>才對，而且沒有換行符，也就是下一個循環(huán)導致后面的一句會跟在<html>后面
你可以這么寫，
  1. print $_;chomp(my $str=$_);
復制代碼

至于你后面的代碼，感覺你想讀取Project: ×××Configuration:×××之間的XXX
覺得用index和substr貌似不太好，可以直接使用正則試試看，比如$str=~/Project: (\w).*?Configuration: (\w)/
然后$pro=$1;$conf=$2;
這是我的理解，不知道對不對

論壇徽章:
0
25樓 [報告]
發(fā)表于 2007-09-25 14:42 |只看該作者
對正則式不熟

論壇徽章:
0
26樓 [報告]
發(fā)表于 2007-09-25 14:47 |只看該作者

回復 #25 cobrawgl 的帖子

偶是對這個mm的需求和錯誤不熟
貌似lonki的正則很好，偶很崇拜

論壇徽章:
0
27樓 [報告]
發(fā)表于 2007-09-25 15:08 |只看該作者
原帖由 perljoker 于 2007-9-25 14:47 發(fā)表
偶是對這個mm的需求和錯誤不熟
貌似lonki的正則很好，偶很崇拜



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

這MM剛接觸perl吧? 處理字符串的方式似乎還停留在C++的某些方式.

貌似你想提取這一行 Project: xxxxx,Configuration: yyyyy 中的部分信息.
建議把log.htm中的該行貼出來,  然后說明要提取的字段???


PS: 大家都好積極啊, 難道是因為今天中秋...

論壇徽章:
0
28樓 [報告]
發(fā)表于 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 編輯 ]

論壇徽章:
0
29樓 [報告]
發(fā)表于 2007-09-25 15:27 |只看該作者

論壇徽章:
0
30樓 [報告]
發(fā)表于 2007-09-25 15:31 |只看該作者
perljoker：
你不是說清楚我的問題了嘛，唉。。
不過，優(yōu)化起我的代碼來了。

我是要讀取那串信息，，但我還要將那串信息分解決，即讀取project、Configuration后面的值分析出來
您需要登錄后才可以回帖 登錄 | 注冊

本版積分規(guī)則 發(fā)表回復

  

北京盛拓優(yōu)訊信息技術有限公司. 版權所有 京ICP備16024965號-6 北京市公安局海淀分局網監(jiān)中心備案編號：11010802020122 niuxiaotong@pcpop.com 17352615567
未成年舉報專區(qū)
中國互聯(lián)網協(xié)會會員  聯(lián)系我們：huangweiwei@itpub.net
感謝所有關心和支持過ChinaUnix的朋友們 轉載本站內容請注明原作者名及出處

清除 Cookies - ChinaUnix - Archiver - WAP - TOP