Perl:过滤注释
来源:互联网 发布:阿里云cdn错误403 编辑:程序博客网 时间:2024/05/20 10:20
[perl]sub commentFilter{ my $fileName = shift ;#参数是文件中的字符串 my $mul_begin = 0 ; open my $fd, " < $fileName" or die "error"; while( <$fd> ) {if( m#\s/\*# )#if begin with: /* { $mul_begin = 1 ; } if($mul_begin) { if( m#\s\*/# ) #if end width */ { $mul_begin = 0 ; } } else { if( !m=^\s*(//|#)= ) # if begin with // or # { print $_ ; } } }}[/perl]
- Perl:过滤注释
- Perl 注释
- 注释过滤
- perl文件名过滤工具
- perl 多行注释
- Perl中注释
- Perl注释格式
- perl的注释方法
- Perl 注释方法
- Perl注释格式 .
- COPY文件,过滤注释.
- 注释过滤程序
- 过滤注释的程序
- 正则表达式:注释过滤
- perl glob 过滤文件列表
- Perl如何过滤html标签
- Perl中的多行注释
- 过滤被注释的行
- Git 一些常用命令
- Perl与正则表达式学习
- Perl : Quantifier follows nothing in regex; marked by
- .js文件无法运行的方法
- Lua入门
- Perl:过滤注释
- dos中特殊符号命令的应用
- SyntaxHighlighter语言高亮的别名aliases
- Perl解析RC,RC2文件
- perl入门
- 迅雷BoltUI
- 最近在看的书
- 中国分省市地图导航-SVG格式(基于Raphaël)
- 用“Web的思想”做PC客户端