Hi friends, I am working on a perl script to count the commented lines, blank lines and source lines separately. Let me know if you have one. For example i have a file containing the lines:
The script should read the file and count the Commented lines(/* */), blank lines and actual source lines. The expected output should be, Commented lines=9, Blank lines=2, Source Lines=6. Thanks in advance.
Last edited by pludi; 03-19-2010 at 04:34 AM..
Reason: code tags, please...
What is the command to count lines in a files, but ignore blank lines and commented lines?
I have a file with 4 sections in it, and I want each section to be counted, not including the blank lines and comments... and then totalled at the end.
Here is an example of what I would like my... (6 Replies)
Hi Guru's , I have a whole bunch of files in /var/tmp that i need to strip any blank lines from, so ive written the following script to identify the lines (which works perfectly).. but i wanted to know, how can I actually strip the identified lines from the actual source files ??
my... (11 Replies)
how to count the total number of lines of all the files under a directory using perl script..
I mean if I have 10 files under a directory then I want to count the total number of lines of all the 10 files contain. Please help me in writing a perl script on this. (5 Replies)
Hi,
Consider a file named "testfile"
The contents of file are as below
first line added for test
second line added for test
third line added for test
fourth line added for test
fifth line added for test (5 Replies)
Hi Guys
I have a text file that contains the message like this
/var/log/messages.all-20120401: Mar 26 12:12:23 brent kernel: NVRM: Xid (0003:00): 43, 0005 00009097 00000000 00000000 00001b0c 1000f010
/var/log/messages.all-20120401: Mar 27 20:42:40 brent kernel: NVRM: Xid (0003:00): 43,... (4 Replies)
I am working on an assignment to pull all the records from excel sheet programatically and use the data for further calculations.
In this process, I first defined 10 records in excel sheet and executed the below code.
In the first run it is OK. But after deleting last few rows in excel sheet and... (0 Replies)
Hi Team,
The content of the file is as follows.
asdf
234
asdf
asdf
dsfg
gh
67
78
The file is in DOS format (not in Unix Format). The file is transferred to Unix. I need a unix command to check the number of blank lines in a input (comming from Windows). If it is greater than... (4 Replies)
Hi All
Need Help
I have a file with the below format (ABC.TXT) :
®¿¿ABCDHEJJSJJ|XCBJSKK01|M|7348974982790
HDFLJDKJSKJ|KJALKSD02|M|7378439274898
KJHSAJKHHJJ|LJDSAJKK03|F|9898982039999
(cont......)
I need to write a script where it will check for : blank lines (between rows,before... (6 Replies)
Discussion started by: chatwithsaurav
6 Replies
LEARN ABOUT CENTOS
perl::critic::statistics
Perl::Critic::Statistics(3) User Contributed Perl Documentation Perl::Critic::Statistics(3)NAME
Perl::Critic::Statistics - Compile stats on Perl::Critic violations.
DESCRIPTION
This class accumulates statistics on Perl::Critic violations across one or more files. NOTE: This class is experimental and subject to
change.
INTERFACE SUPPORT
This is considered to be a non-public class. Its interface is subject to change without notice.
METHODS
"new()"
Create a new instance of Perl::Critic::Statistics. No arguments are supported at this time.
" accumulate( $doc, @violations ) "
Accumulates statistics about the $doc and the @violations that were found.
"modules()"
The number of chunks of code (usually files) that have been analyzed.
"subs()"
The total number of subroutines analyzed by this Critic.
"statements()"
The total number of statements analyzed by this Critic.
"lines()"
The total number of lines of code analyzed by this Critic.
"lines_of_blank()"
The total number of blank lines analyzed by this Critic. This includes only blank lines in code, not POD or data.
"lines_of_comment()"
The total number of comment lines analyzed by this Critic. This includes only lines whose first non-whitespace character is "#".
"lines_of_data()"
The total number of lines of data section analyzed by this Critic, not counting the "__END__" or "__DATA__" line. POD in a data section
is counted as POD, not data.
"lines_of_perl()"
The total number of lines of Perl code analyzed by this Critic. Perl appearing in the data section is not counted.
"lines_of_pod()"
The total number of lines of POD analyzed by this Critic. Pod occurring in a data section is counted as POD, not as data.
"violations_by_severity()"
The number of violations of each severity found by this Critic as a reference to a hash keyed by severity.
"violations_by_policy()"
The number of violations of each policy found by this Critic as a reference to a hash keyed by full policy name.
"total_violations()"
The the total number of violations found by this Critic.
"statements_other_than_subs()"
The total number of statements minus the number of subroutines. Useful because a subroutine is considered a statement by PPI.
"average_sub_mccabe()"
The average McCabe score of all scanned subroutines.
"violations_per_file()"
The total violations divided by the number of modules.
"violations_per_statement()"
The total violations divided by the number statements minus subroutines.
"violations_per_line_of_code()"
The total violations divided by the lines of code.
AUTHOR
Elliot Shank "<perl@galumph.com>"
COPYRIGHT
Copyright (c) 2007-2011 Elliot Shank.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. The full text of this license
can be found in the LICENSE file included with this module.
perl v5.16.3 2014-06-09 Perl::Critic::Statistics(3)