Login or Register to Ask a Question and Join Our Community


Shell Programming and Scripting

Perl line count if it matches a pattern

 
Thread Tools Search this Thread
Top Forums Shell Programming and Scripting Perl line count if it matches a pattern
Prev   Next
# 1  
Old 09-28-2009
Perl line count if it matches a pattern
#!/usr/bin/perl
use Shell;
open THEFILE, "C:\galileo_integration.txt" || die "Couldnt open the file!";
@wholeThing = <THEFILE>;
close THEFILE;

foreach $line (@wholeThing){
if ($line =~ m/\\0$/){
@nextThing = $line;
if ($line =~ s/\\0/\\LATEST/g){
@otherThing = $line;
@grep_results = qx{cleartool diff -ser @nextThing @otherThing};
print "@grep_results\n";
$inserted = grep( "inserted" | "/^>$/" | "wc-l", @grep_results);
print "Number of lines Inserted, $inserted\n";
$deleted = grep( "deleted" | "/^>/" | "wc-l", @grep_results);
print "Number of lines Deleted, $deleted\n";
$changed = grep( "changed" | "/^>/" | "wc-l", @grep_results);
print "Number of lines Changed, $changed\n";
}
}
}

Output it gives is:
Number of lines Inserted, 100
Number of lines Deleted, 100
Number of lines Changed, 100

All gives me the same wordcount, but i want to grep line count based on matching Inserted, Deleted, Changed.

Output should be like:
Number of lines Inserted, 100
Number of lines Deleted, 50
Number of lines Changed, 220

I donot have any clue to match the patterns and retrieve the line count. Please help me. Thanks!!!
 
Login or Register to Ask a Question

Previous Thread | Next Thread

10 More Discussions You Might Find Interesting

1. UNIX for Beginners Questions & Answers

Count pattern line by line

I have a file like below with more than 30,000 lines: Someword "mypattern blah blah mypattern blah mypattern blah " Someotherword "mypattern blah blah mypattern blah mypattern blah" Someword "mypattern blah blah blah mypattern blah " Someword "mypattern blah blah mypattern blah ... (3 Replies)
Discussion started by: ctrld
3 Replies

2. Shell Programming and Scripting

How to get a 1st line which matches the particular pattern?

Hi all, I have file on which I do grep on "/tmp/data" then I get 5 lines as dir Path: /tmp/data/20162343134 Starting to listen on ports logging: -- Moving results files from local storage: /tmp/resultsFiles/20162343134/*.gz to NFS: /data/temp/20162343134/outgoing from above got to get... (7 Replies)
Discussion started by: girijajoshi
7 Replies

3. Shell Programming and Scripting

Remove entire line from a file if 1st column matches a pattern

I have one requirement to delete all lines from a file if it matches below scenario. File contains three column. Employee Number, Employee Name and Employee ID Scenario is: delete all line if Employee Number (1st column) contains below 1. Non-numeric Employee Number 2. Employee Number that... (3 Replies)
Discussion started by: anshu ranjan
3 Replies

4. Shell Programming and Scripting

Count number of pattern matches per line for all files in directory

I have a directory of files, each with a variable (though small) number of lines. I would like to go through each line in each file, and print the: -file name -line number -number of matches to the pattern /comp/ for each line. Two example files: cat... (4 Replies)
Discussion started by: pathunkathunk
4 Replies

5. Shell Programming and Scripting

Displaying the first field if the second field matches the pattern using Perl

Hi, I am trying with the below Perl command to print the first field when the second field matches the given pattern: perl -lane 'open F, "< myfile"; for $i (<F>) {chomp $i; if ($F =~ /patt$/) {my $f = (split(" ", $i)); print "$f";}} close F' dummy_file I know I can achieve the same with the... (7 Replies)
Discussion started by: royalibrahim
7 Replies

6. Shell Programming and Scripting

[Solved] Finding the next line when a pattern matches

Hi I have a file like this Record 182: Rejected No Data found Record 196: Rejected File Not Found Record 202: Rejected Invalid argument Record 212: Rejected Bad data My requirement is to search for the value "Record" and if found, then return the next line of it. So,... (3 Replies)
Discussion started by: mr_manii
3 Replies

7. Shell Programming and Scripting

Remove if the above line matches pattern

but keep if does not I have a file: --> my.out foo: bar foo: moo blarg i am on vacation foo: goose foo: lucy foo: moose foo: stucky groover@monkey.org foo: bozo grimace@gonzo.net dear sir - blargo blargo foo: goon foo: sloppy foo: saudi gimme gimme gimme (3 Replies)
Discussion started by: spacegoose
3 Replies

8. Shell Programming and Scripting

Print word 1 in line 1 and word 2 in line 2 if it matches a pattern

i have a file in this pattern MATCH1 word1 IMAGE word3 word4 MATCH2 word1 word2 word3 word4 MATCH2 word1 word2 word3 word4 MATCH2 word1 word2 word3 word4 MATCH2 word1 word2 word3 word4 MATCH1 word1 IMAGE word3 word4 MATCH2 word1 word2 word3 word4 MATCH2 word1 word2 word3 word4 MATCH2 word1... (7 Replies)
Discussion started by: bangaram
7 Replies

9. Shell Programming and Scripting

Print line if first Field matches a pattern

Hi All, I would like my code to be able to print out the whole line if 1st field has a dot in the number. Sample input and expected output given below. My AWK code is below but it can;t work, can any expert help me ? Thanks in advance. {if ($1 ~ /*\.*/) { print $0 }} Input: ... (2 Replies)
Discussion started by: Raynon
2 Replies

10. Shell Programming and Scripting

awk to count pattern matches

i have an awk statement which i am using to count the number of occurences of the number ,5, in the file: awk '/,5,/ {count++}' TRY.txt | awk 'END { printf(" Total parts: %d",count)}' i know there is a total of 10 matches..what is wrong here? thanks (16 Replies)
Discussion started by: npatwardhan
16 Replies
Login or Register to Ask a Question

LEARN ABOUT REDHAT

apr::perlio

PERLIO(1)						User Contributed Perl Documentation						 PERLIO(1)

NAME

       APR:PerlIO -- An APR Perl IO layer

SYNOPSIS

	 use APR::PerlIO ();

	 sub handler {
	     my $r = shift;

	     open my $fh, ">:APR", $filename, $r or die $!;
	     # work with $fh as normal $fh
	     close $fh;

	     return Apache::OK;
	 }

DESCRIPTION

       "APR::PerlIO" implements a Perl IO layer using APR's file manipulation as its internals.

       Why do you want to use this? Normally you shouldn't, probably it won't be faster than Perl's default layer. It's only useful when you need
       to manipulate a filehandle opened at the APR side, while using Perl.

       Normally you won't call open() with APR layer attribute, but some mod_perl functions will return a filehandle which is internally hooked to
       APR. But you can use APR Perl IO directly if you want.

METHODS

       Perl Interface:

       open()
	   To use APR Perl IO to open a file the four arguments open() should be used. For example:

	     open my $fh, ">:APR", $filename, $r or die $!;

	   where:

	   the second argument is the mode to open the file, constructed from two sections separated by the ":" character: the first section is
	   the mode to open the file under (>, <, etc) and the second section must be a string APR.

	   the fourth argument can be a "Apache::RequestRec" or "Apache::ServerRec" object.

	   the rest of the arguments are the same as described by the open() manpage.

       seek()
	     seek($fh, $offset, $whence);

	   If $offset is zero, "seek()" works normally.

	   However if $offset is non-zero and Perl has been compiled with with large files support ("-Duselargefiles"), whereas APR wasn't, this
	   function will croak. This is because largefile size "Off_t" simply cannot fit into a non-largefile size "apr_off_t".

	   To solve the problem, rebuild Perl with "-Uuselargefiles". Currently there is no way to force APR to build with large files support.

       The C interface provides functions to convert between Perl IO and APR Perl IO filehandles.

SEE ALSO

       The perliol(1), perlapio(1) and perl(1) manpages.

perl v5.8.0							    2002-06-05								 PERLIO(1)