请教书上的一个perl程序－数组文件之修改时间比较

windows.li

UID: 36776
帖子: 119
积分: 273
在线时间: 19 小时

1^# windows.li 发表于 2007-09-13 14:38

请教书上的一个perl程序－数组文件之修改时间比较

die "No file names supplied!\n" unless @ARGV;
my $oldest_name = shift @ARGV;
my $oldest_age = -M $oldest_name;
foreach (@ARGV) {
   my $age = -M;
   ($oldest_name, $oldest_age) = ($_, $age)　＃这句偶看不懂
      if $age > $oldest_age;
}
printf "The oldest file was %s, and it was %.1f days old.\n",
   $oldest_name, $oldest_age;

这里有一句偶看不懂：($oldest_name, $oldest_age) = ($_, $age)
书上是这样解释的：＂If the age is more than $oldest_age, we'll use a list assignment to update the name and age. We didn't have to use a list assignment, but it's a convenient way to update several variables at once.＂

请问这个a list assignment 是指我上面那句吧？如何理解它啊，在大骆驼上不晓得看哪部分资料．
谢谢您的回复！

perljoker

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

2^# perljoker 发表于 2007-09-13 14:47

据我菜菜的推测，他指的是($a,$b) = ($c,$d)这样做列表赋值的方式吧
说这样对同时对多个变量更新会更方便而已
貌似没有什么特别的东西啊

nkcsx

UID: 10161
帖子: 193
积分: 443
在线时间: 2 天 2 小时

3^# nkcsx 发表于 2007-09-13 14:47

你在看大骆驼？看2.8节

windows.li

UID: 36776
帖子: 119
积分: 273
在线时间: 19 小时

4^# windows.li 发表于 2007-09-13 22:18

郁闷,上面那个程序怎么也看不明白,请老大们帮详细的分析下吧,着急啊,谢谢了!

nkcsx

UID: 10161
帖子: 193
积分: 443
在线时间: 2 天 2 小时

5^# nkcsx 发表于 2007-09-14 09:06

[Copy to clipboard] [ - ]

CODE:

# 没传参则退出
die "No file names supplied!\n" unless @ARGV;

# oldest_name记录最年老的文件名，这里先让他等于第一个参数
my $oldest_name = shift @ARGV;

# oldest_age记录最年老文件的年龄
my $oldest_age = -M $oldest_name;

# 处理剩下的参数
foreach (@ARGV) {
   # 取当前处理的文件的年龄
   my $age = -M;

   # 如果当前处理文件的年龄大于已经记录的最年老文件的年龄，则让该文件成为最年老文件，记录在oldest_name和oldest_age中
   ($oldest_name, $oldest_age) = ($_, $age) if $age > $oldest_age;
}

# 输出
printf "The oldest file was %s, and it was %.1f days old.\n", $oldest_name, $oldest_age;

[Copy to clipboard] [ - ]

CODE:

($oldest_name, $oldest_age) = ($_, $age) if $age > $oldest_age;

是不是这句话没懂？
这个就等于

[Copy to clipboard] [ - ]

CODE:

if ($age > $oldest_age) {
$oldest_name = $_;
$oldest_age = $age;
}

perljoker

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

6^# perljoker 发表于 2007-09-14 09:16

[Copy to clipboard] [ - ]

CODE:

($oldest_name, $oldest_age) = ($_, $age)　＃这句偶看不懂
if $age > $oldest_age;

其实这个是一行，可能是代码误导了lz了，等同于

[Copy to clipboard] [ - ]

CODE:

($oldest_name, $oldest_age) = ($_, $age) if $age > $oldest_age;

milkharbor

UID: 16969
帖子: 172
积分: 395
在线时间: 1 天 16 小时

7^# milkharbor 发表于 2007-09-14 09:20

比较作为参数传入的文件中最老的一个，在小骆驼上把这个叫什么水痕法？呵呵

nkcsx

UID: 10161
帖子: 193
积分: 443
在线时间: 2 天 2 小时

8^# nkcsx 发表于 2007-09-14 09:24

QUOTE:

汗……
其实flw在smth的态度比在cu好多了，完全就是2个人

perljoker

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

9^# perljoker 发表于 2007-09-14 09:46

QUOTE:

原帖由 nkcsx 于 2007-9-14 09:24 发表

汗……
其实flw在smth的态度比在cu好多了，完全就是2个人

水木清华？是那里么？

nkcsx

UID: 10161
帖子: 193
积分: 443
在线时间: 2 天 2 小时

10^# nkcsx 发表于 2007-09-14 09:47

对，flw刚上任版主不久，