動(dòng)腦的機(jī)會(huì)來了

perljoker

偶好好動(dòng)了下腦筋，寫了個(gè)

1. #! /usr/bin/perl -w
   
2. #        read.pl
   
3. use strict;        use warnings;
   
4. my $filename;
   
5. if (!($filename=$ARGV[0])) {$filename = "Log.html"}
   
6. open(FN,$filename)||die $!;
   
7. my ($proj,$conf,$err,$warn);
   
8. while(<FN>){
   
9.         if (/Project: (\w+), Configuration: (.*?)</){
   
10.                 $proj="None" if !defined($proj=$1);
    
11.                 $conf="None" if !defined($conf=$2);
    
12.                 print "Project = ",$proj,"\nConfiguration = ",$conf,"\n";
    
13.         }
    
14.         if($proj && $_=~/$proj - (\d+) .*?(\d+)/){
    
15.                 $err="None" if !defined($err=$1);
    
16.                 $warn ="None" if !defined($warn=$2);
    
17.                 print "error = ",$err,"\nwarning = ",$warn,"\n";
    
18.         }
    
19. }

復(fù)制代碼

你試試看，運(yùn)行的時(shí)候，在shell下 ./read.pl Log.html
你的是linux嗎？

8好意思，剛才有錯(cuò)，現(xiàn)在更正了，和89樓的一致了

[ 本帖最后由 perljoker 于 2007-9-25 17:28 編輯 ]

life382

老大，我沒必要騙你吧。你這么熱心的幫我。事實(shí)如此啊~@!#

cobrawgl

你把你那行 正則式 發(fā)出來看看？

life382

你測過了》？？win下的。。
完全讀不出來＆

cobrawgl

哦，你要是整個(gè)copy我的代碼的話，得注意

我那個(gè)測試文件是 .html 的后綴，你的是 .htm

life382

就完全套用你的
   if ($Project and $str =~ m{$Project - (\d+) error\(s\), (\d+) warning\(s\)})
                {
                 $Errors =$1 if defined $1;
                 $Warnings =$2 if defined $2;
                }       

為何0讀不出來，難道被當(dāng)作字符處理啊


注意到了，我都改成是我的信息了

cobrawgl

我不知道了

cobrawgl

原帖由 perljoker 于 2007-9-25 16:40 發(fā)表
$err=$1 if $1;

你這么寫是有問題的， 0 的時(shí)候打印不出來

life382

這也太另人遺憾了吧

那能怎么寫啊。。
對了$1,$2是對應(yīng)正則表達(dá)式上的代號對不。

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

cobrawgl

你真的用的是 if defined $xxx
而不是 if $xxx ?