有个地方不明白。请教各位。

diag

UID: 19578
帖子: 2
积分: 4
在线时间: 10 分钟

1^# diag 发表于 2007-01-09 19:04

有个地方不明白。请教各位。

有个地方不明白。请教各位。
$m1 m2 m3 ..我不明白。。。请教各位。

foreach $one(@array) {
if ($one =~/^module/) {
($m1, $m2, $m3) = split (/\s+/, $one);
print FILE "$m2\n";}
next;}

beikerray119

UID: 12032
帖子: 153
积分: 351
在线时间: 1 天 8 小时

2^# beikerray119 发表于 2007-01-09 23:55

循环读入@array, 如果符合.
循环读入@array, 如果符合module，以空格等分割当前读入的字符串，附值给$m1,$m2,$m3,然后把$m2写入一个名为FILE的句柄。

tanya

UID: 35663
帖子: 178
积分: 409
在线时间: 1 天 19 小时

3^# tanya 发表于 2007-01-10 00:26

那$m1,$m2,$m3分别被赋给的是不同的值呢还是相同的值呢？
那$m1,$m2,$m3分别被赋给的是不同的值呢还是相同的值呢？

uliyas

UID: 4395
帖子: 91
积分: 209
在线时间: 11 小时

4^# uliyas 发表于 2007-01-10 01:21

不同的值，比如说----.
不同的值，比如说

$one = "module A in project B"

那么
$m1 = "module"; $m2 = "A"; $m3 = "in"

diag

UID: 19578
帖子: 2
积分: 4
在线时间: 10 分钟

5^# diag 发表于 2007-01-10 01:59

[CCB]2[/CCB].
[CCB]2[/CCB]