03-23-2010
Count uncommented, blank and source lines in perl
Thanks karthigayan for the effort, but the result is partially correct. Commented Lines : 9 is exactly correct. Code Lines : 8 is wrong, it must pick only 6 lines from the example i had given. Empty Lines : 0 but it must be 2. Please explain the flow if i am missing anything. Thanks again.
10 More Discussions You Might Find Interesting
1. UNIX for Dummies Questions & Answers
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)
Discussion started by: kthatch
6 Replies
2. UNIX for Dummies Questions & Answers
Hi Guys,
I want to write a perl/shell script do parse the following file
input file content
NPA-NXX SC
2084549 45
2084552 45
2084563 2007
2084572 45
2084580 45
3278411 45
3278430 45
3278493 530
3278507 530... (3 Replies)
Discussion started by: pistachio
3 Replies
3. Shell Programming and Scripting
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)
Discussion started by: hcclnoodles
11 Replies
4. Shell Programming and Scripting
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)
Discussion started by: adityam
5 Replies
5. Shell Programming and Scripting
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)
Discussion started by: anil8103
5 Replies
6. Shell Programming and Scripting
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)
Discussion started by: ab52
4 Replies
7. Shell Programming and Scripting
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)
Discussion started by: giridhar276
0 Replies
8. Shell Programming and Scripting
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)
Discussion started by: kmanivan82
4 Replies
9. UNIX for Advanced & Expert Users
Hi Gurus,
Somebody can say me how to delete blank spaces and blank lines in a file unix, please.
Thank you for advanced. (10 Replies)
Discussion started by: systemoper
10 Replies
10. Shell Programming and Scripting
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 MOJAVE
io::lines
IO::Lines(3) User Contributed Perl Documentation IO::Lines(3)
NAME
IO::Lines - IO:: interface for reading/writing an array of lines
SYNOPSIS
use IO::Lines;
### See IO::ScalarArray for details
DESCRIPTION
This class implements objects which behave just like FileHandle (or IO::Handle) objects, except that you may use them to write to (or read
from) an array of lines. They can be tiehandle'd as well.
This is a subclass of IO::ScalarArray in which the underlying array has its data stored in a line-oriented-format: that is, every element
ends in a "
", with the possible exception of the final element. This makes "getline()" much more efficient; if you plan to do line-
oriented reading/printing, you want this class.
The "print()" method will enforce this rule, so you can print arbitrary data to the line-array: it will break the data at newlines
appropriately.
See IO::ScalarArray for full usage and warnings.
VERSION
$Id: Lines.pm,v 1.3 2005/02/10 21:21:53 dfs Exp $
AUTHORS
Primary Maintainer
David F. Skoll (dfs@roaringpenguin.com).
Principal author
Eryq (eryq@zeegee.com). President, ZeeGee Software Inc (http://www.zeegee.com).
Other contributors
Thanks to the following individuals for their invaluable contributions (if I've forgotten or misspelled your name, please email me!):
Morris M. Siegel, for his $/ patch and the new "getlines()".
Doug Wilson, for the IO::Handle inheritance and automatic tie-ing.
perl v5.18.2 2005-02-10 IO::Lines(3)