02-13-2008
Quote:
Originally Posted by
meghana
Hey thanks for the reply.. but
wc -l filename ... gives (say count is 200)
output:
200 filename
-- the count includes filename too.. and i want to avoid it..
Thanks
a simple split on the variable and getting the first element will do it. look up
perldoc -f split..
please read through the Perl docs
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
I have a flat file and need to count no of records in the file less the header and the trailer record.
I would appreciate any and all asistance
Thanks
Hadi Lalani (2 Replies)
Discussion started by: guiguy
2 Replies
2. UNIX for Dummies Questions & Answers
Hello,
I searched the forums on the keywords in the title I used above, but I did not find the answer:
Is it possible to count records in a .zip file on an AIX machine if i don't have pkunzip installed?
From all the research I'm reading in google and the reading of pkunzip in Unix.com,... (3 Replies)
Discussion started by: tekster757
3 Replies
3. UNIX for Dummies Questions & Answers
I've got following script that I thought would only email me when the if clause finds the grep. But it emails me anyway (with an empty file) even if the grep doesn't return anything.
What should the line be?
if
then grep -l 'unique constraint' $LOGDIR/archive_active* >... (3 Replies)
Discussion started by: Meert
3 Replies
4. UNIX for Dummies Questions & Answers
Hi everyone.
I am a newbie to Linux stuff. I have this kind of problem which couldn't solve alone. I have a text file with records separated by empty lines like this:
ID: 20
Name: X
Age: 19
ID: 21
Name: Z
ID: 22
Email: xxx@yahoo.com
Name: Y
Age: 19
I want to grep records that... (4 Replies)
Discussion started by: Atrisa
4 Replies
5. UNIX for Dummies Questions & Answers
How do I do a grep wc that counts occurences of two or more different strings?
If I have string1 two times and string2 three times, how do I use wc to get the number 5? (1 Reply)
Discussion started by: locoroco
1 Replies
6. Shell Programming and Scripting
Hi,
I am having .csv files contains some row -
Info: Value of field name 'SecurityExchange' is not supported ","Original Order Tuple
Please see the below perl code carefully-
/Info: (+),Original (\w+) Tuple/ and do {
($category, $type) = ($1, $2);
if($type eq 'Execution')... (1 Reply)
Discussion started by: pspriyanka
1 Replies
7. UNIX for Dummies Questions & Answers
Hi,
It is very interesting to learn the unix, i just struck with a doubt like i have below content in my file
xyz
xyz xyz
xyz
i just want know the word count by using grep -wc 'xyz' <filename>,
but it is giving 3 instead of 4.So i understood that it is showing matched line numbers count... (2 Replies)
Discussion started by: vmachava
2 Replies
8. 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
9. Shell Programming and Scripting
I am trying to count the number of records from different files using grep, and then place the result in a separate variable for each file, so at the end of my shell script, I can sum all the variables and check if the number of records are equal to what I was expecting. It is weird butwc -ldoes... (2 Replies)
Discussion started by: dhruuv369
2 Replies
10. UNIX for Beginners Questions & Answers
I am trying to figure out to find word count of each word from my file
sample file
hi how are you
hi are you ok
sample out put
hi 1
how 1
are 1
you 1
hi 1
are 1
you 1
ok 1
wc -l filename is not helping , i think we will have to split the lines and count and then print and also... (4 Replies)
Discussion started by: mirwasim
4 Replies
LEARN ABOUT DEBIAN
verilog::editfiles
EditFiles(3pm) User Contributed Perl Documentation EditFiles(3pm)
NAME
Verilog::EditFiles - Split Verilog modules into separate files.
SYNOPSIS
See splitmodule command.
use Verilog::EditFiles;
my $split = Verilog::EditFiles->new
(outdir => "processed_rtl",
translate_synthesis => 0,
lint_header => undef,
celldefine => 1,
);
$split->read_and_split(glob("inbound_rtl/*.v"));
$split->write_files();
$split->edit_file(filename=>"foo", cb => sub { return $_[0]; });
DESCRIPTION
Verilog::EditFiles provides a easy way to split library Verilog files that contain multiple modules into many files with one module per
file.
FUNCTIONS
new (...)
Create a new Verilog::EditFiles object. Named parameters may be specified:
celldefine
If true, add "`celldefine" before every module statement.
lint_command
For the write_lint method, the name of the linter to use. Defaults to "vlint --brief".
lint_header
If defined, add the provided text before every module statement. Generally used to insert lint off pragmas.
outdir
Name of the directory to write the output modules to. Defaults to ".".
program
Name of the program to add to comments. Defaults to "Verilog::EditFiles".
timescale_header
If defined, add the provided text before every module statement. Generally set to the next needed to #include a timescale file.
Use with timescale_removal.
timescale_removal
If set, remove any `timescales.
translate_synthesis
If 1, replace any synopsys translate on/offs with "`ifdef SYNTHESIS" and "`endif"s. If set to a string, use that string instead of
"SYNTHESIS".
v_suffix
The suffix to add to convert a module name into a filename. Defaults to ".v".
verbose
If true, print what files are being read and written.
$self->read_and_split ([filenames])
Read from the specified filenames.
If there is no module statement in the file, assume it is a include file, and when write_files is called, place all of the file
contents into the output. If there is a module statement, when write_files is called place all following output into a file named
based on the module, with .v added.
$self->write_files()
Write all of the files created by read_and_split to the outdir.
$self->write_lint([filename=>...])
Create a shell script that will lint every file created by write_files. If a "filename" parameter is not provided, "0LINT.sh" will be
written in the default outdir.
$self->edit_file(filename=>..., cb=>sub{...})
Read a file, edit it with the provided callback, and save it if it has changed. The "filename" parameter is the filename to read. The
"write_filename" parameter is the filename to write, defaulting to the same name as the filename to read. The "cb" parameter is a
reference to a callback which takes the string of file contents and returns the string to write back. Often the callback will simply
perform a search and replace.
DISTRIBUTION
Verilog-Perl is part of the <http://www.veripool.org/> free Verilog EDA software tool suite. The latest version is available from CPAN and
from http://www.veripool.org/verilog-perl <http://www.veripool.org/verilog-perl>.
Copyright 2006-2012 by Wilson Snyder. This package is free software; you can redistribute it and/or modify it under the terms of either
the GNU Lesser General Public License Version 3 or the Perl Artistic License Version 2.0.
AUTHORS
Wilson Snyder <wsnyder@wsnyder.org>
SEE ALSO
Verilog-Perl
perl v5.14.2 2012-05-04 EditFiles(3pm)