关于perl多行注释的讨论

flyfeel

UID: 46107
帖子: 130
积分: 299
在线时间: 23 小时

1^# flyfeel 发表于 2008-06-12 16:59

关于perl多行注释的讨论

刚在一篇博客上看的如下内容：
成段注释：

1、=cut; ......; =cut;

2、=head; ......; =cut;

3、<< TXT; ......; TXT

4、# 单行注释

---------------------------------------------------------------

具体测试了一下，结果如下：

#!/usr/bin/perl -w

use strict;

my $a = 0;

=pod       #ok
$a = aaa;
=cut

=head       #ok
$a = bbb;
=cut

#<<TXT
#$a = ccc;  //此种方法不行
#TXT
#

=abc       #ok
$a = ddd;
=abc

=abc       #ok
$a = ddd;
=cut          #很奇怪将这个cut换成abc就无输出结果

print "$a\n";

可能有的网友会觉得一个简单的注释没必要太深究，但是我觉得良好的治学态度还是应该有的。

hitsubunnu

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

2^# hitsubunnu 发表于 2008-06-12 17:18

[Copy to clipboard] [ - ]

CODE:

<<TXT
$a = ccc; //此种方法不行
TXT

这个是可以的你写错了

正确的如下：

[Copy to clipboard] [ - ]

CODE:

print "aaa\n";

<<TXT;
$a = ccc;
TXT

print "bbbb\n";

不死草

UID: 35536
帖子: 142
积分: 326
在线时间: 1 天 3 小时

3^# 不死草发表于 2008-06-12 17:34

呵呵，确实是比较有用，最起码比以前一行一行的注释有用（“#”），顶贴！~

flyfeel

UID: 46107
帖子: 130
积分: 299
在线时间: 23 小时

4^# flyfeel 发表于 2008-06-12 17:42

那这个呢？
=abc #ok
$a = ddd;
=cut #很奇怪将这个cut换成abc就无输出结果

hitsubunnu

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

5^# hitsubunnu 发表于 2008-06-12 17:48

QUOTE:

原帖由 flyfeel 于 2008-6-12 17:42 发表
那这个呢？
=abc #ok
$a = ddd;
=cut #很奇怪将这个cut换成abc就无输出结果

[Copy to clipboard] [ - ]

CODE:

print "aaaaaaa\n";

=aaa # 是= 这个符号和下面的 =cut 配合注释
asdfafdsafd
=aaaa
==fdsafsad
=Ddgagsadg
sadgsagag
=Fsadgsag
=cut

print "bbbbbbb\n";

关键字是

=任意字符（标记的作用）

备注释内容

=cut

flyfeel

UID: 46107
帖子: 130
积分: 299
在线时间: 23 小时

6^# flyfeel 发表于 2008-06-12 18:12

哦～～
看来cut就必须的了

Monox

UID: 7804
帖子: 78
积分: 179
在线时间: 8 小时

7^# Monox 发表于 2008-06-13 16:55

cut省略的话，默认到最后一行均为注释，cut不是必需的。

mslk

UID: 10384
帖子: 181
积分: 416
在线时间: 1 天 20 小时

8^# mslk 发表于 2008-06-13 23:33

好的，不错

sleetdrop

UID: 44336
帖子: 120
积分: 276
在线时间: 20 小时

9^# sleetdrop 发表于 2008-06-14 00:35

一个好用的编辑器应该很方便的搞定单行注释啊。

jcool

UID: 24474
帖子: 101
积分: 232
在线时间: 14 小时

10^# jcool 发表于 2008-06-14 12:42

[Copy to clipboard] [ - ]

CODE:

<<END;
...
END

=xxx
...
=cut

学习了...