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

  免費注冊 查看新帖 |

Chinaunix

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

動腦的機會來了 [復(fù)制鏈接]

論壇徽章:
0
41樓 [報告]
發(fā)表于 2007-09-25 16:04 |只看該作者
原帖由 life382 于 2007-9-25 16:00 發(fā)表
啊。。我不是寫著要讀取kavset - 0 error(s), 1 warning(s)這一串嘛


這倒是可以做到，見笑見笑

if ($line =~ m{kavset - (\d+) error\(s\), (\d+) warning\(s\)})

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

回復(fù) #40 life382 的帖子

\d+
帶個加號，呵呵，建議你看下書上的正則表達(dá)式

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

  2. use strict;

  4. my $project;
  5. my $configuration;
  6. my $error;
  7. my $warning;
  8. my $logfile = "Log.html";

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

  12. while (my $line = <LOGFILE>) {
  13.         chomp $line; # and print $line;
  14.        
  15.         if ($line =~ m{Project: (\w+), Configuration: (\w+\|\w+)}) {
  16.                 $project = $1 if defined $1;
  17.                 $configuration = $2 if defined $2;
  18.                 print "Project = $project\n";
  19.                 print "Configuration = $configuration\n";
  20.         }
  21.         if ($line =~ m{kavset - (\d+) error\(s\), (\d+) warning\(s\)}) {
  22.                 $error = $1 if defined $1;
  23.                 $warning = $2 if defined $2;
  24.                 print "Error = $error\n";
  25.                 print "Warnings = $warning\n";
  26.         }
  27. }

  29. ---------------------------

  31. <html>
  32. <head>
  33.         <META HTTP-EQUIV="Content-Type" content="text/html; charset=utf-16">
  34. </head>
  35. <body>
  36. <h3>Rebuild started: Project: kavset, Configuration: Release|Win32</h3>
  37. <h3>kavset - 0 error(s), 1 warning(s)</h3>
  38. </body>
  39. -----------------------
  40. >perl -w test.pl
  41. Project = kavset
  42. Configuration = Release|Win32
  43. Error = 0
  44. Warnings = 1
  45. >Exit code: 0
復(fù)制代碼

論壇徽章:
0
44樓 [報告]
發(fā)表于 2007-09-25 16:06 |只看該作者
這帖都能火，不知道偶們flw老大做何感想

論壇徽章:
0
45樓 [報告]
發(fā)表于 2007-09-25 16:07 |只看該作者
原帖由 life382 于 2007-9-25 15:55 發(fā)表
你的正則表達(dá)式太有魔力了
讀取kavset - 0 error(s), 1 warning(s)這一串呢

error　=　0
warning　=　1
我像你上面改的if($str =~m{$project- (\d) error(s), (\d) warning(s)})
不行耶，哪里錯了。$pro ...



1. 原字符串中的()要加\來轉(zhuǎn)義
2. 若數(shù)字可能大于1位數(shù), 用\d+

論壇徽章:
0
46樓 [報告]
發(fā)表于 2007-09-25 16:07 |只看該作者
原帖由 perljoker 于 2007-9-25 16:06 發(fā)表
這帖都能火，不知道偶們flw老大做何感想

主要是這個MM太特殊了........

論壇徽章:
0
47樓 [報告]
發(fā)表于 2007-09-25 16:10 |只看該作者
問題1：好像沒讀到errors的值
問題2：字符串中的kavset 要用剛才取到的$project變量來用，行不　

ps:得到特殊待遇了……在此謝謝大家了，順便祝福大家中秋快樂哦

[ 本帖最后由 life382 于 2007-9-25 16:13 編輯 ]

論壇徽章:
0
48樓 [報告]
發(fā)表于 2007-09-25 16:11 |只看該作者
原帖由 hutule110 于 2007-9-25 16:07 發(fā)表

主要是這個MM太特殊了........

恩，搞不好，沖破100帖，就算送flw老大的中秋禮物了，娃哈哈

論壇徽章:
1
2015年辭舊歲徽章 日期:2015-03-03 16:54:15
49樓 [報告]
發(fā)表于 2007-09-25 16:13 |只看該作者
警告一下 perljoker，不要灌水。
想幫就幫，不想幫就別幫了，樓主和我非親非故，老扯上我干什么？

論壇徽章:
0
50樓 [報告]
發(fā)表于 2007-09-25 16:14 |只看該作者
perljoker ：：這帖都能火　…………　怎么聽得有點變味的感覺。
最后問題，解決一下吧，好過中秋啊
您需要登錄后才可以回帖 登錄 | 注冊

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

  

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

清除 Cookies - ChinaUnix - Archiver - WAP - TOP