一 : Perl关于usestrict的用法

转载：Perl 关于 usestrict 的用法

Use Strict AndWarnings

什么场合要用 usestrict

当你的程序有一定的行数时，尤其是在一页放不下时，或者是你找不到发生错误的原因时。

为什么要用 use strict？

众多的原因之一是帮你寻找因为错误拼写造成的错误。比如错误使用了'$recieve_date' 变量，但实际上你在程序中已声明的是'$receive_date' 变量，这个错误就很难发现。同样，use strict迫使你把变量的范围缩到最小，使你不必担心同名变量在程序的其它部份发生不良作用。（尽管这是 my 的功能，但是如果你使用 usestrict 的话，它会强迫你用 my 声明变量，来达到上述目的）。

用 use strict 麻烦吗？

不麻烦，只要在你的脚本的开始加上11个字符而已！(use strict;), 另外在整个程序中用my 声明变量。

不错，那我怎么用 use strict 呢？

在你的脚本的开头 '#!/usr/local/bin/perl' 后面加上这句就行。

use strict;

得，程序出错了，我该怎么办？

常见的错误信息一般如下：

Global symbol "$xxx" requires explicit package name at ./tst line 5.

这就是需要我们马上去解决的错误。（如果出现类似于 'Server Error' 之类的错误，请检查一下你的 web 服务器上的 errorlogs，或用CGI::Carp包。 ）

任何时候，当你要声明一个变量时，都要把 'my' 放在前面。例如：

# 把这段代码:$string = "hello world";@array = qw(ABC DEF);%hash = (A=>1, B=>2);# 改成:my $string = "hello world";my @array = qw(ABC DEF);my %hash = (A=>1, B=>2);# 把这段代码:# '$name' is global hereforeach $name (@names) { print "Name: $namen";}# 改成:foreach my $name (@names) { # Now '$name' only exists in this block print "Name: $namen";}# 把这段代码:# 同样, '$digit' 在这里是全局变量foreach $digit (@digits) { $number = 10== $number + $digit;}print "Number: $numbern";# 改成： (外层的变量('$number')# 将在外层声明):my $number = 0;foreach my $digit (@digits) # 现在'$digit' 仅仅在这个代码块里存在 $number = 10== $number + $digit;}print "Number: $numbern";# 把这段代码:sub my_sub { ($arg1, $arg2) = @_; print "Arg1: $arg1 Arg2: $arg2n";}# 改成:sub my_sub { my ($arg1, $arg2) = @_; print "Arg1: $arg1 Arg2: $arg2n";}# 下面的代码好像在用 DBI 嘛？一样要改！:$sth->bind_columns($field1, $field2);while ($sth->fetch) { print "F1: $field1 F2: $field2n";}# 改成:$sth->bind_columns(my ($field1, $field2));while ($sth->fetch) { print "F1: $field1 F2: $field2n";}

这也太麻烦了吧。懒惰不是 Perl 文化中的美德吗？

当然，懒惰是我们的美德。因为你会发现使用 use strict 之后，我们就不必花太多的时间自己去查找 use strict可以找到的很多简单错误。

那 warnings 又是什么？

哦，对了。在 Perl 5.6 及以后的版本里，我们可以在写 'use strict;' 的位置旁写 'usewarnings;':

use warnings;

在 Perl 5.6 版之前（或者为了不同 Perl 版本间的兼容 ），你可以用命令行参数 '#!/usr/bin/perl-w'。还有一种办法是设置

$^W

变量（不过，如果

$^W

不在BEGIN{}程序块里的话，就没办法截取编译时的错误提示，所以一般我们用 '-w'）:

#!/usr/local/bin/perl -w# 或者$^W = 1;# 或者BEGIN { $^W = 1 }

如果你确定不用 warnings，你可以限制它的使用范围，如：

# 把这段代码:sub add_two_numbers_which_might_be_undef { $_[0] + $_[1];}# 根据Perl 的版本不同改成下面的样子:# 1sub add_two_numbers_which_might_be_undef { # 参见 'perldoc perllexwarn' # 因为最好是只在你希望的地方禁止掉warning no warnings "uninitialized"; $_[0] + $_[1];}# 2sub add_two_numbers_which_might_be_undef { local $^W; $_[0] + $_[1];}

或者，你应像前面例子中声明 '$number'一样初始化变量。

二 : 关于aspxTreeList的用法

原文地址：关于aspxTreeList的用法作者：叶枫

要求：根据ID来控制ImageButton的显示和隐藏(所有数据加载时进行控制)

.aspx页面

<dxwtl:ASPxTreeList ID="treeListSysModule"runat="server" KeyFieldName="ID"
ParentFieldName="PID" Width="660px"
ClientInstanceName="treeListSysModule"
OnCustomCallback="treeListSysModule_CustomCallback"
OnHtmlDataCellPrepared="treeListSysModule_HtmlDataCellPrepared">
<StylesCell-HorizontalAlign="Left">
<CellHorizontalAlign="Left"></Cell>
</Styles>
<SettingsPager PageSize="20" Mode="ShowPager"></SettingsPager>
<Settings GridLines="Both" />
<Columns>
<dxwtl:TreeListTextColumn Caption="ID"FieldName="ID" VisibleIndex="0"Visible="false"></dxwtl:TreeListTextColumn>
<dxwtl:TreeListTextColumn Caption="系统名称"FieldName="sysname" VisibleIndex="1"></dxwtl:TreeListTextColumn>
<dxwtl:TreeListTextColumn Caption="修改"VisibleIndex="2" >
<DataCellTemplate>
<center>
<asp:ImageButton ID ="imgbtnUpdateWeb" runat="server" ImageUrl="~/Images/img/updateico.gif" AlternateText="修改"CommandArgument ='<%# eval_r("ID")%>' CommandName="update"OnCommand="imgbtnUpdateWeb_Command"/>
</center>
</DataCellTemplate>
</dxwtl:TreeListTextColumn>
<dxwtl:TreeListTextColumn Caption="角色"VisibleIndex="3" >
<DataCellTemplate>
<center>
<asp:ImageButton ID="imgbtnRole"runat="server" AlternateText="角色" ImageUrl="~/Images/img/perm.gif"CommandArgument='<%# eval_r("ID")%>' CommandName="Role"OnCommand="imgbtnRole_Command" />
</center>
</DataCellTemplate>
</dxwtl:TreeListTextColumn>
<dxwtl:TreeListTextColumn Caption="删除"VisibleIndex="4" >
<DataCellTemplate >
<center>
<asp:ImageButton ID="imgbtnDelete"runat="server" ImageUrl="~/Images/img/delete.gif"OnClientClick="return confirm('你确定要删除此记录吗？');" AlternateText="删除"CommandArgument='<%# eval_r("ID") %>'CommandName="De"OnCommand="imgbtnDelete_Command"/>
</center>
</DataCellTemplate>
</dxwtl:TreeListTextColumn>
</Columns>
</dxwtl:ASPxTreeList>

.cs文件

using DevExpress.Web.ASPxTreeList;

///<summary>
///控制修改、角色、删除按钮
///</summary>
///<paramname="sender"></param>
///<paramname="e"></param>
protectedvoid treeListSysModule_HtmlDataCellPrepared(object sender,DevExpress.Web.ASPxTreeList.TreeListHtmlDataCellEventArgs e)
{
if (e.NodeKey.Substring(e.NodeKey.Length - 3, 3) == "000")
{
ImageButton imgUpdate =treeListSysModule.FindDataCellTemplateControl(e.NodeKey,treeListSysModule.Columns[2] as TreeListDataColumn,"imgbtnUpdateWeb") as ImageButton;
ImageButton imgRole =treeListSysModule.FindDataCellTemplateControl(e.NodeKey,treeListSysModule.Columns[3] as TreeListDataColumn, "imgbtnRole")as ImageButton;
ImageButton imgDelete =treeListSysModule.FindDataCellTemplateControl(e.NodeKey,treeListSysModule.Columns[4] as TreeListDataColumn, "imgbtnDelete")as ImageButton;
imgUpdate.Visible = false;
imgRole.Visible = false;
imgDelete.Visible = false;
}
else
{
ImageButton imgUpdate =treeListSysModule.FindDataCellTemplateControl(e.NodeKey,treeListSysModule.Columns[2] as TreeListDataColumn,"imgbtnUpdateWeb") as ImageBu(www.61k.com)tton;
ImageButton imgRole =treeListSysModule.FindDataCellTemplateControl(e.NodeKey,treeListSysModule.Columns[3] as TreeListDataColumn, "imgbtnRole")as ImageButton;
ImageButton imgDelete =treeListSysModule.FindDataCellTemplateControl(e.NodeKey,treeListSysModule.Columns[4] as TreeListDataColumn, "imgbtnDelete")as ImageButton;
imgRole.Visible = true;
imgDelete.Visible = true;
imgUpdate.Visible = true;
}

注：e.NodeKey就是页面绑定的主键ID。

三 : 关于痣的说法 身上长痣的说法

关于痣的说法，身上长痣的说法

1、 发中有痣：富贵。头发中有痣，一生不愁吃穿。

2、 额头七痣：大贵。这是非常少见的额头上有七痣，此人一定大富大贵。

3、 印堂有痣：主贵。印堂有痣男性显贵，女性显富。

4、 天庭有痣：妨身。天庭有痣要注意，会在一定程度上有害健康。

5、 鼻梁有痣：病苦。鼻梁上有痣，会导致身体不适，容易受伤害。

6、 眼皮有痣：妖智。眼皮有痣者，容易迷惑他人，别人不太容易识别其真伪。

7、 耳珠有痣：主财。财运不错但是容易财来得快去得快。有人为了穿耳环把痣打调了结果财也露了。

8、 鼻头有痣：招小人。鼻头有痣者往往招惹小人，导致心情不畅、灾难不断。

9、 右脸有痣：主贵。右脸有痣者体现在贵上，如果你还没有显现出来那要看看是什么妨碍了你。

10、 左脸有痣：主福。左脸有痣者应该有福气，但是往往有人会错失良机，福气也会减弱。

11、 左眉有痣：主财。这里实际上男性更加适用。女性往往体现在旺夫上。

12、右眉有痣：主寿。这里实际上女性更加适用。男性往往体现在旺妻子上。

13、耳根有痣：害病。耳根有痣要小心，但是即使点去也没用，需要其他方面注意。

14、耳内有痣：主寿。耳内有痣是长寿，但是也有人不停掏耳朵，结果掏不好影响健康长寿。

15、嘴角有痣：聚财。嘴角有痣是食痣，说明此人衣食无忧。

16、唇上有痣：主是非。如果痣在嘴唇上，那么不是有是非，就是招小人，还会乱桃花。

17、眼帘有痣：辛苦。眼帘有痣者做事会比较辛苦，往往事半倍功不讨好。

18、前脖有痣：招小人。前脖子有痣，容易被人掐，男女问题上容易被异性牵着走，易桃花劫。

19、后脖子有痣，表示有靠山，做工作、经商都能有贵人相助。痣点长在脖子的后面,表示这个人一般不太爱显山露水，属于那种比较有钱但是不是很显摆的那种，在命理上叫做屋下藏金。后痣说明你很有远大的理想很美好的憧憬，但是苦无门路和机遇，你的前半生可能会碌碌无为，但是后半生你却是家财万贯，会是雄霸一方的主。

21、乳房有痣：招桃花。乳房有痣者，不论男女都容易招桃花劫感情生活丰富多彩，但是容易破财破色。

22、手臂有痣：主生财。手臂有痣者能管理好自己的财位，理财能力强。

23、手掌有痣：主富贵。手掌有痣者管理他人，如果管不好容易给人小鞋穿。

24、两腿有痣：使奴仆。两腿有痣者往往被他人差使，比较适合做具体工作。

25、脚背有痣：招小人。脚背有痣者容易被人踩，招惹小人捣鬼，需要防备。

26、脚底有痣：踩他人。脚底有痣者恰恰与上相反，时不时给他人穿小鞋。

27、肚脐有痣：**强。肚脐周围或肚脐内有痣者，**强烈，容易发生桃花劫。

28、屁股有痣：能掌权。屁股有痣能独当一面，管理工作会有条不紊。

29、生殖有痣：招桃花。生殖器官上有痣**强烈容易发生桃花劫。女性容易被性骚扰或主动骚扰男性。

30、下巴有痣：主财富。下巴附近有痣，说明有财富伴随一生但是不动产居多因此适合投资或祖上有遗产 。

四 : 关于痣的说法，身上长痣的说法

我们每个人身体不管是什么部位的痣，都有着不一样的寓意和解释，有些痣可能代表着你一生一定大富大贵，而有些痣则会让你的福气也会减弱不少。(www.61k.com)
那么，今天就让我们从痣相图解的角度一起来看看关于痣的说法，身上长痣的说法都有哪些呢？

关于痣的说法，身上长痣的说法：

1、发中有痣：富贵。头发中有痣，一生不愁吃穿。
2、额头七痣：大贵。这是非常少见的额头上有七痣，此人一定大富大贵。
3、印堂有痣：主贵。印堂有痣男性显贵，女性显富。
4、天庭有痣：妨身。天庭有痣要注意，会在一定程度上有害健康。
5、鼻梁有痣：病苦。鼻梁上有痣，会导致身体不适，容易受伤害。
6、眼皮有痣：妖智。眼皮有痣者，容易迷惑他人，别人不太容易识别其真伪。
7、耳珠有痣：主财。财运不错但是容易财来得快去得快。有人为了穿耳环把痣打调了结果财也露了。
8、鼻头有痣：招小人。鼻头有痣者往往招惹小人，导致心情不畅、灾难不断。
9、右脸有痣：主贵。右脸有痣者体现在贵上，如果你还没有显现出来那要看看是什么妨碍了你。
10、左脸有痣：主福。左脸有痣者应该有福气，但是往往有人会错失良机，福气也会减弱。
11、左眉有痣：主财。这里实际上男性更加适用。女性往往体现在旺夫上。
12、右眉有痣：主寿。这里实际上女性更加适用。男性往往体现在旺妻子上。
13、耳根有痣：害病。耳根有痣要小心，但是即使点去也没用，需要其他方面注意。
14、耳内有痣：主寿。耳内有痣是长寿，但是也有人不停掏耳朵，结果掏不好影响健康长寿。
15、嘴角有痣：聚财。嘴角有痣是食痣，说明此人衣食无忧。
16、唇上有痣：主是非。如果痣在嘴唇上，那么不是有是非，就是招小人，还会乱桃花。
17、眼帘有痣：辛苦。眼帘有痣者做事会比较辛苦，往往事半倍功不讨好。
18、前脖有痣：招小人。前脖子有痣，容易被人掐，男女问题上容易被异性牵着走，易桃花劫。
19、后脖子有痣，表示有靠山，做工作、经商都能有贵人相助。痣点长在脖子的后面,表示这个人一般不太爱显山露水，属于那种比较有钱但是不是很显摆的那种，在命理上叫做屋下藏金。后痣说明你很有远大的理想很美好的憧憬，但是苦无门路和机遇，你的前半生可能会碌碌无为，但是后半生你却是家财万贯，会是雄霸一方的主。
21、乳房有痣：招桃花。乳房有痣者，不论男女都容易招桃花劫感情生活丰富多彩，但是容易破财破色。
22、手臂有痣：主生财。手臂有痣者能管理好自己的财位，理财能力强。
23、手掌有痣：主富贵。手掌有痣者管理他人，如果管不好容易给人小鞋穿。
24、两腿有痣：使奴仆。两腿有痣者往往被他人差使，比较适合做具体工作。
25、脚背有痣：招小人。脚背有痣者容易被人踩，招惹小人捣鬼，需要防备。
26、脚底有痣：踩他人。脚底有痣者恰恰与上相反，时不时给他人穿小鞋。
27、肚脐有痣：欲望强。肚脐周围或肚脐内有痣者，欲望强烈，容易发生桃花劫。
28、屁股有痣：能掌权。屁股有痣能独当一面，管理工作会有条不紊。
29、生殖有痣：招桃花。生殖器官上有痣**强烈容易发生桃花劫。女性容易被性骚扰或主动骚扰男性。
30、下巴有痣：主财富。下巴附近有痣，说明有财富伴随一生但是不动产居多因此适合投资或祖上有遗产。

您可能也喜欢：
脚底长痣的特殊含义
手臂痣相图解知运势
耳朵长痣的秘密图解
男人耳朵长痣是福是祸

本文标题：关于痣的说法-Perl关于usestrict的用法
本文地址： http://www.61k.com/1081049.html