pppk之Recipe1.2(1)

zhuyubei

今天开始Recipe 1.2： 默认值的使用。准备分2天来完成发帖。
代码的checkout方法:

1. 
   
2. svn checkout http://pppk.googlecode.com/svn/trunk/ pppk

复制代码

Recipe1.2的引用话是:

1. 今天不知为什么我没写－－果戈里

复制代码

据说，当他没写作灵感的时候，他就反复写这句话，直到又开始写作。

zhuyubei

当然我今天得写。对于给一个变量或数组赋默认值。核心思路是这样的:

1. use $sFirst if $sFirst is true, else $sSecond

复制代码

很好理解。但这牵涉到，什么会是true, 什么会是false。 在Perl以及Python，这会有些微妙

1. my @aFirst = ( undef, 0, "0", 0.0, "0.0" , 00000, "00000", "", " ", 23, "32", [] );
   
2. my $sSecond = "backup";
   
3. 
   
4. # Pay attention to the values which are false
   
5. foreach my $sIndex ( 0 .. $#aFirst ){
   
6.         my $sFirst = $aFirst[ $sIndex ];       
   
7.         # use $sFirst if $sFirst is true, else $sSecond
   
8.         my $sDefaultValue = $sFirst || $sSecond;
   
9.         if( $sFirst ){
   
10.                 print "[ $sIndex ] I'm first: [$sDefaultValue]\n";
    
11.         }
    
12.         else{
    
13.                 print "[ $sIndex ] I'm Second: [$sDefaultValue], first is  [$sFirst]\n";
    
14.         }
    
15. }

复制代码

在@aFirst里的值都会被if测试是True还是false。我们的常识是0, undef, ""一定是false。但这还不够，由于Perl是弱类型，字符串里含数字，可以被尝试进行数值化转换。所以要注意: 字符串"0"也是false。那0.0是不是false呢？它也是false.但要注意"0.0"又不是false。这要注意啊。另外00000是false, 但是"000000"又是true!
有些吭爹是吧。我特意在里面放了一个空数组的引用，它不是false。
希望有高手能对这样的现象给个好的解释。

zhuyubei

Perl里标量的赋默认值的语句如下。

1. my $sDefaultValue = $sFirst || $sSecond;

复制代码

利用||的短路特性，如果第一个表达式是true的话，它就直接返回其值，如果不是true，就返回第二个值。

但在这样的情况下，由于0这样的值也被当作是false, 而它也许是数组里的一个你需要的下标。所以你可以采取另一种更严格的方式来判断其是不是false。也就是

1. 用defined函数来判断，只有当变量是undef的时候它才是false

复制代码

按照这样的思路，我们可以用三元表达式来做这样的工作。

1. my $sNotDefined = undef;
   
2. my $sDefaultValue = defined( $sNotDefined ) ? $sNotDefined : $sSecond ;
   
3. print "When using undef: $sDefaultValue\n";

复制代码

当然在标量环境下你也可以用 or 来代替 ||以获得更好的可读性。但是要注意操作符优先级的问题。

1. my $sDir = $ARGV[ 0 ] or "/tmp"; # or: another form of ||

复制代码

最后一个例子是多个候选默认值的例子

1. my $sUser = $ENV{ USER } or $ENV{ LOGNAME } or
   
2.                  getlogin( ) or ( getpwuid( $< ) )[ 0 ] or
   
3.                  "Unknown uid number $<";  

复制代码

cdtits

学习学习...

zhuyubei

轮到Python了。Python里没有 ||, 只有or

1. value = a or b

复制代码

我们还是看看什么样的值是false，什么样得值是true

1. firstlist = [ None, 0, "0", 0.0, "0.0", 00000, "00000", "", " ", 23, 32, [ ] ]
   
2. second = "backup"
   
3. 
   
4. # Pay attention to the values which are false
   
5. for index in range(len(firstlist)):
   
6.         # use first if first is true, else second
   
7.         value = firstlist[ index ] or second
   
8.         if firstlist[ index ]:
   
9.                 print "print [ %d ] I'm first: [%s]" %( index, value )               
   
10.         else:
    
11.                 print "print [ %d ] I'm second: [%s], first is [%s]" %( index, value, firstlist[ index ] )

复制代码

Python是个强类型的语言。字符串是不能隐式转成数字的。所以这里"0"是true. 0.0这里依旧是false. 不同的是，里面的一个空列表。虽然同样放得是引用，但是空列表在这里被当作是false! 这一点和Perl不一样。Perl的引用测试的时候想必类似于字符串。

同样，为了避免把0也当作是false. Python里面同样用None来作为Perl里的undef。你可以用is not None来判断是不是空的. 而且Python里没有三元表达式的。在Python里，它引入了这样的方式来作为三元表达式, a if a is not None esle b

1. notdefined = None
   
2. # use first if first is not a none value, else second
   
3. # property and / or operator
   
4. value = notdefined if notdefined is not None else second # From python 2.5

复制代码

其语句的意思几乎就和注释: use first if first is not a none value, else second一致。

另外对于Python2.5之前的版本。可以这样写

1. value = notdefined is not None and notdefined or second  # Before python 2.5, not so readable

复制代码

我觉得可读性不很好。对于可读性不好的东西，我都有些抵触。这里它用了and 和 or的赋值特性。 对于and如果第一个是true，它就返回and后面的那个值，否则就返回第一个false。而对于or， 如果第一个是false,它就返回or里的第二个表达式的值,否则就返回第一个值。

而对于连续多个候选默认值的问题。Python也差不多。

1. user = os.environ["USER"] or os.environ["LOGNAME"] or\
   
2.        os.getlogin( ) or pwd.getpwuid( os.getuid() )[ 0 ] or\
   
3.        "Unknown uid number %" % os.getuid();
   
4. print "User:",user

复制代码

好了，今天就写到这里

zhuyubei

对于Perl来说，可能给变量默认值会更有用些。尤其是给一些函数传参数。如果参数不是很多，你又不想用hash来赋默认值的话，就可以用今天说的Recipe来给参数赋默认值。而Python的函数参数由于可以指定默认值，所以也许未必这么有用。

总之一句话，要是函数的参数需要给默认值，希望大家能记起这个Recipe。

zhlong8

Truth and Falsehood
The number 0, the strings '0' and "" , the empty list () , and undef are all false in a boolean context. All other values are true. Negation of a true value by ! or not returns a special false value. When evaluated as a string it is treated as "" , but as a number, it is treated as 0. Most Perl operators that return true or false behave this way.

zhlong8

希望再讲下perl的 //   defined-or

zhuyubei

谢谢版主大人的回复。我对not和!的特性又有了更好的理解。

的确Cookbook里是有//的，看来你很熟悉的,哈哈. 因为我的Perl版本是Perl5.8.8的，虽然可以use 5.9，不过我一直比较反感IT行业的升级更新之类的情况。当时就没加入这块内容。

不过既然您提到了，我还是马上更新下code, 把这块加进去吧！谢谢！

sjdy521

我只知道现在用的比较多的方式应该是

1. $var=$a // $b

复制代码

吧