📄 90cppcomments.t
字号:
use Test;use DBI;use Fatal qw(open);my @c_files = <*.c>, <*.xs>;plan tests => scalar(@c_files);FILE:foreach my $file (@c_files) { open(F, $file); my $line = 0; while (<F>) { $line++; if (/^(.*)\/\//) { my $m = $1; if ($m !~ /\*/) { # skip the // in c++ comment in parse.c ok(0, 1, "C++ comment in $file line $line"); next FILE; } } } ok(1,1,"$file has no C++ comments"); close(F);}
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -