?? check_headers.pl
字號:
#!/usr/bin/perl -wuse strict;use File::Basename;# TODO: Test still misses first function of each filemy $errorCount = 0;undef my $closeLineNbr;undef my $lineNbrs;while(<>) { chomp; if(m/^}$/) { $closeLineNbr = $.; } elsif(!defined($closeLineNbr) || m/^$/ || m/^\*/) { next; } elsif(m/^\/\*\*$/) { undef $closeLineNbr; } else { $lineNbrs = (defined $lineNbrs) ? "$lineNbrs, $." : $.; $errorCount++; undef $closeLineNbr; }}if($errorCount > 0) { print "Missing header comment in file \"" . basename($ARGV) . "\" at line(s) $lineNbrs\n"; exit(1);}exit(0);
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -