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

hutule110

原帖由 life382 于 2007-9-25 17:03 發(fā)表
別尋我開心，，看情況都是意義都差不多，
兩個(gè)是檢測(cè)變量是否有值，一個(gè)是檢測(cè)變量是否有定義，
為何找不到0呢。見鬼了……

試試perljoker在61樓寫的程序吧

perljoker

知道的，錯(cuò)了好幾處，原來是沒有測(cè)試。。懶啊
現(xiàn)在測(cè)試了，結(jié)果沒有問題了
還有幾處累贅啊，不恰當(dāng)啊。。實(shí)在懶得改了
比如：chomp多余的，if用的也不恰當(dāng)，還有，如果確定文件名，前3行可以省去，等等。。懶得該了

life382

好bt哦。。貌似通過了……
趕快對(duì)比一下，兩個(gè)正則表達(dá)式，為何有一個(gè)正則表達(dá)式的0是得不到的呢

cobrawgl

原帖由 perljoker 于 2007-9-25 17:07 發(fā)表
知道的，錯(cuò)了好幾處，原來是沒有測(cè)試。。懶啊
現(xiàn)在測(cè)試了，結(jié)果沒有問題了
還有幾處累贅啊，不恰當(dāng)啊。。實(shí)在懶得改了
比如：chomp多余的，if用的也不恰當(dāng)，還有，如果確定文件名，前3行可以省去，等等。。懶 ...

你把 $2 設(shè)成 0 試試？ 呵呵

life382

還有說說最初的那個(gè)問題，涉及到編碼。
我需要引入use Encode;
然后打開文件時(shí)，必須以u(píng)tf16打開，這樣處理信息才是對(duì)的
open(FN,"<:encoding(utf16)",$filename)||die $!;

cobrawgl

原帖由 life382 于 2007-9-25 17:08 發(fā)表
好bt哦。。貌似通過了……
趕快對(duì)比一下，兩個(gè)正則表達(dá)式，為何有一個(gè)正則表達(dá)式的0是得不到的呢

我覺得啊，可能就是傳說中的 RPWT  

life382

try,,,,,,第一次的那個(gè)正則表達(dá)式讀不到0的值，，，明白的人說下原因吧。

perljoker

呵呵，真的不是偶不思考，是偶太懶了，將就用
$ab='0';
if defined $ab 為真，if $ab為假，就是這個(gè)意思
偶程序還有多處別扭的地方，偷懶所致
mm自己要注意羅

perljoker

為發(fā)揚(yáng)寫程序時(shí)的認(rèn)真態(tài)度，以及避免對(duì)人造成誤解，以及回應(yīng)cobrawgl兄指出的偶程序的bug
現(xiàn)更正如下：

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ù)制代碼

這次比較簡潔有效，大家再幫看看有沒有毛病了

life382

喜訊……
我找到問題的原因了，不是正則表達(dá)式的問題
所以第一次的那程序是正確的，，不能打印出0，是因?yàn)槲页绦蛴凶隽藱z測(cè)if($Errors)
而是在于if語句的寫法，就像我剛才問的這三句有何區(qū)別
$proj=$1 if($1);
$Errors =$1 if defined $1;
$err=$1 if $1;

得出結(jié)論，好像變量如取0值時(shí)，if語句是不成立的