关于perl多行注释的讨论

flyfeel

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

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

1. 
   
2. <<TXT
   
3. $a = ccc;  //此种方法不行
   
4. TXT
   
5. 
   

复制代码

这个是可以的  你写错了


正确的如下：

1. 
   
2. print "aaa\n";
   
3. 
   
4. <<TXT;
   
5. $a = ccc;
   
6. TXT
   
7. 
   
8. print "bbbb\n";
   

复制代码

[ 本帖最后由 hitsubunnu 于 2008-6-12 17:21 编辑 ]

不死草

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

flyfeel

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

hitsubunnu

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

1. 
   
2. 
   
3. print "aaaaaaa\n";
   
4. 
   
5. =aaa                  # 是= 这个符号  和  下面的  =cut  配合  注释
   
6. asdfafdsafd
   
7. =aaaa
   
8. ==fdsafsad
   
9. =Ddgagsadg
   
10. sadgsagag
    
11. =Fsadgsag
    
12. =cut
    
13. 
    
14. print "bbbbbbb\n";
    
15. 
    

复制代码

关键字是   

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

备注释内容

=cut

flyfeel

哦～～
看来cut就必须的了

Monox

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

mslk

好的，不错

sleetdrop

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

jcool

1. <<END;
   
2. ...
   
3. END
   
4. 
   
5. =xxx
   
6. ...
   
7. =cut

复制代码

学习了...