Use of uninitialized value问题

小公猫

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

1^# 小公猫发表于 2007-12-25 11:21

Use of uninitialized value问题

代码大致如下：

use strict;
use warnings;

my $total = 0;
foreach ()
{
   my $temp=function($_); #接收一个函数的返回值


   $total += $temp;
}

print "$total";

运行的时候提示警告：
Use of uninitialized value in addition (+) at.....
就是$total += $temp那一行

请问要怎么改才能不出现这个警告？不要告诉我是注释use warning

Lonki

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

2^# Lonki 发表于 2007-12-25 12:15

foreach什么?

放驴娃

UID: 1065
帖子: 164
积分: 377
在线时间: 1 天 12 小时

3^# 放驴娃发表于 2007-12-25 13:02

function 返回了 undef，还是整理一下思路吧。

小公猫

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

4^# 小公猫发表于 2007-12-25 13:07

我是不想搞的太复杂，简写了，我把整个代码写清楚吧

use strict;
use warnings;
use Win32::DriveInfo;

my @Drives = Win32::DriveInfo::DrivesInUse();
my $total = 0;
foreach (@Drives)
{
    my ($SectorsPerCluster,
    $BytesPerSector,
    $NumberOfFreeClusters,
    $TotalNumberOfClusters,
    $FreeBytesAvailableToCaller,
    $TotalNumberOfBytes,
    $TotalNumberOfFreeBytes) = Win32::DriveInfo::DriveSpace($_);

    $total += $TotalNumberOfBytes;
}
print "$total";

放驴娃

UID: 1065
帖子: 164
积分: 377
在线时间: 1 天 12 小时

5^# 放驴娃发表于 2007-12-25 13:22

perldoc Win32::DriveInfo
看 DriveSpace 什么情况下返回的列表中第 7 个元素是 undef。

一个简单的解决办法是，把
$total += $TotalNumberOfBytes;
改成
$total += $TotalNumberOfBytes || 0;

小公猫

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

6^# 小公猫发表于 2007-12-25 13:40

QUOTE:

原帖由放驴娃于 2007-12-25 13:22 发表
perldoc Win32:riveInfo
看 DriveSpace 什么情况下返回的列表中第 7 个元素是 undef。

一个简单的解决办法是，把
$total += $TotalNumberOfBytes;
改成
$total += $TotalNumberOfBytes || 0;

Thanks!
我看了perldoc，上面没说明，只说了返回值的意思
请问$total += $TotalNumberOfBytes || 0;是什么意思？是什么用法？

放驴娃

UID: 1065
帖子: 164
积分: 377
在线时间: 1 天 12 小时

7^# 放驴娃发表于 2007-12-25 13:48

读书去吧！

小公猫

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

8^# 小公猫发表于 2007-12-25 13:53

QUOTE:

原帖由放驴娃于 2007-12-25 13:48 发表
读书去吧！