如何删除perl内的注释？？？

flyfeel

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

1^# flyfeel 发表于 2008-07-10 11:08

如何删除perl内的注释？？？

要把perl脚本内的注释都删除，但“#!/usr/bin/perl -w”肯定不能删除。
单行注释好删除，可多行注释不太好实现。

如a.pl

[Copy to clipboard] [ - ]

CODE:

#!/usr/bin/perl -w

# $Id: restore.pl,v 1.1.2.1Exp $
# user: root
………………
………………
=head1 getRegistrationStatus
@param seconds    expiredtime

@return    1: unregistered
            2: registered
            3: expiring
            4: expired
=cut
………………
………………

cobrawgl

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

2^# cobrawgl 发表于 2008-07-10 12:10

参考版主以前的一个帖子

http://bbs.chinaunix.net/thread-1165378-1-4.html

MMMIX

UID: 31964
帖子: 137
积分: 315
在线时间: 1 天 1 小时

3^# MMMIX 发表于 2008-07-10 22:17

QUOTE:

原帖由 flyfeel 于 2008-7-10 11:08 发表
要把perl脚本内的注释都删除，但“#!/usr/bin/perl -w”肯定不能删除。
单行注释好删除，可多行注释不太好实现。

如a.pl

#!/usr/bin/perl -w

# $Id: restore.pl,v 1.1.2.1Exp $
# user: root
…… ...

Perl 没有多行注释，你说的那个叫 POD, 不属于注释。