动脑的机会来了

life382

UID: 851
帖子: 72
积分: 165
在线时间: 7 小时

71^# life382 发表于 2007-09-25 16:56

就跟其它的变量一样写的$Errors =$1 if defined $1;

cobrawgl

UID: 21059
帖子: 1
积分: 2
在线时间: 10 分钟

72^# cobrawgl 发表于 2007-09-25 16:57

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

Lonki

UID: 21498
帖子: 1
积分: 2
在线时间: 10 分钟

73^# Lonki 发表于 2007-09-25 16:58

QUOTE:

原帖由 perljoker 于 2007-9-25 16:40 发表
偶好好动了下脑筋，写了个
#! /usr/bin/perl -w
# read.pl

use strict; use warnings;

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

1. 一次读入它吧, 文件不大, 也没有重复匹配的.

2. if ( =~)已经判断是否匹配, 后面对$1, $2的if有点多余(虽然if为true时, $2也可能为空)

PS: 写简洁一点, MM会觉得你很厉害的

life382

UID: 851
帖子: 72
积分: 165
在线时间: 7 小时

74^# life382 发表于 2007-09-25 16:58

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

哇，这三种有何区别啊

cobrawgl

UID: 21059
帖子: 1
积分: 2
在线时间: 10 分钟

75^# cobrawgl 发表于 2007-09-25 16:59

QUOTE:

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

哇，这三种有何区别啊

有区别，你用 0 来试试

life382

UID: 851
帖子: 72
积分: 165
在线时间: 7 小时

76^# life382 发表于 2007-09-25 17:00

QUOTE:

原帖由 cobrawgl 于 2007-9-25 16:57 发表
你问 flw 去吧，我不知道怎么回事了

他要帮我，，早在刚才也做答了吧。
他只是过来警告你就走了，其话中好像就把这个艰巨的任务交给你了。

hutule110

UID: 7208
帖子: 177
积分: 407
在线时间: 1 天 18 小时

77^# hutule110 发表于 2007-09-25 17:01

QUOTE:

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

哇，这三种有何区别啊

第一和第三个是没有区别的,区别在于第一个和第二个
如果$1=0的情况,第一的if是不成立的,而diefined $1 是成立的

perljoker

UID: 30669
帖子: 88
积分: 202
在线时间: 10 小时

78^# perljoker 发表于 2007-09-25 17:02

QUOTE:

原帖由 hutule110 于 2007-9-25 17:01 发表

第一和第三个是没有区别的,区别在于第一个和第二个
如果$1=0的情况,第一的if是不成立的,而diefined $1 是成立的

饿。。。是警告我。。谢谢

我61楼重新编辑过了，你试试看行不行，刚才有错，现在更正了

life382

UID: 851
帖子: 72
积分: 165
在线时间: 7 小时

79^# life382 发表于 2007-09-25 17:03

别寻我开心，，看情况都是意义都差不多，
两个是检测变量是否有值，一个是检测变量是否有定义，
为何找不到0呢。见鬼了……

cobrawgl

UID: 21059
帖子: 1
积分: 2
在线时间: 10 分钟

80^# cobrawgl 发表于 2007-09-25 17:04

QUOTE:

原帖由 perljoker 于 2007-9-25 17:02 发表

饿。。。是警告我。。谢谢

我61楼重新编辑过了，你试试看行不行，刚才有错，现在更正了

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