Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: Perl - Count occurences
Top Forums Shell Programming and Scripting Perl - Count occurences Post 302281807 by TimHortons on Thursday 29th of January 2009 01:04:35 PM
Old 01-29-2009
I found a couple of logic flaws but still no output of counts
I still get no counts

#!/usr/bin/perl

my $find = $ARGV[0];
my $replace = $ARGV[1];
my $glob = $ARGV[2];
@filelist = <*$glob>;

# process each file in file list
foreach $filename (@filelist) {
$count = 0;
# print " P: $filename\n";
# retrieve complete file
open (IN, "$filename") || die("Error Reading File: $filename $!");
{
undef $/;
$infile = <IN>;
}
close (IN) || die("Error Closing File: $filename $!");
if ($infile =~ m/$find/gi)
{
while (<IN>) {
while ($infile =~ m/$find/gi)
{$count++};
}
print $filename . " contains " . $find . " " . $count . (($count == 1) ? " time\n" : " times\n");
}
}
print "\nFinished.\n";

exit(0);
 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

How to count the number of occurences of this pattern?

Hi all, I have a pattern like this in a file: 123 4 56 789 234 5 67 789 121 3 56 789 222 4 65 789 321 6 90 100 478 8 40 789 243 7 80 789 How can I count the number of occurences of '789' (4th column) in this set...? Thanks for all your help! K (7 Replies)
Discussion started by: kripssmart
7 Replies

2. UNIX for Dummies Questions & Answers

Count number of occurences of a word

I want to count the number of occurences of say "200" in a file but that file also contains various stuff including dtaes like 2007 or smtg like 200.1 so count i am getting by doing grep -c "word" file is wrong Please help!!!!! (8 Replies)
Discussion started by: shikhakaul
8 Replies

3. Shell Programming and Scripting

Awk to count occurences

Hi, i am in need of an awk script to accomplish the following: Input table looks like: Student1 arts Student2 science Student3 arts Student4 science Student5 science Student6 science Student7 science Student8 science Student9 science Student10 science Student11 science... (8 Replies)
Discussion started by: saint2006
8 Replies

4. Shell Programming and Scripting

Count occurences of string

Hi, Please help me in finding the number of occurences of the string. Example: Apple, green, blue, Apple, Orange, green, blue are the strings can be even in the next line. The o/p should look as: Word Count ----- ----- Apple 2 green 2 Orange 1 blue 2 Thanks (2 Replies)
Discussion started by: acc888
2 Replies

5. UNIX for Dummies Questions & Answers

Count pattern occurences

hi, I have a text..and i need to find a pattern in the text and count to the no of times the pattern occured. i have used grep command ..but the problem is , it shows the occurrences of the pattern but doesn't count no of times the pattern occuries. (5 Replies)
Discussion started by: nvnni
5 Replies

6. Shell Programming and Scripting

Count occurences based on interval

Hi, I have a file which has 4500 entries 10000 9880 9800 8700 8200 ... ..... ... ... ... ... ... ... ... 50 (1 Reply)
Discussion started by: Diya123
1 Replies

7. Shell Programming and Scripting

Count number of occurences using awk

Hi Guys, I have 2 files like below file1 xx yy file2 b yy b2 xx c1 yy xx yy Now I want an idea which can count occurences of text from file1 and file2 so outbout would be kind of (9 Replies)
Discussion started by: prashant2507198
9 Replies

8. Shell Programming and Scripting

awk count occurences

line number:status, market, keystation 1,SENT,EBS,1 : 1 2,DONE,REU,1 : 1 3,SENT,EBS,2 : 1 4,DONE,EBS,1 : 0 5,SENT,EBS,2 : 0 6,SENT,EBS,2 : 0 7,SENT,EBS,2 : 0 8,SENT,EBS,1 : 1 for each status, market combination I want to keep a tally of active orders. i.e if an order is SENT, then +1, if... (8 Replies)
Discussion started by: Calypso
8 Replies

9. Shell Programming and Scripting

Count the occurences of strings

I have some text files in a folder f1 with 10 columns. The first five columns of a file are shown below. aab abb 263-455 263 455 aab abb 263-455 263 455 aab abb 263-455 263 455 bbb abb 26-455 26 455 bbb abb 26-455 26 455 bbb aka 264-266 264 266 bga bga 230-232 230 ... (10 Replies)
Discussion started by: gomez
10 Replies

10. UNIX for Beginners Questions & Answers

Count occurences of the word without it repeating

Hi, I would like to count the number of ALA occurences without having them to be repeated. In the script I have written now it has 40 repetitions of ALA but it has to be 8. ALA is chosen as one of the 20 values it can have when the script asks for the input of AAA, which for this example is chosen... (7 Replies)
Discussion started by: Aurimas
7 Replies

LEARN ABOUT MOJAVE

file::checktree

File::CheckTree(3pm)					 Perl Programmers Reference Guide				      File::CheckTree(3pm)

NAME

       File::CheckTree - run many filetest checks on a tree

SYNOPSIS

	   use File::CheckTree;

	   $num_warnings = validate( q{
	       /vmunix		       -e || die
	       /boot		       -e || die
	       /bin		       cd
		   csh		       -ex
		   csh		       !-ug
		   sh		       -ex
		   sh		       !-ug
	       /usr		       -d || warn "What happened to $file?
"
	   });

DESCRIPTION

       The validate() routine takes a single multiline string consisting of directives, each containing a filename plus a file test to try on it.
       (The file test may also be a "cd", causing subsequent relative filenames to be interpreted relative to that directory.)	After the file
       test you may put "|| die" to make it a fatal error if the file test fails.  The default is "|| warn".  The file test may optionally have a
       "!' prepended to test for the opposite condition.  If you do a cd and then list some relative filenames, you may want to indent them
       slightly for readability.  If you supply your own die() or warn() message, you can use $file to interpolate the filename.

       Filetests may be bunched:  "-rwx" tests for all of "-r", "-w", and "-x".  Only the first failed test of the bunch will produce a warning.

       The routine returns the number of warnings issued.

AUTHOR

       File::CheckTree was derived from lib/validate.pl which was written by Larry Wall.  Revised by Paul Grassie <grassie@perl.com> in 2002.

HISTORY

       File::CheckTree used to not display fatal error messages.  It used to count only those warnings produced by a generic "|| warn" (and not
       those in which the user supplied the message).  In addition, the validate() routine would leave the user program in whatever directory was
       last entered through the use of "cd" directives.  These bugs were fixed during the development of perl 5.8.  The first fixed version of
       File::CheckTree was 4.2.

perl v5.18.2							    2014-01-06						      File::CheckTree(3pm)
All times are GMT -4. The time now is 02:37 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy