请问perl里面”1;“是什么意思

songday

在看朋友写的perl

有一句话就是
1;
不知道什么意思

代码是：
===============================
use strict;

package n_t;

my $d_f = "d_n.gz";
my $f_f = "f_o_k.txt";

my %d_n =();
my %f_k = ();
my @g_k_c = ();
my $g_m_k = 0;
my $g_m_d = 0;

#r_d();
#r_f_k();
1;
===============================
后面略了

这个1;是什么东西，好怪异

toniz

返回值，如果中间没退出，最后返回1，也就是true啦

songday

哦，这样，相当于return 1;了

dugu072

所有 package 不都有这句嘛，这是包的要求， use xxx; 只有返回为 true 时，才允许被调用，否则直接抛异常了……

songday

在perl里面
比如有一个字符串变量：str，和一个数字变量：num，还有一个hash变量：hash

if (str)是不是相当于if (str == "")

if (num)是不是相当于if (num == 1)

if ($hash{$name})是不是相当于if ($hash.containsKey($name))

？？

[ 本帖最后由 songday 于 2009-9-29 10:30 编辑 ]

dugu072

原帖由 songday 于 2009-9-29 10:28 发表
在perl里面
比如有一个字符串变量：str，和一个数字变量：num，还有一个hash变量：hash

if (str)是不是相当于if (str == "")

if (num)是不是相当于if (num == 1)

if ($hash{$name})是不是相当于if ($ ...

所有的条件判断，都是看 真 或 假，什么是真：
    *  除了””和”0”，所有字符串为真
    * 除了 0，所有数字为真
    * 所有引用为真
    * 所有未定义的值为假．

Perl_Er

http://man.ddvip.com/web/perl/perl13.htm
    首先，创建一个名为Cocoa.pm的包文件(扩展名pm是包的缺省扩展名，意为Perl Module)。一个模块就是一个包，一个包就是一个类。在做其它事之前，先加入“1;”这样一行，当你增加其它行时，记住保留“1;”为最后一行。这是 Perl包的必需条件，否则该包就不会被Perl处理。下面是该文件的基本结构。

songday

谢谢大家的回答，明白了