動腦的機(jī)會來了

life382

就跟其它的變量一樣寫的$Errors =$1 if defined $1;

cobrawgl

你問 flw 去吧，我不知道怎么回事了

Lonki

原帖由 perljoker 于 2007-9-25 16:40 發(fā)表
偶好好動了下腦筋，寫了個
#! /usr/bin/perl -w
#        read.pl

use strict;        use warnings;

open(FN,"ARGV[0]"||die $!;
my ($proj,$conf,$err,$warn);
while(){
#        print;                                #打印當(dāng)前行就是源文件的， ...

1. 一次讀入它吧, 文件不大, 也沒有重復(fù)匹配的.

2. if ( =~)已經(jīng)判斷是否匹配, 后面對$1, $2的if有點(diǎn)多余(雖然if為true時, $2也可能為空)

PS: 寫簡潔一點(diǎn), MM會覺得你很厲害的

life382

$proj=$1 if($1);
$Errors =$1 if defined $1;
$err=$1 if $1;


哇，這三種有何區(qū)別啊

cobrawgl

原帖由 life382 于 2007-9-25 16:58 發(fā)表
$proj=$1 if($1);
$Errors =$1 if defined $1;
$err=$1 if $1;


哇，這三種有何區(qū)別啊

有區(qū)別，你用 0 來試試

life382

原帖由 cobrawgl 于 2007-9-25 16:57 發(fā)表
你問 flw 去吧，我不知道怎么回事了

他要幫我，，早在剛才也做答了吧。
他只是過來警告你就走了，其話中好像就把這個艱巨的任務(wù)交給你了。

hutule110

原帖由 life382 于 2007-9-25 16:58 發(fā)表
$proj=$1 if($1);
$Errors =$1 if defined $1;
$err=$1 if $1;


哇，這三種有何區(qū)別啊

第一和第三個是沒有區(qū)別的,區(qū)別在于第一個和第二個
如果$1=0的情況,第一的if是不成立的,而diefined $1 是成立的

perljoker

原帖由 hutule110 于 2007-9-25 17:01 發(fā)表

第一和第三個是沒有區(qū)別的,區(qū)別在于第一個和第二個
如果$1=0的情況,第一的if是不成立的,而diefined $1 是成立的

餓。。。是警告我。。謝謝

我61樓重新編輯過了，你試試看行不行，剛才有錯，現(xiàn)在更正了

life382

別尋我開心，，看情況都是意義都差不多，
兩個是檢測變量是否有值，一個是檢測變量是否有定義，
為何找不到0呢。見鬼了……

cobrawgl

原帖由 perljoker 于 2007-9-25 17:02 發(fā)表

餓。。。是警告我。。謝謝

我61樓重新編輯過了，你試試看行不行，剛才有錯，現(xiàn)在更正了

你都不知道哪里錯了 。。。